Base de donnée sql
acornuault
Messages postés
1
Date d'inscription
jeudi 19 mai 2005
Statut
Membre
Dernière intervention
19 mai 2005
-
19 mai 2005 à 17:25
michmuch2000 Messages postés 33 Date d'inscription vendredi 1 août 2003 Statut Membre Dernière intervention 26 août 2008 - 19 mai 2005 à 18:18
michmuch2000 Messages postés 33 Date d'inscription vendredi 1 août 2003 Statut Membre Dernière intervention 26 août 2008 - 19 mai 2005 à 18:18
1 réponse
michmuch2000
Messages postés
33
Date d'inscription
vendredi 1 août 2003
Statut
Membre
Dernière intervention
26 août 2008
19 mai 2005 à 18:18
19 mai 2005 à 18:18
Ca devrait marcher
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.table
' Connexion à la base de donnée
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& App.Path & "" & "Ta_Base" & ";" & _
"Jet OLEDB:Database Password=0000" ' si le password est 0000 evidemment
For Each tbl In cat.Tables
msgbox tbl.Name
next
N'oublie pas d'ajouter les référence ADOX dans ton projets.
A+
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.table
' Connexion à la base de donnée
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& App.Path & "" & "Ta_Base" & ";" & _
"Jet OLEDB:Database Password=0000" ' si le password est 0000 evidemment
For Each tbl In cat.Tables
msgbox tbl.Name
next
N'oublie pas d'ajouter les référence ADOX dans ton projets.
A+