做法:
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