Discussion :

[Sytchev3]

Je développe une application VB et sur un fenêtre de mon application, j'ai une liste déroulante contenant toutes les tables d'une base de données que j'ai obtenu grâce à ce bout de code :

Code :

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

1
2
3
4
5
6
7
8
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db=openbase(C:/....)
For Each tbd In Db.TableDefs
 
        MsgBox "Table : " & tbd.Name 
Next

Mais je souhaiterais maintenant obtenir la liste des champs de la table que j'aurais sélectionné dans ma liste déroulante

Merci d'avance

[Le Pharaon]

Code :

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

1
2
3
For Each fld In tbl.fields
        MsgBox "Champs : " & fld.Name 
Next

J'ai pas testé mais tu peux voir ce que ça donne

[jacma]

Si tu passes en ADO, tu as ADOX qui permet de faire tout cela relativement facilement.

[Sytchev3]

Le problème c'est que la table que me retourne ma liste déroulante est un string et non pas une dao.tabledef

[jacma]

Tu dis vouloir obtenir une liste des champs de la table sélectionnée quand tu cliques sur un item de ta liste déroulante. Tu as le nom de ta table, tu peux donc utiliser ADOX. Et si j'ai bien compris, ce n'est plus du ressort de la liste déroulante, mais du ressort de la structure d'une table dont tu as sélectionné le nom dans une liste.

[Le Pharaon]

Une question
ADOX c'est dans VB.net non ?

[jacma]

Dans Net, je pense, mais avec VB6, j'en suis sûr. Il existe un praticile de Bidou sur le sujet.

J'ai des exemples de ce que tu veux faire. Je vais voir comment je peux te les faire passer si tu le souhaite.

[Sytchev3]

Si vous pouviez me passer des exemples cela m'aiderai grandement, n'hésitez pas à me les faire parvenir

[jacma]

Si vous pouviez me passer des exemples cela m'aiderai grandement, n'hésitez pas à me les faire parvenir

Je n'ai ja mais pris le temps de mettre sur Dev le praticiel et le projet sur ADOX que j'ai fait il y a... quelque temps. Tu peux le télécharger à l'adresse http://fr.groups.yahoo.com/group/Did...iliser%20Adox/
Si tu rencontre quelques problème (c'est yahoo...), dis le moi et je te les enverrai en privé, avant que je ne les mette en ligne ici (il faut que je les relises et les complète).