VB6+ADO+ListView数据库分页显示

Dim link1作为新的ADODB。关系

Dim rs作为新ADODB。记录集

将页面调暗为整数

Dim pubdatapath作为字符串

子打开数据库(字符串形式的数据路径)'打开数据库功能

第一个定义打开时的页码是1

如果1。state = 1 then '如果与连接，关闭并初始化下一个事务。

链接1。关闭:列表2。ListItems.Clear: list2。c.Clear: list1。列表项。清除

如果…就会结束

链接1。ConnectionString = " Provider = Microsoft . jet . oledb . 4.0；数据源=" & datapath

链接1。打开

pubdatapath =数据路径

set biaoming = link 1 . open schema(adschemacolumns)'来创建数据库记录集。

tablename = " "

直到怀俄明。文件结束

if biaoming(" table _ name ")tablename则列出所有表

tablename = biaoming("table_name ")

列表1。列表项.添加，，表名

如果…就会结束

怀俄明州。下一步

环

设置biaoming =无

菜单1。启用=真

list1_MouseUp 1，0，10，10

末端接头

Privatecommand1 _ click()'打开数据库

D.DialogTitle = "打开数据库文件进行浏览"

d.InitDir = App。小路

d.文件名= " "

D.Filter = "Access数据库(mdb后缀，推荐格式)*。mdb "

d.ShowOpen

如果d.FileName = " "那么退出Sub

打开数据库d .文件名

End Sub