[VB6] Convertir de la DAO en ADODB
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:
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
