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

VB6+ADO+ListView数据库分页显示,第1张

VB6+ADO+ListView数据库分页显示,第2张

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

位律师回复
DABAN RP主题是一个优秀的主题,极致后台体验,无插件,集成会员系统
白度搜_经验知识百科全书 » VB6+ADO+ListView数据库分页显示

0条评论

发表评论

提供最优质的资源集合

立即查看 了解详情