Use Recordset.Support to check the supported features : Microsoft Jet « Access « VBA / Excel / Access / Word






Use Recordset.Support to check the supported features

 
Sub SupportsExample()
    Dim rs As ADODB.Recordset
    Dim cn As ADODB.Connection
    Dim lRecordsAffected As Long
    Set cn = New ADODB.Connection
    cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
    cn.ConnectionString = "Data Source=C:\mydb.mdb"
    cn.Open
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseServer
    rs.Open "SELECT * FROM Names", cn, adOpenStatic, adLockOptimistic
    Debug.Print "adAddNew: " & rs.Supports(adAddNew)
    Debug.Print "adBookmark: " & rs.Supports(adBookmark)
    Debug.Print "adDelete: " & rs.Supports(adDelete)
    Debug.Print "adFind: " & rs.Supports(adFind)
    Debug.Print "adUpdate: " & rs.Supports(adUpdate)
    Debug.Print "adMovePrevious: " & rs.Supports(adMovePrevious)
    rs.Close
    rs.CursorLocation = adUseServer
    rs.Open "SELECT * FROM Names", cn, adOpenDynamic, adLockOptimistic
    Debug.Print "adAddNew: " & rs.Supports(adAddNew)
    Debug.Print "adBookmark: " & rs.Supports(adBookmark)
    Debug.Print "adDelete: " & rs.Supports(adDelete)
    Debug.Print "adFind: " & rs.Supports(adFind)
    Debug.Print "adUpdate: " & rs.Supports(adUpdate)
    Debug.Print "adMovePrevious: " & rs.Supports(adMovePrevious)
    
    rs.Close
    
    cn.Close

End Sub

 








Related examples in the same category

1.Include the database version information with the JetOLEDB:Engine Type property
2.connect to JET
3.Read table schema
4.Connection String to Access database
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