十万条Access数据表分页的两个解决方法
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了十万条Access数据表分页的两个解决方法,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含1130字,纯文字阅读大概需要2分钟。
内容图文
![十万条Access数据表分页的两个解决方法](/upload/InfoBanner/zyjiaocheng/385/71c3639b36164566b54c255821842fb2.jpg)
解决方法一:
1.设置一个自增长字段.并且该字段为INDEX.
2.由于是 ACCESS ,所以,只能是前台分页.自增长字段目的,就是为了实现分页功能.
1> 记录用户前页的最后一个 自增值 ,例如 M .
2> 下一页,取下一页的开始值.M+1 ,结束值: M+1+1.5*PAGESIZE (注:由于数据库会有增删操作,故应该取页大小应该有一个系数,你可以根据情况自定一个1大的系数.
3> 前台循环取 RS 的前 PAGESIZE 条, 写到一个 新的RS中,并返回.
注:新的RS是一个无连接的RS .
解决方法二:
十万条记录不是 Access 数据库的极限。何况你的方法不是真正意义上的分页(应当利用 PageSize 和 AbsolutePage 属性)。
VBScript code
代码如下:
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.PageSize = 20
rs.Open "Select * From 客", iConc, adOpenKeyset, adLockOptimisticlng
Pages = rs.PageCount
lngCurrentPage = 1
此时打开的记录集只有 20 条记录。
翻页时:
代码如下:
If lngCurrentPage < lngPages Then
lngCurrentPage = lngCurrentPage + 1
rs.AbsolutePage = lngCurrentPage
End If
内容总结
以上是互联网集市为您收集整理的十万条Access数据表分页的两个解决方法全部内容,希望文章能够帮你解决十万条Access数据表分页的两个解决方法所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。