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

Question

我在 MS-Access 数据库中使用预定义的 ODBC 连接字符串设置了许多传递查询。问题是该数据库可以链接到两个 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

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