Move the resultset cursor with MoveNext method : Recordset Cursor « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. Recordset Cursor

Move the resultset cursor with MoveNext method

 
Sub cursorMove()
   Dim conn As ADODB.Connection
   Dim myRecordset As ADODB.Recordset

   Set conn = New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\mydb.mdb"

   Set myRecordset = New ADODB.Recordset
   With myRecordset
      .Open "Customers", conn, adOpenKeyset, adLockOptimistic
      .Filter = "City='Madrid' and Country='Spain'"
   End With

   Do Until myRecordset.EOF
      Debug.Print myRecordset.Fields(1).Value
      myRecordset.MoveNext
   Loop

   myRecordset.Close
   Set myRecordset = Nothing
   conn.Close
   Set conn = Nothing
End Sub








Related examples in the same category

1.Navigate through a recordset
2.Moving Around in a Recordset
3.Move cursor in a Recordset with MoveNext
4.Supplying the CursorType as a Parameter of the Open Method
5.Using the Recordset Movements() Methods on a Recordset Object
6.Moving Through the Records in a Recordset:MoveFirst - To the first record in a recordset
7.Moving Through the Records in a Recordset:MoveLast - To the last record in a recordset
8.Moving Through the Records in a Recordset:MovePrevious - To the previous record in a recordset
9.Moving Through the Records in a Recordset:MoveNext - To the next record in a recordset
10.Set CursorType to adOpenForwardOnly
11.Set CursorType to adOpenStatic
12.Set CursorType to adOpenKeyset
13.Set CursorType to adOpenDynamic
14.Supplying the CursorType as a Property of the Recordset Object
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: