vba - 如何更改 VBA 中现有 MS-ACCESS 直通查询的 ODBC 连接字符串

Question

我在带有预定义 ODBC 连接字符串的 MS-Access 数据库中设置了许多传递查询。问题是数据库可以链接到两个 MySQL 数据库之一。用户在启动数据库时选择数据库，系统通过 VBA 动态链接适当的表（这工作正常）但是我需要更改现有查询中的 ODBC 连接字符串以匹配所选数据库。因此，我需要一个 VBA 函数来遍历所有现有的传递查询，将 ODBC 连接字符串属性设置为新的连接字符串。关于如何做到这一点的任何想法？

Answer 1

您可以遍历查询集合：

Dim qdf As QueryDef

For Each qdf In CurrentDb.QueryDefs
    If qdf.Type = dbQSQLPassThrough Then
        qdf.Connect = NewConnect
    End If
Next

您还可以检查 Connect 字符串InStr(qdf.Connect)以测试是否存在所需的数据库名称。