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

Version imprimable

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 :ccool:

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 8O
Code:

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 ! !

11/08/2009, 16h59
nikoko34

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.
11/08/2009, 19h48
Pol63

il doit y avoir un getschema sur l'objet oledbconnection (donc pas besoin d'ajouter de référence)
12/08/2009, 09h01
julius0123

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 ! ! !
12/08/2009, 09h09
Pol63

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
12/08/2009, 09h19
julius0123

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 ??
12/08/2009, 14h50
Pol63

Citation:

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

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

Citation:

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

Comprend pas tout,8O 8O 8O et après, comment l'insérer dans une ComboBox??

Code:

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

12/08/2009, 16h28
Pol63

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/

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:

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

12/08/2009, 17h13
Pol63

à la place de

Code:

Dim tables As String = GetSchema(ObjetConnection)

essaye

Code:

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

c'est expliqué dans l'aide de vb ...
13/08/2009, 10h07
julius0123
alors j'ai essayer mais il me dit que tables ne peut pas être convertie en String,

Comment l'afficher ?
Code:

1 2 Dim tables As System.Data.DataTable = ObjetConnection.GetSchema ListBox1.Text = tables
13/08/2009, 10h11
Pol63

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
13/08/2009, 10h12
nikoko34

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

Tu peux pas convertir un navet en une carotte... :calim2:
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.

Code:

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

14/08/2009, 11h53
Pol63

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