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

　　Dim rs As New ADODB.Recordset

　　Dim page As Integer

　　Dim pubdatapath As String

　　Sub opendatabase(datapath As String) '打开数据库函数

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

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

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

　　End If

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

　　link1.Open

　　pubdatapath = datapath

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

　　tablename = ""

　　Do Until biaoming.EOF

　　If biaoming("table_name") <> tablename Then '列出所有表

　　tablename = biaoming("table_name")

　　list1.ListItems.Add , , tablename

　　End If

　　biaoming.MoveNext

　　Loop

　　Set biaoming = Nothing

　　menu1.Enabled = True

　　list1_MouseUp 1, 0, 10, 10

　　End Sub

　　Private Sub Command1_Click() '打开数据库

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

　　d.InitDir = App.Path

　　d.FileName = ""

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

　　d.ShowOpen

　　If d.FileName = "" Then Exit Sub

　　opendatabase d.FileName

　　End Sub