分页显示记录正如我们在大学里选课时遇到的,每页显示多少科目,共有多少页。其实,这里主要用到的是Data
Grid控件。接下来我来介绍一下关于它的知识。
一.原理:将原记录页的数据复制到一个新的记录集中,再将其绑定到Data Grid控件上,这样就能显示原记录页中的所有数据了!正如,我们要将母鸡下的蛋放进篮子里,我们吃的时候要从篮子里拿一样!
这里的新纪录集就相当于篮子!
二、关于Data Grid控件
pagesize:一个记录中包含记录的个数
pagecount:返回一个记录集的记录页总数
absolutepage:返回当前记录页编号
三、编写流程
四、关于分页显示部分代码解析
public sub showdata(byval intpage as integer)
'实现分页显示记录功能
dim objdatasource as new recordset 'objdatasource
’相当于原理中的篮子,即新的记录集
dim intpagecount as integer,intrecord as integer
'intpagecount表示共有多少条记录
’intrecord表示第几条记录
for intrecord = 0 to objrs.field.count-1
'表示记录的字段数
objdataresource.fields.appendobjrs.fields(intrecord).name ,advarchar,objrs.fields (inttecord).definedsize'插入字段名append为插入方法
'objrs相当于原记录集
next
......
end sub
*******************
本文链接:https://blog.csdn.net/dzweather/article/details/8884387
做法:
1、取得原始的整个记录集rs1,并对其设置分页大小。
2、创建一个新记录集rs2,把rs1上相应页面上的记录复制到rs2上。
3、在表格上显示rs2,这样就是一个页面的记录集。
'20130504 白话魔法师
Dim cn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset '原始记录集
Dim rs2 As New ADODB.Recordset '每个页面的记录集
Dim intPage As Integer '当前页数
Private Sub Command1_Click()
Dim s As String
If intPage < rs1.PageCount Then '指定页面,每点一下就是下一个页面
intPage = intPage + 1
Else
MsgBox "已经是最后一页"
End If
Call rsPage(rs1, intPage) '调用分页显示
End Sub
Private Sub Form_Load()
intPage = 0
hfg.FixedCols = 0
hfg.Height = hfg.RowHeight(0) * 6 + 290 + 20
hfg.Width = hfg.CellWidth * 6 + 30 * 6
cn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=book;Data Source=ZHENG"
rs1.Open "select * from 书名", cn, adOpenKeyset, adLockOptimistic, adCmdText
rs1.PageSize = 6
End Sub
Private Sub rsPage(ByRef rsFirst As Recordset, ByVal intPageNumber As Integer)
Dim i As Integer, j As Integer
For i = 0 To rsFirst.Fields.Count - 1 '创建新表rs2,加入相关字段
rs2.Fields.Append rsFirst.Fields(i).Name, rsFirst.Fields(i).Type, rsFirst.Fields(i).DefinedSize, rsFirst.Fields(i).Attributes
Next i
rs2.Open
rsFirst.AbsolutePage = intPageNumber
For i = 1 To rsFirst.PageSize '把相应页的数据复制到新表rs2中
rs2.AddNew
For j = 0 To rsFirst.Fields.Count - 1
rs2.Fields(j) = rsFirst.Fields(j)
Next j
rs2.Update
rsFirst.MoveNext
If rsFirst.EOF Then Exit For '判断是否到结尾,因为最后一面,可能不是整个大小
Next i
Set hfg.DataSource = rs2
rs2.Close
End Sub
————————————————
版权声明:本文为CSDN博主「dzweather」的原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/dzweather/article/details/8884387