Вызов Single StrConn из нескольких страниц

Question

У меня есть ocnnection для SQL Server, настроенный в моем коде vba.

Формат:

strConn = "ODBC;Driver=SQL;Server=SQL1;Database=DB1;Uid=1;Pwd=1" 

У меня есть это в 4 листах, но будут времена, когда я хочу, чтобы изменить его позвонить из SQL2 или SQL3, а вместо изменения кода на каждом листе 4 раза, я хочу изменить его только один раз.

Есть ли способ настроить эту строку для запуска, вызывая ее из другого места или передавая строку в ""?

Answer 1

Почему вы не добавить модуль или класс в проект с помощью функции, которая возвращает строку соединения

Function GetConnection() 
    GetConnection= "ODBC;Driver=SQL;Server=SQL1;Database=DB1;Uid=1;Pwd=1" 
End Function 

Или постоянная

Public Const strConn As String = "ODBC;Driver=SQL;Server=SQL1;Database=DB1;Uid=1;Pwd=1"