将查询中的字段设置为排序依据(2)-杨雪
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


将查询中的字段设置为排序依据(2)

发表时间:2017/7/11 8:19:00 评论(1) 浏览(7124)  评论 | 加入收藏 | 复制
   
摘 要:通过查询排序数据: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

 


Access软件网交流QQ群(群号:198465573)
 
 相关文章
在立即窗体中显示查询的结果  【杨雪  2016/9/20】
将查询中的字段设置为排序依据(1)  【杨雪  2016/10/11】
Access中ADO和DAO like查询的区别  【achao  2017/5/11】
不使用通配符查询包含某个数据的记录  【杨雪  2017/5/23】
常见问答
技术分类
相关资源
文章搜索
关于作者

杨雪

文章分类

文章存档

友情链接