Mega Code Archive

 

Categories / VisualBasic Script / Access

 

The Supports Method of the Recordset Object

Sub SupportsMethod()     Dim rst As ADODB.Recordset     Set rst = New ADODB.Recordset          rst.ActiveConnection = CurrentProject.Connection     rst.CursorType = adOpenStatic     rst.LockType = adLockOptimistic     rst.CursorLocation = adUseServer     rst.Open Source:="Select * from Employees ", _         Options:=adCmdText     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