Public cn As New ADODB.Connection
Public Function DBConnect1() As Boolean
On Error GoTo OpenErr
Dim MSDatabase
cn.ConnectionString = "uid=admin;pwd=;DRIVER={Microsoft Access Driver (*.mdb) };DBQ=" & App.Path & "\Data\WNFMail.mdb"
Debug.Print cn.ConnectionString
cn.Open
DBConnect1 = True
Exit Function
OpenErr:
MsgBox "Error Opening " & MSDatabase & vbNewLine & Err.Description, vbCritical, "Open Database Error"
DBConnect1 = False
End Function
为是么我用这种方法连接时总是出现一下错误啊。
工作组信息文件丢失或已被其他用户已独占方式打开。我的access数据库在本地。但我用下面的代码连接时就没有这种问题。
Public cn As ADODB.Connection
Public Function DBConnect() As Boolean
On Error GoTo OpenErr
Dim MSDatabase
Set cn = New ADODB.Connection
MSDatabase = App.Path & "\" & "Data" & "\" & "WNFMail.mdb"
cn.CursorLocation = adUseClient
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
Debug.Print MSDatabase
cn.Open MSDatabase, Admin, 1980
DBConnect = True
Exit Function
End Function
