The Sort Property of the Recordset Object

 
Sub SortRecordset()
    Dim intCounter As Integer
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset

    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorLocation = adUseClient
    rst.Open "Select * from Employees"

    Debug.Print "NOT Sorted!!!"
    Do Until rst.EOF
        Debug.Print rst("EmployeeID")
        rst.MoveNext
    Loop

    Debug.Print "Now Sorted!!!"
    rst.Sort = "[EmployeeID]"
    Do Until rst.EOF
        Debug.Print rst("EmployeeID")
        rst.MoveNext
    Loop

    rst.Close
    Set rst = Nothing
End Sub

1.	Looping Through a Recordset
2.	Retrieve data from Recordset by table column name
3.	Move cursor in result set
4.	Build a string text from result set
5.	Creating a Custom Recordset
6.	Creating a Disconnected Recordset
7.	Filling a Combo Box with a Disconnected Recordset
8.	The Supports Method of the Recordset Object
9.	Using the EOF Property to Determine the Bounds of a Recordset
10.	A Recordset That Does Not Support the RecordCount Property
11.	A Recordset That Supports the RecordCount Property
12.	Whether Records Are Returned in a Recordset
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

The Sort Property of the Recordset Object : Recordset « Access « VBA / Excel / Access / Word

Related examples in the same category