为什么我连不上ACCESS数据库?我编写的模块如下Public Function ConnectToServer() As Boolean
On Error GoTo connecterr
'连接到ACCESS
g_DBCon.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=D:\ACSDB\emp.mdb;" & _
"Mode=ReadWrite"
g_DBCon.ConnectionTimeout = 30 '30秒等待时间
g_DBCon.Open '打开连接
ConnectToServer = True
Exit Function
'错误处理
connecterr:
ConnectToServer = False
MsgBox "错误代码:" & Err.Number & vbCrLf & _
"错误描述:" & Err.Description, vbCritical + vbOKOnly, "连接错误"
End Function引用了 MS ADO 2.5 Library但是使用的时候出现“Unrecognized database format 'D:\ACSDB\emp.mdb' ”
这个文件是我用ACCESS建立的空数据库文件。
On Error GoTo connecterr
'连接到ACCESS
g_DBCon.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=D:\ACSDB\emp.mdb;" & _
"Mode=ReadWrite"
g_DBCon.ConnectionTimeout = 30 '30秒等待时间
g_DBCon.Open '打开连接
ConnectToServer = True
Exit Function
'错误处理
connecterr:
ConnectToServer = False
MsgBox "错误代码:" & Err.Number & vbCrLf & _
"错误描述:" & Err.Description, vbCritical + vbOKOnly, "连接错误"
End Function引用了 MS ADO 2.5 Library但是使用的时候出现“Unrecognized database format 'D:\ACSDB\emp.mdb' ”
这个文件是我用ACCESS建立的空数据库文件。
public mDBpath As String
On Error GoTo connecterr
mDBpath="D:\ACSDB\emp.mdb"
'连接到ACCESS
g_DBCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mDBpath & ";Persist Security Info=False" g_DBCon.ConnectionTimeout = 30 '30秒等待时间
g_DBCon.Open '打开连接
ConnectToServer = True
Exit Function
'错误处理
connecterr:
ConnectToServer = False
MsgBox "错误代码:" & Err.Number & vbCrLf & _
"错误描述:" & Err.Description, vbCritical + vbOKOnly, "连接错误"
End Function
provider=Microsoft.Jet.OLEDB.3.51 只支持office97,不支持office2000
你把你的数据库转成ACCESS97就可以了