做法:
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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。