Supplying the CursorType as a Property of the Recordset Object

 
Sub StaticRecordset2()
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset

    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorType = adOpenStatic

    rst.Open "Select * from Employees"

    Debug.Print rst.RecordCount

    rst.Close
    Set rst = Nothing

End Sub

Related examples in the same category

1.	Navigate through a recordset
2.	Move the resultset cursor with MoveNext method
3.	Moving Around in a Recordset
4.	Move cursor in a Recordset with MoveNext
5.	Supplying the CursorType as a Parameter of the Open Method
6.	Using the Recordset Movements() Methods on a Recordset Object
7.	Moving Through the Records in a Recordset:MoveFirst - To the first record in a recordset
8.	Moving Through the Records in a Recordset:MoveLast - To the last record in a recordset
9.	Moving Through the Records in a Recordset:MovePrevious - To the previous record in a recordset
10.	Moving Through the Records in a Recordset:MoveNext - To the next record in a recordset
11.	Set CursorType to adOpenForwardOnly
12.	Set CursorType to adOpenStatic
13.	Set CursorType to adOpenKeyset
14.	Set CursorType to adOpenDynamic
15.	Designating the Cursor Location
16.	Set CursorLocation to adUseServer
17.	Set Cursor Location to adUseClient
18.	Check after using the MoveNext method whether the end of the file has been reached
19.	moves 5 records backward from the current record in a DAO recordset:

Supplying the CursorType as a Property of the Recordset Object : Recordset Cursor « Access « VBA / Excel / Access / Word

Related examples in the same category