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

附件下载（在阅读原文里下载）

 

        在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