ORDER BY Clause Example (DAO)

ORDER BY Clause Example

The SQL statement shown in the following example uses the ORDER BY clause to sort records by last name in descending order (Z-A).

This example calls the EnumFields procedure, which you can find in the SELECT statement example.

Sub OrderByX()

    Dim dbs As Database, rst As Recordset

    ' Modify this line to include the path to Northwind

    ' on your computer.

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Select the last name and first name values from

    ' the Employees table, and sort them in descending

    ' order.

    Set rst = dbs.OpenRecordset("SELECT LastName, " _

        & "FirstName FROM Employees " _

        & "ORDER BY LastName DESC;")

    ' Populate the Recordset.

    rst.MoveLast

    ' Call EnumFields to print recordset contents.

    EnumFields rst, 12

    dbs.Close

End Sub