将数据从 excel 用户表单提交到受密码保护的访问数据库

Question

我正在尝试将用户表单数据从 excel (2013) 提交到访问数据库。

没有密码，这段代码可以正常工作。

Private Sub Addoer_Click()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim dbPath

dbPath = Sheet16.Range("K18").Value

Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & dbPath

现在我正在尝试使用相同的方法将数据从 excel 发送到受密码保护的数据库（每个用户都有不同的密码）。在excel文件中，用户ID在Sheet16.Range("K17")，密码在Sheet16.Range("K19")

userid = Sheet16.Range("K17").Value
pw = Sheet16.Range("K19").Value

我将 cnn.open 行更改为关注

cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data source=" & dbPath, userid, pw, -1

我收到此错误：

错误 -2147217843（无法启动您的应用程序。工作组信息文件丢失或由其他用户独占打开。）

我把 cnn.open 行改成了这个

cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & dbPath, """ & userid & """, """ & pw & """, -1

我得到了这个错误

错误 -2147217843（不是有效的帐户名或密码）。

有没有人可以帮忙指出我哪里做错了？

Answer 1

您的第二次尝试不起作用，因为您将用户名作为"user" 传递，而用户名实际上是user。

关于您的第一次尝试，我在connectionstrings.com 找到了这个注释：

注意！ 报告称使用 Access 2010 - 2013 默认加密方案加密的数据库不适用于此连接字符串。在访问中；尝试选项并选择 2007 加密方法。那应该可以正常工作。

另外，数据库是否由另一个连接/程序独占打开？如果您在 Access 中打开了数据库并且您可以设计表/查询，IIRC 这意味着您对数据库具有独占访问权限，并且没有其他连接可以连接到它。您是否在 Access 数据库所在的文件夹中看到了 .laccdb（或 .ldb）文件？

参考资料：

• Microsoft OLE DB Proivder for Microsoft Jet
• ConnectionString Property
• Formatting Rules for Connection Strings 在 connectionstrings.com