Sort 属性范例 (VB)

本范例使用 Recordset 对象的 Sort 属性来调整 Recordset 行的顺序，该 Recordset 来自 Pubs 数据库的 Authors 表。辅助实用程序例程将打印每一行。

Sub Main()
    SortX
End Sub

Public Sub SortX()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

rst.CursorLocation = adUseClient
cnn.Open "DSN=Pubs;Provider=MSDASQL;uid=sa;pwd=;"
rst.Open "SELECT * FROM Authors", cnn, _
            adOpenStatic, adLockReadOnly, adCmdText
SortXprint "Initial Order", rst

rst.Sort = "au_lname ASC, au_fname ASC"
SortXprint "Last Name Ascending", rst

rst.Sort = "au_lname DESC, au_fname ASC"
SortXprint "Last Name Descending", rst

rst.Close
cnn.Close
End Sub

下面是打印指定 Recordset 中给定标题和内容的辅助实用程序例程。

Public Sub SortXprint ( title As String, rstp As ADODB.Recordset )
Debug.Print "---------------" & title & "---------------"
Debug.Print "First Name  Last Name" & vbCr & _
                "---------------------------------------------------"
rstp.MoveFirst
While Not rstp.EOF
    Debug.Print rstp!au_fname & " " & rstp!au_lname
    rstp.MoveNext
Wend
Debug.Print
End Sub