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.

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
Merci d'avance