ADODB数据分页查询提高数据显示速度

最新推荐文章于 2017-11-22 10:44:17 发布

原创最新推荐文章于 2017-11-22 10:44:17 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #网络

开发技术专栏收录该内容

0 篇文章

订阅专栏

为解决因数据量增大导致的系统响应慢问题，本文介绍了一种在VB应用程序中实现订单管理数据分页显示的方法。通过使用ADO控件结合VSFlexGrid组件，有效地提升了系统性能。

公司订单管理系统运行大半年了，订单数据越来越多，加上每条数据显示的同时必须查询数个相应的变色条件，公司里的老爷机逐渐吃不消了，刷新一次数据得等上好一会。没办法，只好采用分页显示处理数据了。下面是用ado控件+VSFlexGrid的处理方式：

Adodc11.Recordset.PageSize = 每页显示数据量
Page = 1 '数据默认定位到第一页
Label10.Caption = "每页N条数据,一共 " & Adodc11.Recordset.PageCount & " 页," & "当前第 " & Page & " 页" '信息提示

VSFlexGrid2.Rows = 1

VSFlexGrid2.RowHeight(0) = 0 '初始化VSFlexGrid
Adodc11.Recordset.AbsolutePage = Page '默认第一页

For iPage = 1 To Adodc11.Recordset.PageSize '这里是在VSFlexGrid中循环显示数据
VSFlexGrid2.AddItem Row
If Adodc11.Recordset.Fields("订单号") <> "" Then VSFlexGrid2.TextMatrix(iPage, 1) = Adodc11.Recordset.Fields("订单号")
... ...

... ...
VSFlexGrid2.RowHeight(iPage) = 320 '定义VSFlexGrid行高
Adodc11.Recordset.MoveNext
If Adodc11.Recordset.EOF Then Exit For '显示完即刻跳出循环

网络上很多都是网页中的数据分页显示技巧，纯VB中的较少，希望这个处理方法对有需要的朋友有所帮助 ^_^