?? 如何用ado recordset的sort 屬性對字段按降序排列.txt
字號:
看到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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -