基于VB6+ADO+ListView制作的一个数据库分页显示程序（完整原程序）

最新推荐文章于 2020-03-01 14:47:16 发布

lshdic

最新推荐文章于 2020-03-01 14:47:16 发布

阅读量2.5k

点赞数 1

文章标签：数据库 listview vb list integer table

本文链接：https://blog.csdn.net/lshdic/article/details/18548

版权

这是一个使用VB6、ADO和ListView控件实现的数据库分页显示程序，可在WIN98上运行。用户可以打开数据库，切换表格，进行下一页、上一页操作，还提供了查询功能。程序包含完整的源代码，适合学习和测试。

摘要由CSDN通过智能技术生成

数据库数据显示演示程序，在WIN98调试通过，详细请自行下载进行学习测试，程序大小29K

完整原程序下载地址:http://www.lshdic.com/download/lshdic/vb_adoread.zip

代码浏览：

Dim link1 As New ADODB.Connection
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.Show