获取传递查询的连接字符串

Question

我刚刚了解了MS-ACCESS中的直通查询。

我有一个SQL SERVER 后端和 如果我是对的，查询访问会在执行 where 子句之前加载所有记录...那么拥有 SQL SERVER 后端有什么意义？

这就是为什么我想尽可能多地尝试使用传递查询，但是有没有办法可以从我的链接表中获取连接字符串以用于传递查询？

我在ODBC Connect Str 属性中尝试了CurrentDb.TableDefs("One of my table name").Connect，但我收到错误消息说它是无效的连接字符串。

这很好，因为我知道我将不得不很快更改连接，这样我就不必在很多地方编辑连接字符串。

谢谢。

Answer 1

我不确定你在这里的意思：“对于查询访问会在执行 where 子句之前加载所有记录”

如果可以在服务器上应用WHERE 子句，ODBC 会将其翻译成服务器的语言，并且只有匹配的行将被发送回 Access：

WHERE date_field >= #2011-01-01# AND date_field < #2012-01-01#

WHERE 子句会将发送到 Access 的行限制为仅那些 date_field 值来自 2011 年的行。

但是，如果 WHERE 子句包含必须由 Access 评估的函数，则 ODBC 必须检索所有候选行并将它们交给 Access db 引擎，以便它可以执行评估。

WHERE Format(date_field, 'yyyy') = '2011'

但是对于您的实际问题...用于传递查询的连接字符串...请考虑以下代码示例。我有一个名为dbo_foo 的ODBC 链接，它在SQL Server 中的源表是[dbo].[foo]。所以我可以从dbo_foo 中获取.Connect 属性，并将其用于基于同一服务器表的传递查询的.Connect 属性。

Public Sub CreatePassThruQuery()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim strConnect As String
    Set db = CurrentDb
    strConnect = db.TableDefs("dbo_foo").Connect
    Set qdf = db.CreateQueryDef("qryDbo_Foo")
    qdf.Connect = strConnect
    qdf.SQL = "SELECT * FROM [dbo].[foo];"
    qdf.Close
    Set qdf = Nothing
    Set db = Nothing
End Sub

当您更改表的.Connect 属性时，您还需要为查询执行此操作。如果您有很多和/或经常更改连接，那么创建一个 VBA 过程来更新它们可能是值得的。或者，您可以将 DSN 用于表的 .Connect 属性和匹配查询。然后根据需要修改 DSN。这种方法的一个缺陷是，如果其他人将使用您的应用程序，您将需要在多台机器上管理 DSN。