ado连接问题

[moyue]

Option Explicit
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

[Kang哥]

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\test.mdb;user id=admin;jet oledb:database password=112378;Persist Security Info=true"这样成不成？

[moyue]

我试试

[40Star]

应该都是用的Jet引擎
不过我一直用你的下面的方法连接
因为ADO的Data控件连接时也适用的下面的连接字符串

[dbcontrols]

先用ADODC控件连接好然后复制右键里面的连接串最标准.

[moyue]

现在又出现问题了用Jet引擎，如果数据库有密码，就又出现上面的错误了。我在ADODC控件中也不能测试成功。

[moyue]

是不是我的VB有问题啊?

[jett]

uid=admin;pwd=; <--->cn.Open MSDatabase, Admin, 1980 ????
不会是因为没写密码吧

[moyue]

用Jet引擎，如果数据库没有密码，就一切正常

[moyue]

我在ADODC控件中用密码测试时不能通过
最上面的那种我测试时数据库没设密码。

[memeno]

通过属性好象是CONNECTIONSTR属性。先选字符串连接，再选择需要的搜索引擎，如果没有选择odbc
通过odbc进行连接。