设置密码后无法从VBA连接到MDB

布劳略

我在VBA（Excel）中有一个MDB连接，但没有密码，该密码可以正常工作，但是我决定在MDB文件中设置一个密码，然后在连接代码中写入了密码，但该密码无法正常工作！我收到一条消息：

“无法启动您的应用，工作组信息文件已丢失或由其他用户独占打开”

我正在尝试寻找一种解决方案，但对我没有任何帮助。有人知道如何解决吗

这是代码：

Public Function OpenMDB(ByRef MDBname As String) As Variant

Dim DBConnection As ADODB.Connection

On Error Resume Next
Set DBConnection = New ADODB.Connection

With DBConnection
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .Mode = adModeShareDenyNone
    .Open MDBname, UserId:="Administrador", Password:="ABC123", Options:=adAsyncConnect
End With

If Err.Number <> 0 Then
    Set OpenMDB = Nothing
    MsgBox "Error on DB", "Error to connect"
    End
Else
    Set OpenMDB = DBConnection
End If

End Function

为了澄清起见，MDBname具有MDB的路径（并且是正确的）UserId：=“ Administrador”-Administrador是管理员（葡萄牙语）

请！我需要解决它！：S

完美的

尝试使用连接字符串，而不是With方法。请参阅三种可能的方法。

strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source Name=" & MDBNAME & ";" & _ 
          "Jet OLEDB:Database Password=ABC123"
DB.Connection.Open strConn

其他一些建议：

在较旧的MDB数据库中，安全级别是一项功能，特定于用户工作组。确保您在整个文件级别而不是用户组级别（可能是Administrador用户）设置数据库密码。

检查计算机上的32位/ 64位级别的OLE / ODBC驱动程序。最后，考虑将提供程序更改为早期的Jet.OLEDB版本。看到这个帖子。

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。