Excel +VBA +ADO+Access数据库分页显示

新建类模块PageHelper


Option ExplicitDim rs As ADODB.Recordset
Dim rsds As ADODB.Recordset
Dim rsPage As Long  '当前处于第几页
Dim labelName As String'分页查询Sub queryPageFromRS(r As ADODB.Recordset, lbName As String)rsPage = 1labelName = lbNameSet rs = rCall addrows(rsPage) '调用子过程显示第一页记录End Sub'分页查询Sub queryPage(sql As String, lbName As String)rsPage = 1labelName = lbNameDim cba As New DBhelperSet rs = cba.query(sql)Call addrows(rsPage) '调用子过程显示第一页记录End SubPrivate Sub clearContents()Range("A4:AA18").clearContentsEnd Sub
Private Sub addrows(mypage As Long)On Error Resume NextDim i As Long, j As LongDim num As Long, endrow As Long  '记数'创建局部recorset对象rsds,保存rs 记录集中当前页的数据Set rsds = New ADODB.RecordsetFor i = 0 To rs.fields.Count - 1'append追加的意思，字段名称，字段类型，字段大小rsds.fields.Append rs.fields(i).Name, rs.fields(i).Type, rs.fields(i).DefinedSizeNext'打开局部recorset 对象rsdsrsds.Openrs.PageSize = 15 '重置rs 每页显示的记录条数(pagesize 表示记录集的每页的记录条数)rs.AbsolutePage = mypage '重置rs的当前记录页(跳到这页的第一条记录）'当rs 的当前记录页保存到rsds 之中For i = 1 To CLng(rs.PageSize)If rs.EOF Then Exit Forrsds.AddNew '添加一条记录For j = 0 To rs.fields.Count - 1rsds.fields(j).value = rs.fields(j).valueNext jrs.MoveNextNext irsds.MoveFirst '定位到第一条记录clearContents'添加记录i的类型在32位系统自动为integer或long，在64位自动为longlong,数据转换,不然会编译错误类型不匹配For i = 4 To CLng(rsds.RecordCount) + 3num = num + 1Cells(i, 1) = IIf(mypage > 1, num + rs.PageSize * (mypage - 1), num)Cells(i, rsds.fields.Count + 1) = CStr(rsds.fields(0))For j = 1 To rsds.fields.Count - 1Cells(i, j + 1) = rsds.fields(j)If rsds.fields(j).Type = adDate ThenCells(i, j + 1).NumberFormatLocal = "YYYY-MM-DD"End IfNext jrsds.MoveNextNext i' ActiveSheet.OLEObjects(labelName).Object.caption = "第 " & mypage & "/" & rs.PageCount & " 页,共" & rs.RecordCount & "条记录"
ActiveSheet.Shapes(labelName).TextFrame.Characters.Text = "第 " & mypage & "/" & rs.PageCount & " 页,共" & rs.RecordCount & "条记录"'  plabelText = "第 " & mypage & "/" & rs.PageCount & " 页,共" & rs.RecordCount & "条记录"' lb = ActiveSheet.OLEObjects(labelName).Object'endrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row
'If endrow > 3 ThenWith Range("A4" & ":AA18").Borders.LineStyle = xlContinuous.Weight = xlThin.ColorIndex = 37End With
'End IfEnd Sub'切换到第一页Sub dyy_Click()rsPage = 1Call addrows(rsPage)End Sub
'切换到上一页Sub syy_Click()If rsPage > 1 And CLng(rs.PageCount) > 0 ThenrsPage = rsPage - 1Call addrows(rsPage)End IfEnd Sub'切换到下一页Sub xyy_Click()If rsPage <> CLng(rs.PageCount) And CLng(rs.PageCount) > 0 ThenrsPage = rsPage + 1Call addrows(rsPage)End IfEnd Sub
'切换到最末页Sub zmy_Click()'64位longlong类型 转换32位为longrsPage = CLng(rs.PageCount)Call addrows(rsPage)End SubPrivate Sub Class_Terminate()
Set rs = Nothing
Set rsds = Nothing
End Sub

Excel +VBA +ADO+Access数据库分页显示相关推荐

vba ado 执行多条mysql 语句,Excel VBA+ADO+SQL入门教程003：SQL查询中字段技巧的总结...
原标题:Excel VBA+ADO+SQL入门教程003:SQL查询中字段技巧的总结本章概要: 1,几个概念 1.1, 数据库和Excel工作簿 1.2,数据表和Excel工作表 1.3,记录.字段 ...
vba读取服务器accsess文件,vba 服务器 access数据库
vba 服务器 access数据库内容精选换一换创建外部服务器,用于定义OBS服务器的信息,供外表调用.创建外部服务器的详细语法,请参见CREATE SERVER.如果您将使用普通用户在自定义数 ...
VBA 连接Access数据库和Excle
VBA 连接数据库步骤: 1.创建连接对象 2.打开连接 3.执行SQL 4.关闭连接 5.释放连接对象前提:在[工具]>[引用]ADO库 Sub conDatabase()Dim con A ...
Excel VBA 链接 Oracle数据库
标题前言准备第一步远程数据库的准备第二步本地免安装客户端下载 1.下载基本包 1.1 包下载地址 1.2 网盘下载地址 2.配置oracle 网络文件 2.1tnsnames.ora 文件 ...
access数据库导入oracle数据库,将excel表格导入access数据库再导入oracle数据库方法-如何将ACCESS数据库的文件导入到ORACLE中？...
怎样将excel中的数据导入到oracle数据库中敢问楼主,表A存在几列,表B存在几列,表C存在几列常规方法(表中列和excel中列一致) PLSQL 中 : select * from A up ...
ASP excel导出/导入Access数据库(代码+实例下载)
Excel导出函数 <% Sub ExportToExcel Response.ContentType = "application/vnd.ms-Excel" ...
Android实现将Excel文件导入sqllite数据库并显示到界面
我们在做Android时通常使用安卓系统自带的sqllite数据库,然而sqllite数据库不像Access.MYSQL等其他数据库,可以直接将数据大量的复制粘贴.我们下载的SQLite Expert ...
vba 连接access数据库方法二
Sub 连接数据库() '第一步,引用ADO 工具,工具->引用->microsoft ActiveX Data Objects 6.1 Library '第二步,创建连接对象 '1 .声 ...
VBA 连接ACCESS数据库
在外部进行变量声明 Public connectionString As String '连接数据库语句 Public SQL As String Public con As ADODB.Connec ...

Excel +VBA +ADO+Access数据库分页显示

Excel +VBA +ADO+Access数据库分页显示相关推荐

最新文章

热门文章