社区
数据库(包含打印,安装,报表)
帖子详情
VB怎样才能实现高效分页!
prominent
2006-02-16 08:05:06
由于最近在写一个小的程序,,,
但数据量很大。
估计有10W条,有没有什么好的分页方法呀!
程序是在查询时将Rs绑定到DataGrid控件。
望高手指点一下呀。谢了呀。。。
...全文
159
7
打赏
收藏
VB怎样才能实现高效分页!
由于最近在写一个小的程序,,, 但数据量很大。 估计有10W条,有没有什么好的分页方法呀! 程序是在查询时将Rs绑定到DataGrid控件。 望高手指点一下呀。谢了呀。。。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lxf_gd
2006-02-21
打赏
举报
回复
如果只是显示,可以采用报表的形式嘛。用快乐报表(www.happyreport.com)就轻松搞定啦!
vbman2003
2006-02-17
打赏
举报
回复
用SQL语句,这样最快:
select top 30 * from tb where id between 101 and 130 order by id
vansoft
2006-02-17
打赏
举报
回复
10萬條每次分頁都要去取出來再顯示,
是不是有點累啊?
可以通過一個數字類型的列和TOP來用SQL語句取第幾條到第幾條。
prominent
2006-02-16
打赏
举报
回复
谢了...
楼上的....
faysky2
2006-02-16
打赏
举报
回复
参考(DataGrid分页):
一个datagrid,一个文本框txtPage,两个按钮cmdPrevious,cmdNext
窗体代码
Option Explicit
Dim conn As ADODB.Connection
Dim lCurrentPage As Long
Private Sub cmdNext_Click()
lCurrentPage = lCurrentPage + 1
Call Loadcontrol(lCurrentPage)
End Sub
Private Sub cmdPrevious_Click()
If lCurrentPage > 1 Then
lCurrentPage = lCurrentPage - 1
Call Loadcontrol(lCurrentPage)
End If
End Sub
Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test2000.mdb;"
lCurrentPage = 1
Call Loadcontrol(lCurrentPage)
End Sub
Private Sub Loadcontrol(lPage As Long)
On Error Resume Next
Dim adoPrimaryRS As ADODB.Recordset
Dim lPageCount As Long
Dim nPageSize As Integer
Dim lCount As Long
'每页显示的纪录
nPageSize = 10
Set adoPrimaryRS = New ADODB.Recordset
adoPrimaryRS.Open "select * from numbers", conn, adOpenStatic, adLockOptimistic
adoPrimaryRS.PageSize = nPageSize
'页数
lPageCount = adoPrimaryRS.PageCount
If lCurrentPage > lPageCount Then
lCurrentPage = lPageCount
End If
adoPrimaryRS.AbsolutePage = lCurrentPage
'定义另一个记录集
Dim objrs As New ADODB.Recordset
'添加字段名称
For lCount = 0 To adoPrimaryRS.Fields.Count - 1
objrs.Fields.Append adoPrimaryRS.Fields(lCount).Name, adVarChar, adoPrimaryRS.Fields(lCount).DefinedSize
Next
'打开记录集
objrs.Open
'将指定记录数循环添加到objrs中
For lCount = 1 To nPageSize
objrs.AddNew
objrs.Fields("id") = adoPrimaryRS.Fields("id")
objrs.Fields("anumber") = adoPrimaryRS.Fields("anumber")
adoPrimaryRS.MoveNext
Next
'绑定
Set DataGrid1.DataSource = objrs
'在文本框显示页数
txtPage = lPage & "/" & adoPrimaryRS.PageCount
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Not conn Is Nothing Then
conn.Close
End If
Set conn = Nothing
End Sub
'文本框中输入页数,回车跳转到指定位置
Private Sub txtPage_KeyDown(KeyCode As Integer, Shift As Integer)
lCurrentPage = Val(txtPage.Text)
Call Loadcontrol(lCurrentPage)
End Sub
prominent
2006-02-16
打赏
举报
回复
所以就要用到分页的呀...
我是想问问哪一种分页方法比较高效...
否则,查询数据库肯定会死人的...
路过的看一下撒呀..
小弟在此谢过了..在线等...
frankwong
2006-02-16
打赏
举报
回复
一个网格要显示这么多条记录干嘛?
计算机二级(
VB
)
计算机二级(
VB
)教程,全面、系统、细致地介绍了计算机二级(
VB
)的相关知识点。 课程能够帮助学习者快速入门。 该课程面向对象: 备考计算机二级(
VB
)的课程 备课期末考试 自学
VB
程序设计 课程注意提高学习者实战...
DataGrid基于Access的快速
分页
法
DataGrid基于Access的快速
分页
法 撰文/ 黎波 DataGrid是一个功能非常强大的ASP.NET Web服务器端控件,它...
实现
DataGrid的
分页
功能一直是很多初学ASP.NET的人感到棘手的问题,特别是自定义
分页
功能,
实现
方...
asp毕业设计——基于
vb
+
VB
.NET+SQL Server的网上图书预约系统设计与
实现
(毕业论文+程序源码)——图书预约系统
大家好,今天给大家介绍基于
vb
+
VB
.NET+SQL Server的网上图书预约系统设计与
实现
,文章末尾附有本毕业设计的论文和源码下载地址哦。文章目录: 项目难度:中等难度 适用场景:相关题目的毕业设计 配套论文字数:11106...
VB
速查大全(数据库、表格及报表编程) ★
VB
错误处理,ado常见错误,
VB
数据类型等,网上有很多教程是错的,强烈建议看此文
VB
异常处理 (很重要) ado常见错误 ado游标及锁定介绍 免费报表控件 免费表格控件
vb
数据类型(很多程序出问题出在这个,一定要看,
VB
msdn说的不太...有
vb
RichClient代替winsock、
实现
vb
多线程及远程调用activeX等
基于ASP.NET的自定义
分页
显示
摘要:本文针对WEB数据库记录的显示问题,用实例讨论了在ASP.NET框架下使用DataGrid控件对数据库记录的一种自定义
分页
显示。 关键词:WEB数据库;ASP.NET;DataGrid;
分页
引言 在用户进行数据查询时通常有这样的...
数据库(包含打印,安装,报表)
1,216
社区成员
55,954
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章