附件下载
在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