Как изменить строку подключения ODBC для существующих сквозных запросов MS-ACCESS в VBA

Question

У меня настроен ряд сквозных запросов в базе данных MS-Access с предопределенными строками подключения ODBC. Проблема в том, что база данных может ссылаться на одну из двух баз данных MySQL. Пользователь выбирает db при запуске базы данных, и система динамически связывает соответствующие таблицы через VBA (это работает нормально). Однако затем мне нужно изменить строки подключения ODBC в существующих запросах, чтобы они соответствовали выбранному db. Поэтому мне нужна функция 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), чтобы проверить наличие необходимого имени базы данных.