VB6 ADO ListView数据库分页显示_VisualBasic教程

Dimlink1AsNewADODB.Connection

DimrsAsNewADODB.Recordset

DimpageAsInteger

DimpubdatapathAsString

Subopendatabase(datapathAsString)'打开数据库函数

page=1'首次定义打开时的页码为1

Iflink1.State=1Then'如果以连接过，则关闭，初始化下次事务

link1.Close:list2.ListItems.Clear:list2.ColumnHeaders.Clear:c.Clear:list1.ListItems.Clear

EndIf

link1.ConnectionString="Provider=microsoft.jet.oledb.4.0;datasource="&datapath

link1.Open

pubdatapath=datapath

Setbiaoming=link1.OpenSchema(adSchemaColumns)'创建数据库记录集

tablename=""

DoUntilbiaoming.EOF

Ifbiaoming("table_name")<>tablenameThen'列出所有表

tablename=biaoming("table_name")

list1.ListItems.Add,,tablename

EndIf

biaoming.MoveNext

Loop

Setbiaoming=Nothing

menu1.Enabled=True

list1_MouseUp1,0,10,10

EndSub

PrivateSubCommand1_Click()'打开数据库

d.DialogTitle="打开一个数据库文件进行浏览"

d.InitDir=App.Path

d.FileName=""

d.Filter="Access数据库(mdb后缀,推荐格式) *.mdb"

d.ShowOpen

Ifd.FileName=""ThenExitSub

opendatabased.FileName

EndSub

PrivateSubCommand4_Click()

str1=InputBox("请输入一个1-5000之间的数字","重设",Text1.Text)

Ifstr1=Text1.TextOrstr1=""ThenExitSub

IfIsNumeric(str1)=FalseThenExitSub

Ifstr1>5000Orstr1<1ThenExitSub