将查询中的字段设置为排序依据（2）

时　间:2017-07-11 08:19:00
作　者:杨雪   ID：42182  城市：南京
摘　要:通过查询排序数据：Sort属性、CursorLocation属性,Requery方法
正　文:

在ADO中，可以针对CursorLocation属性值为“adUseClient”的Recordset进行排序。由于链接到Access资料库中取得的Recordset的默认值为“adUseServer”，所以在取得Recordset之前，需要先更改CursorLocation属性的值为“adUseClient”，具体语法：

[记录集]. CursorLocation= adUseClient

在ADO中，对记录集中的记录排序依旧是使用Sort属性来完成的。

效果图：

源码：

Private Sub cmd_排序_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
'连接到当前项目，将游标服务设置在客户端
    Set cn = CurrentProject.Connection
    rs.cursorlocation = aduseclient
'根据查询"Q_员工工资"得到记录集
    rs.Open "Q_员工工资", cn, adopenkeyset, adlockoptimistic
'根据“姓名”排序
    rs.Sort = "职务"
'将排序结果设置到窗体中
    Set Me.Recordset = rs
    Me.Requery
'关闭记录集和资料库
    rs.Close: Set rs = Nothing
    cn.Close: Set cn = Nothing
End Sub