读取mdb数据库工具（查询MDB数据库中的信息）

大家好,小东方来为大家解答以上的问题。读取mdb数据库工具，查询MDB数据库中的信息这个很多人还不知道,现在让我们一起来看看吧！

1、Private Sub Command1_Click() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim ss As String Dim qs As String ss = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and Settingsp桌面a.mdb;Persist Security Info=False" ***.Open ss qs = "select * from a where id="&Val(Text1.Text) ***.Open qs, conn, 1, 3, -1 Label1.Caption = rs.Fields(1) Label2.Caption = rs.Fields(2) rs.Close conn.Close End Sub 注意你的qs赋值有问题! 你的库中id是什么类型.我用的是数字类型.用VB6.0通过测试.控件就是你以前那样的(command1,label1,label2,adodc1,text1). 数据库路径最好用相对路径.否则移置性不好.相对路径可用 app.path,表示应用程序的路径,你把a.mdb放在你编写程序的相同路径时.连接库代码可写成:ss = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&app.path&"a.mdb;Persist Security Info=False"。

本文到此分享完毕，希望对大家有所帮助。

免责声明：本文由用户上传，如有侵权请联系删除！