UC知道VB连接access代码的问题
来源：百度知道 编辑：UC知道 时间：2024/05/25 14:07:55
VB原程序里是用 db.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=xjgl.mdb;"连接的ACCESS，但是access版本是1995，现在想连access2003，应该怎么办
这是连接的代码
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=xjgl.mdb;"
Set adoPrimaryRS = New Recordset
a = Text1.Text
b = Text2.Text
adoPrimaryRS.Open "select * from user where 用户名='" & a & "' and 密码='" & b & "'", db, adOpenStatic, adLockOptimistic
改成这个Provider=Microsoft.jet.OLEDB.4.0，运行不了，提示运行时错误‘-2147467259 （80004005）‘
这是连接的代码
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=xjgl.mdb;"
Set adoPrimaryRS = New Recordset
a = Text1.Text
b = Text2.Text
adoPrimaryRS.Open "select * from user where 用户名='" & a & "' and 密码='" & b & "'", db, adOpenStatic, adLockOptimistic
改成这个Provider=Microsoft.jet.OLEDB.4.0，运行不了，提示运行时错误‘-2147467259 （80004005）‘
Provider=Microsoft.jet.OLEDB.4.0 这样改就可以了
你的电脑安装有ACCESS 2003 吗 ？
'你的问题应该是还没将Access的数据库转换成2003Format.
'首先打开数据库并选Tools-Database Utilities-Convert Database-To Access 2002-2003 file Format.另存名称就可以了。
'实例：
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\456.mdb"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select name from 123"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
在VB里引用XX．jet．XXX。。。试试。。