如何用ado recordset的sort 属性对字段按降序排列.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 36 行

看到Sort属性的格式就是： 
    字段1 DESC 字段2 ASC ... 
    其中ASC表示升序，DESC表示降序。排在前面的字段优先。 
    下面是来自MSDN的一个例子： 
    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 
     
    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 
<END>