Connection String to Access database : Microsoft Jet « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Microsoft Jet

Connection String to Access database

 

Sub AccessExample()

    Dim rs As ADODB.Recordset
    Dim cn As ADODB.Connection
    
    Set cn = New ADODB.Connection
    cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
    cn.ConnectionString = "Data Source=C:\mydb.mdb"
    cn.Open
    
    Debug.Print "Full connection string: " & cn.ConnectionString
    
    Set rs = cn.OpenSchema(adSchemaTables)
    Do While Not rs.EOF
        Debug.Print rs!TABLE_NAME & "  Type: " & rs!TABLE_TYPE
        rs.MoveNext
    Loop
    rs.Close
    cn.Close
End Sub

 

Related examples in the same category