Move cursor in result set : Recordset « Access « VBA / Excel / Access / Word






Move cursor in result set

 
Sub MyFirstConnection3()
    Dim myConnection As ADODB.Connection
    Dim myRecordset As ADODB.Recordset
    Dim strSQL As String
    
    strSQL = "SELECT FirstName, LastName FROM Employees"
    Set myConnection = CurrentProject.Connection
    
    Set myRecordset = New ADODB.Recordset
    myRecordset.Open strSQL, myConnection
    
    Do Until myRecordset.EOF
       Debug.Print myRecordset.Fields("FirstName") & " " & _
                   myRecordset.Fields("LastName")
       myRecordset.MoveNext
    Loop
    myRecordset.Close
    myConnection.Close
    Set myConnection = Nothing
    Set myRecordset = Nothing
End Sub

 








Related examples in the same category

1.Looping Through a Recordset
2.Retrieve data from Recordset by table column name
3.Build a string text from result set
4.Creating a Custom Recordset
5.Creating a Disconnected Recordset
6.Filling a Combo Box with a Disconnected Recordset
7.The Supports Method of the Recordset Object
8.Using the EOF Property to Determine the Bounds of a Recordset
9.A Recordset That Does Not Support the RecordCount Property
10.A Recordset That Supports the RecordCount Property
11.Whether Records Are Returned in a Recordset
12.The Sort Property of the Recordset Object
13.Using the AbsolutePosition Property
14.Using the Bookmark Property
15.Refreshing Recordset Data
16.Assigning Recordsets Dynamically to a form
17.Set recordset to form
18.Row order in Dynamic Recordset
19.Dynamic Recordset
20.Snapshot Recordset
21.Set Index and seek the recordset