Public gConnection As ADODB.Connection Dim sConnect As String Dim sADOConnect As String Dim rs As New ADODB.Recordset MousePointer = vbHourglass sConnect = "DSN= 'monDSN';" sConnect = sConnect & "UID= 'monUID';" sConnect = sConnect & "PWD= 'monPWD';" sADOConnect = "PROVIDER=MSDASQL;" & sDSN & sConnect Set gConnection = New ADODB.Connection gConnection.Open sADOConnect MousePointer = vbDefault ' Remplissage du combo ChoixTable rs.Open " SELECT TNAME FROM TAB", gConnection ChoixTable.Clear If rs.EOF = False Then Do Until rs.EOF ChoixTable.AddItem rs![TNAME] rs.MoveNext Loop Else MsgBox "La base de données n'a pas de table accessible aux utilisateur" gConnection.Close End End If rs.Close ... gConnection.close
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub ADOListTables() Dim cat As New ADOX.Catalog Dim tbl As ADOX.Table ' Ouverture du catalogue cat.Activeconnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=.\Comptoir.mdb;" ' Création d'une boucle dans les tables de la base de données et impression du nom des tables For Each tbl In cat.Tables If tbl.Type <> "VIEW" Then Debug.Print tbl.Name Next End Sub