VBA/Excel/Access/Word/Access/Recordset Support

Does Recordset support Bookmark(adBookmark)

   <source lang="vb">

Sub SupportsMethod()

   "Declare and instantiate a Recordset object
   Dim rst As ADODB.Recordset
   Set rst = New ADODB.Recordset
   
   rst.ActiveConnection = CurrentProject.Connection
   rst.CursorType = adOpenStatic
   rst.LockType = adLockOptimistic
   rst.CursorLocation = adUseServer
   "Open the recordset, designating that the source
   "is a SQL statement
   rst.Open Source:="Select * from Employees ", _
       Options:=adCmdText
   "Determine whether the recordset supports certain features
   Debug.Print "Bookmark " & rst.Supports(adBookmark)
   Debug.Print "Update Batch " & rst.Supports(adUpdateBatch)
   Debug.Print "Move Previous " & rst.Supports(adMovePrevious)
   Debug.Print "Seek " & rst.Supports(adSeek)
   rst.Close
   Set rst = Nothing

End Sub

</source>
   
  

Does Recordset support Move Previous (adMovePrevious)

   <source lang="vb">

Sub SupportsMethod()

   "Declare and instantiate a Recordset object
   Dim rst As ADODB.Recordset
   Set rst = New ADODB.Recordset
   
   rst.ActiveConnection = CurrentProject.Connection
   rst.CursorType = adOpenStatic
   rst.LockType = adLockOptimistic
   rst.CursorLocation = adUseServer
   "Open the recordset, designating that the source
   "is a SQL statement
   rst.Open Source:="Select * from Employees ", _
       Options:=adCmdText
   "Determine whether the recordset supports certain features
   Debug.Print "Bookmark " & rst.Supports(adBookmark)
   Debug.Print "Update Batch " & rst.Supports(adUpdateBatch)
   Debug.Print "Move Previous " & rst.Supports(adMovePrevious)
   Debug.Print "Seek " & rst.Supports(adSeek)
   rst.Close
   Set rst = Nothing

End Sub

</source>
   
  

Does Recordset support Seek (adSeek)

   <source lang="vb">

Sub SupportsMethod()

   "Declare and instantiate a Recordset object
   Dim rst As ADODB.Recordset
   Set rst = New ADODB.Recordset
   
   rst.ActiveConnection = CurrentProject.Connection
   rst.CursorType = adOpenStatic
   rst.LockType = adLockOptimistic
   rst.CursorLocation = adUseServer
   "Open the recordset, designating that the source
   "is a SQL statement
   rst.Open Source:="Select * from Employees ", Options:=adCmdText
   "Determine whether the recordset supports certain features
   Debug.Print "Bookmark " & rst.Supports(adBookmark)
   Debug.Print "Update Batch " & rst.Supports(adUpdateBatch)
   Debug.Print "Move Previous " & rst.Supports(adMovePrevious)
   Debug.Print "Seek " & rst.Supports(adSeek)
   rst.Close
   Set rst = Nothing

End Sub

</source>
   
  

Does Recordset support Update Batch (adUpdateBatch)

   <source lang="vb">

Sub SupportsMethod()

   "Declare and instantiate a Recordset object
   Dim rst As ADODB.Recordset
   Set rst = New ADODB.Recordset
   
   rst.ActiveConnection = CurrentProject.Connection
   rst.CursorType = adOpenStatic
   rst.LockType = adLockOptimistic
   rst.CursorLocation = adUseServer
   "Open the recordset, designating that the source
   "is a SQL statement
   rst.Open Source:="Select * from Employees ", _
       Options:=adCmdText
   "Determine whether the recordset supports certain features
   Debug.Print "Bookmark " & rst.Supports(adBookmark)
   Debug.Print "Update Batch " & rst.Supports(adUpdateBatch)
   Debug.Print "Move Previous " & rst.Supports(adMovePrevious)
   Debug.Print "Seek " & rst.Supports(adSeek)
   rst.Close
   Set rst = Nothing

End Sub

</source>