cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 20 juil. 2007 à 14:22
Bonjour,
Si utilisation d'ADO:
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