Afficher toutes les tables d'une DB dans ComboBox ! ! !

**julius0123** · 11/08/2009, 16h38

Bonjour à tous ! ! !

Voila mon problème, je suis grand débutant, et je souhaiterais créer un petit logiciel qui permettrait d'accéder à une base de donnée ACCESS et de la modifier à ma guise ! ! !

J'arrive déja à ouvrir une base de donnée, de récupérer son chemin, le nom, etc... et à m'y connecter, modifier des info et tout et tout

Mais maintenant pour une meilleur ergonomie, j'aimerais pouvoir avoir dans un ComboBox, toutes les tables contenu dans cette base de donnée ! ! !

Par exemple, j'ai une table PERSO.mdb et dedans j'ai 4 tables :
- Membres
- Commentaires
- News
- Livreor

J'aimerais que ces 4 tables se trouvent dans le ComboBox et qu'aux moment ou je clique dans la ComboBox, je récupère le nom de la tables ! ! !

j'ai dejà cherché sur Google, et quelqu'un proposait une solution avec la Microsoft DAO library

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub LISTE_TABLES(ByVal chemin As String)
Dim bdd As DAO.Database
Dim tbd As DAO.TableDef
Set bdd = OpenDatabase(chemin)
For Each tbd In bdd.TableDefs
Debug.Print tbd.Name
Next
bdd.Close
Set bdd = Nothing
Set tbd = Nothing
End Sub

alors j'incorpore bien la Microsoft DAO library mais VB me dit que OpenDatabase n'est pas déclarée ! ! !

je ne comprend pas et comme je vous l'ai dit, je suis grand debutant!!

Je vous remercie d'avance pour vos futur réponses qui je l'èspère seront nombreuse ! !

**nikoko34** · 11/08/2009, 16h59

Bonjour,

As tu vérifié que tu références (via un Import je suppose) la même version que celle fournie dans l'exemple ?

Sinon, pour voire les méthodes proposées par cette référence, tu peux toujours la remettre dans le code et voir via l'autocomplétion les méthodes proposées.

**Pol63** · 11/08/2009, 19h48

il doit y avoir un getschema sur l'objet oledbconnection (donc pas besoin d'ajouter de référence)

**julius0123** · 12/08/2009, 09h01

Merci beaucoup pour vos réponses mais comme je l'avais précisé, je suis un grand débutant en vb alors je ne comprend pas très bien ce que vous me dites ! ! !

C'est quoi un GetSchéma ???

Et si il y a un import, j'en avait pas mis, si vous savez c'est lequel, je suis prenneur ! ! !

**Pol63** · 12/08/2009, 09h09

tu tapes system.data.oledb.oledbconnection et tu fais F1 dessus
tu verras la méthode getschema je pense qui doit etre expliquée aussi

sinon y doit y avoir un chapitre sur les bases de données ici (voir meme tout lire peut etre utile ...)
http://plasserre.developpez.com/cours/vb-net/

et les imports sont facultatif

**julius0123** · 12/08/2009, 09h19

j'ai deja pas mal regarder le cours sur les bases de donnée et toute les autres choses mais je ne trouve rien sur comment lister le nom des tables dans un tableau ou dans une variables,

et en plus je ne comprend pas du tout le code donnée par le site qui proposait la solution ! !!

J'ai fait "Imports System.Data.OleDbConnection" mais il ne me le reconnait pas,
VB me propose "Imports System.Data.OleDb.OleDbConnection"

vous n'auriez pas un ptit bout de code sur la technique pour afficher le nom des tables d'une base access dans un ComboBox ??

**Pol63** · 12/08/2009, 14h50

Envoyé par sperot51

tu tapes system.data.oledb.oledbconnection et tu fais F1 dessus
tu verras la méthode getschema je pense qui doit etre expliquée aussi

sinon y doit y avoir un chapitre sur les bases de données ici (voir meme tout lire peut etre utile ...)
http://plasserre.developpez.com/cours/vb-net/

et les imports sont facultatif

**julius0123** · 12/08/2009, 16h04

Voila ce que j'ai et il me dit que :

"Une référence à un membre non partagée requiert une référence d'objet"

Comprend pas tout,

et après, comment l'insérer dans une ComboBox??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private ObjetConnection As OleDbConnection '  Déclaration Objet Connexion
    Private ObjetCommand As OleDbCommand ' Déclaration Objet Commande
    Private ObjetDataAdapter As OleDbDataAdapter '  Déclaration Objet DataAdapter
    Private ObjetDataSet As New DataSet() ' Déclaration Objet DataSet et Attention au New
    Private strSql As String 'String contenant la 'Requête SQL'
    Private ObjetDataTable As DataTable ' Déclaration Objet DataTable
    Private ObjetDataRow As DataRow ' Déclaration Objet DataRow (ligne)
    Private RowNumber As Integer    ' Numéro de la ligne en cours et Numéro de l'enregistrement courant
    Private strConn As String 'Paramêtres de connexion à la DB
    Private ObjetCommandBuilder As OleDbCommandBuilder 'Pour recompiler les données modifiées avant de les remettre dans le DataAdapter
 
    Public Sub GetTableNameDB()
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= c:\PERSO.mdb;" 'Initialisation de la chaîne de paramètres pour la connexion
        ObjetConnection = New OleDbConnection() 'Instanciation d'un Objet Connexion
        ObjetConnection.ConnectionString = strConn 'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.Open()
        GetSchema()
    End Sub

**Pol63** · 12/08/2009, 16h28

le getschema faut le faire sur l'objet connexion, et il faut récupérer le résultat de la fonction dans une variable

ce forum ne sert pas à expliquer comment remplir un combobox (enfin à mon sens)
pour ca il y a des cours et des tutos
http://plasserre.developpez.com/cours/vb-net/

**julius0123** · 12/08/2009, 16h56

Je sais que ce n'est pas fait pour ça ! ! ! je vois a peu près comment faire pour insérer des donnée dans des ComboBox, avec le cours sa va être facile, mon problème sa va être pour récupérer le nom des tables dans des variables ! !

Alors si j'ai bien tout compris, sa devrait donner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Public Sub GetTableNameDB()
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= c:\PERSO.mdb;" 'Initialisation de la chaîne de paramètres pour la connexion
        ObjetConnection = New OleDbConnection() 'Instanciation d'un Objet Connexion
        ObjetConnection.ConnectionString = strConn 'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.Open()
        Dim tables As String = GetSchema(ObjetConnection)
End Sub

mais je vois pas comment sa peut marcher ! !désoler mais je suis un grnad débutant

**Pol63** · 12/08/2009, 17h13

à la place de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim tables As String = GetSchema(ObjetConnection)

essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim tables As system.Data.datatable = ObjetConnection.GetSchema

c'est expliqué dans l'aide de vb ...

**julius0123** · 13/08/2009, 10h07

alors j'ai essayer mais il me dit que tables ne peut pas être convertie en String,

Comment l'afficher ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim tables As System.Data.DataTable = ObjetConnection.GetSchema
ListBox1.Text = tables

**Pol63** · 13/08/2009, 10h11

sérieux tu veux pas lire un cours ???

un datatable est un tableau de données avec des lignes et des colonnes, donc en effet c'est pas un string !

et en général dans un ListBox1 on fait .items.add

**nikoko34** · 13/08/2009, 10h12

Julius...:
- tables est de type System.Data.DataTable
- ListBox1.Text, c'est du string

Tu peux pas convertir un navet en une carotte...

Si tu veux résoudre ton problème, faut vraiment que tu montes une (ou plutôt deux ou trois) marches dans la compréhension de VB.NET avec les tutos adaptés.

Pense aussi à utiliser l'autocompletion et l'aide en ligne (MSDN) pour voir les méthodes, propriétés et evenements associés aux types que tu manipules.

Après, si ça coince encore, on sera là pour t'aider.

**julius0123** · 13/08/2009, 13h34

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public Sub GetTableNameDB()
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= c:\PERSO.mdb;" 'Initialisation de la chaîne de paramètres pour la connexion
        ObjetConnection = New OleDbConnection() 'Instanciation d'un Objet Connexion
        ObjetConnection.ConnectionString = strConn 'Donner à la propriété ConnectionString les paramètres de connexion
 
        Dim Mycommand As OleDbCommand = ObjetConnection.CreateCommand()
        Dim tables As System.Data.DataTable = ObjetConnection.GetSchema
 
        ObjetConnection.Open()
 
        Dim myReader As OleDbDataReader = tables.ExecuteReader()
 
        Do While myReader.Read()
            ListBox1.Items.Add(myReader.GetString(0))
        Loop
 
 
        myReader.Close()
        ObjetConnection.Close()
 
End Sub

il me dit ExecuteReader n'est pas un membre de System.Data.DataTable

j'ai cherché dans l'auto complétion de tables. mais je ne voit pas ce qui pourrait me permettre d'afficher le nom des tables

**Pol63** · 14/08/2009, 11h53

oui mais qu'est-ce que tu veux qu'on te dise de plus

si tu veux développer des logiciels, il va falloir apprendre parce que t'écris des conneries et ca marche pas ... et on est pas là pour faire les choses à ta place

Afficher toutes les tables d'une DB dans ComboBox ! ! !

VB.NET

Discussions similaires

Partager

Partager