查询数据库sid_name（查询MDB数据库中的信息）

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"。

　　免责声明：本文由用户上传，与本网站立场无关。财经信息仅供读者参考，并不构成投资建议。投资者据此操作，风险自担。 如有侵权请联系删除！