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>