Navigate through a recordset : Recordset Cursor « Access « VBA / Excel / Access / Word






Navigate through a recordset

 

Public Sub RecordsetNavigation()

  Const SQL As String = "SELECT * FROM Customers"
    
  Const ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
    "Data Source=C:\mydb.mdb;Persist Security Info=False"

  Dim Recordset As Recordset
  Set Recordset = New Recordset
  Call Recordset.Open(SQL, ConnectionString, adOpenDynamic)
  
  Recordset.MoveLast
  
  While Not Recordset.BOF
    Debug.Print Recordset.Fields("CompanyName")
    Recordset.MovePrevious
  Wend
End Sub

 








Related examples in the same category

1.Move the resultset cursor with MoveNext method
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: