connect to JET : Microsoft Jet « Access « VBA / Excel / Access / Word






connect to JET

 
Sub Jet()
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set conn = New ADODB.Connection
    With conn
        .Provider = "Microsoft.Jet.OLEDB.3.51"
        .ConnectionString = "data source=" & _
            App.Path & "\sample.mdb"
        .Mode = adModeRead
        .Open
    End With
    MsgBox "Connected to " & conn.Provider, vbInformation
    Set rst = New ADODB.Recordset
    rst.Open "Customers", conn
    MsgBox rst!CompanyName, vbInformation
    rst.Close
    Set rst = Nothing
End Sub

 








Related examples in the same category

1.Include the database version information with the JetOLEDB:Engine Type property
2.Read table schema
3.Connection String to Access database
4.Use Recordset.Support to check the supported features
5.Create new database
6.Open a worksheet through OLEDB
7.Opening a Microsoft Jet Database in Read/Write Mode
8.Sub addJetSqlUser()
9.A Simple Connection Example