Je développe une application en VB6 et je souhaite afficher toutes les tables d'une base access puis tous les champs d'une table.
La solution que j'ai trouvé et qui marche parfaitement utilise la DAO je souhaiterais savoir si quelqu'un pourrait m'aider à convertir le bout de code suivant en ADODB.
Merci d'avance
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 Dim bdaccess As DAO.Database Dim table As DAO.TableDef Dim champ As DAO.Field Set bdaccess = OpenDatabase(nombase) For Each table In bdaccess.TableDefs msgbox table.Name Next unetable= la table que je sélectionne For Each champ In bdaccess.TableDefs(unetable).Fields msgbox champ.Name & " " & champ.Type next
Partager