神马品牌网剑网三唐门飞星:请帮我看看错在那里！VB与ACCESS数据库连接！
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 05:09:59
Private Sub Command1_Click()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path & "mysystem\db1.mdb")
Set rs = db.OpenRecordset("select * from gui")
lable1.Caption = rs.Fields(1) & ""
End Sub
系统提示can't load msjter35.dll!!!
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path & "mysystem\db1.mdb")
Set rs = db.OpenRecordset("select * from gui")
lable1.Caption = rs.Fields(1) & ""
End Sub
系统提示can't load msjter35.dll!!!
msjter35.dll是微软Microsoft Jet数据库引擎相关文件
知道你的错误了吗？
其实你的代码没有错误。是你的系统缺少msjter35.dll，或者是msjter35.dll没有注册！
注册msjter35.dll试下！