Ado vb6

Résolu
Signaler
Messages postés
44
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
30 août 2010
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Je cherche à savoir comment récupérer le nom des tables avec une connection ado.


 


merci d'avance





GIRAUD MARC

5 réponses

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
OpenSchema

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonjour,

Avec OpenSchema:

exemple en vb6:
 http://www.vbfrance.com/infomsg_LISTE-BD-DATAGRID_46538.aspx

exemple en vbs:
Const MyBaseJor ="D:\DIA7LM01.MDB"
Const adSchemaTables = &h14

Set Db = CreateObject("ADODB.Connection")
Db.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyBaseJor

Set Rs = Db.OpenSchema(adSchemaTables)

Do Until Rs.EOF
   MsgBox Rs.Fields("TABLE_NAME").Value
   Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Set Db = Nothing

jean-marc
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
Salut,

encore un exemple:

Aller dans Prjet -> Référence puis cocher ADO Ext 2.5 for Dll and Security et mettre ce code
                                                            et Microsoft Active Data Objet 2.8


Dim bdd As New ADOX.Catalog
Set acn as New ADODB.Connection
acn.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Chemin_fichier_base

Dim table As ADOX.table

Set bdd.ActiveConnection = acn


For Each table In bdd.Tables
        msgbox table.name
Next
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
Re,

Bonjour Renfield,
Sorry pour le doublon.
Je crois bien que c'est vous qui m'aviez orienté sur ce code !!!

jean-marc
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
'lut JMO, no soucy

tu peux me tutoyer, tu sais, je ne me gène pas pour le faire, moi ^^

Renfield
Admin CodeS-SourceS- MVP Visual Basic