数据在窗体中的翻页

最新推荐文章于 2022-04-08 05:49:03 发布

no_com

最新推荐文章于 2022-04-08 05:49:03 发布

阅读量988

点赞数 1

CC 4.0 BY-SA版权

分类专栏： visual basic 文章标签： command integer security 数据库 vb

本文链接：https://blog.youkuaiyun.com/no_com/article/details/14501

这篇博客介绍了如何在VB6环境中利用Mshflexgrid控件实现数据库记录的翻页功能。通过两个Command按钮来控制上下翻页，代码示例中展示了如何连接到Access数据库，设置记录集的分页，以及在控件中显示数据。翻页功能通过调整Recordset对象的AbsolutePage属性来实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

用mshflexgrid控件实现数据库翻页
========================
打开vb6.0
在窗体中加入2个command控件,1个mshflexgrid控件
代码：
-----------------------------
Dim intpage As Integer

Private Sub Command1_Click()
intpage = intpage - 1
page intpage
End Sub

Private Sub Command2_Click()

intpage = intpage + 1
page intpage
End Sub

Sub page(intpagecount As Integer)
On Error Resume Next
Dim cn As New ADODB.Connection
Dim cm As New ADODB.Command
Dim rs As New ADODB.Recordset
MSHFlexGrid1.Clear
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "/Students.mdb"
cn.Open
cm.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.Open "select * from 新生入学信息表 ", cn, adOpenDynamic, adLockBatchOptimistic
rs.PageSize = 10
If intpagecount > rs.PageCount Then
intpagecount = rs.PageCount
End If
If intpagecount < 1 Then
intpagecount = 1
End If