Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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