在嵌入连接字符串中指定 mdw 文件到另一个 Jet mdb：可能吗？

Question

我可以在 Jet (mdb) 查询中使用以下语法从另一个 .mdb 文件中选择数据：

SELECT * FROM [Database=C:\Tempo\AnotherDB.mdb;].MyTable

或者

SELECT * FROM MyTable IN 'C:\Tempo\Another.mdb'

我想扩展它以使用工作组安全性，即用户级安全性 (ULS)。 我知道如何指定用户 ID 和密码，例如，

SELECT *
FROM
[Database=C:\Tempo\AnotherDB.mdb;UID=Admin;PWD=***;].MyTable

但这仅在两个 mdb 共享相同的 mdw 时才有效。

如何指定用于保护其他 mdb 的 mdw 文件的路径？ 是否可以？ 如果没有，为什么不呢？

PS 我很多年前在 中问过这个问题此访问新闻组帖子但没有收到回复。 在 Access MVP 说服我这是不可能的之后，我放弃了； 我不记得细节了，但它与底层架构有关（工作区仅支持一个工作组文件，并且没有 Jet 查询实例化新工作区的机制？无论如何都是类似的东西）。

这个评论。

Answer 1

简短的回答是否定的。 如果您使用源数据库，则无法指定另一个工作组，如果将其留空并指定有效的连接字符串，则您将收到 ISAM 错误。 （尽管该方法对于 SQL Server 等其他数据库也适用。）
示例（不起作用）：

SELECT *
FROM Table1 IN '' [Provider=Microsoft.Jet.OLEDB.4.0;Password=foo;User ID=Oorang;Data Source=C:\Users\Oorang\Documents\db1.mdb;Persist Security Info=True;Jet OLEDB:System database=C:\Users\Oorang\Documents\Security.mdw];

但是您可以使用 ADO 来完成此操作。 我不确定您在查询后想要完成什么，但以下是如何将其放入记录集：

Option Explicit
Sub ADODBExample()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password=foo;User ID=Oorang;Data Source=C:\Users\Oorang\Documents\db1.mdb;Persist Security Info=True;Jet OLEDB:System database=C:\Users\Oorang\Documents\Security.mdw"
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM Table1;", cn
    Debug.Print rs.GetString
    rs.Close
    cn.Close
End Sub

值得注意的是，这两种方法最终都会对帐户凭据进行硬编码。 最好是 A.) 提示用户提供所述信息，或者 B.) 使用只读访问权限限制在最低限度的特殊帐户。 还可能建议您采取一些步骤来混淆代码中的信息，并且保护项目的密码实际上不会以任何方式模糊存储在文件中的文本。

Answer 2

简单的回答：这是不可能的。

Answer 3

嗯...实际上您可以使用连接字符串。 它与 SQL Server 配合使用效果最佳。 我只是展示如果它与 Access 一起使用会是什么样子。 我试图说明的一点是，存在有效的语法...只是 Access 不允许您使用 Access 执行此操作。 （如果连接到其他类型的数据库，它将让您这样做。）有趣的是，该功能与其他类型的数据库兼容，而不是 Access...当它是 Access，但确实如此。

尽管如果它们使用相同的 MDW 进行保护，那么您所要做的就是这样，并且查询将在当前登录用户的上下文中运行：

SELECT *
FROM Table1 IN 'C:\Users\Oorang\Documents\db2.mdb';

Answer 4

也许我应该重新巩固和澄清:)在你原来的问题的背景下，答案是：
如果数据库是：都是 Access，并且具有不同的 mdw，则无法通过 SQL/查询生成器执行此操作。 但是，如果两个数据库都是 Access 并且具有相同 mdw（如您后面的评论所示），那么您可以通过 SQL/Query 完成此操作建造者。 在该特定场景中，您不会（不能）通过连接字符串执行此操作，您可以按照下面的步骤 1-4 执行此操作，然后将步骤 5a 替换为 5b。

如果数据库都是 Access 且具有不同 mdw，则指定不同工作组的唯一方法是使用连接字符串。 但是如果您尝试通过连接字符串属性（在下面的步骤 5a 中），SQL/查询生成器将引发 ISAM 错误。 因此您无法通过查询构建器来完成此操作。 您可以使用 ADO 通过 VBA 来完成此操作，如我之前发布的示例所示。

请记住，查询生成器中的连接字符串属性适用于非-Access 数据库，源数据库适用于具有相同（或无）mdw 的Access 数据库。 对于具有不同 mdw 的 Access 数据库，我所知道的唯一解决方案是我之前发布的 VBA 解决方案。

现在直接在 SQL 中使用连接字符串。 你可以做到这一点。 但有一些警告：它不能与其他 Access 数据库一起使用。 如果您使用 SQL Sever dbo 表执行此操作，则必须编辑查询构建器生成的 SQL 以删除“dbo”。 字首。

我认为最简单的方法就是引导您完成我想说的内容。

1. 设置到非访问数据库的工作连接字符串。 （我建议保持简单，只需使用 Excel 文件。）
2. 获得字符串后，在 Access 中打开查询生成器。
3. 关闭选择表对话框。
4. 按 Alt-Enter 键打开“查询属性”。
   5a. 在“源连接字符串”中粘贴连接字符串。
   *5b。 将另一个数据库的路径粘贴到“源数据库”中。
5. 现在添加您的表并构建您的查询。
6. 转到 SQL 视图。 看看建造了什么。

但这几乎是无关紧要的，因为这种方法虽然对非 Access 数据库有效，但不适用于 Access。 （我知道这有点令人沮丧。）

使用的连接字符串示例：

SELECT [Sheet1$].F1
FROM [Sheet1$] IN '' [Excel 5.0;HDR=NO;IMEX=2;DATABASE=C:\Users\Oorang\Documents\Book1.xls];

我真的不认为这是有效的
用于放置 OLE DB 的 ACE/Jet 语法
连接字符串到 IN 数据库
条款。

仅供参考，您使用连接字符串，如上所示，但如果您使用 Source Db 属性，您将得到以下内容:)（我在发布之前测试了所有示例:)）

SELECT *
FROM Table1 IN 'C:\Users\Oorang\Documents\db2.mdb';

Answer 5

您可以在使用ACCESS时使用用户定义函数读取来自另一个工作组的数据。

对 Access 的限制是因为只有 Access 具有允许您使用用户定义函数的 VB 挂钩。 它相当于使用 SQL Server 用户定义的函数——仅当您有 SQL Server 时才运行。

对只读的限制是因为 Access 不提供对用户定义变量的挂钩，而只提供对用户定义函数的挂钩。

在 Access 中的用户定义函数中，您可以放置​​如下代码：

Dim dbe As DAO.DBEngine
Dim ws As DAO.Workspace
Dim db as DAO.database

    Set dbe = New DAO.PrivDBEngine
    dbe.SystemDB = "whatever.mdw"
    dbe.DefaultUser = "whatever"
    dbe.DefaultPassword = "whatever"

    Set ws = dbe.Workspaces(0)
    Set db = ws.opendatabase( ... )

在该 UDF 中，您可以使用该工作区通过“任意”工作组文件从另一个数据库读取数据。

注意：如果您从选择查询中调用此函数，请将 dbe 和 ws 以及 db 和 rs 设为全局，这样您就不必在每次触摸记录中的字段时打开文件。 然后该函数只有

if rs is empty then
   set dbe = ...
   ...
   set rs = db.openrecordset(...)
end if 
...

注意：如果您确实愿意，您可以将更新查询放入从 select 语句调用的 udf 中。 如果您希望稍后在 thedailywtf.com 上看到它，请这样做。

PS：这是一个不寻常的解决方案。 我大约在 2004 年，但你不可能通过发布到“入门”来得到这个