从多个页面调用单个StrConn

Question

我在我的vba代码中设置了SQL Server。

格式为：

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

我有4张这个，但有时我会想要将它更改为从SQL2或SQL3调用，而不是每次更改每张表上的代码4次，我只想更改一次。 / p>

有没有办法通过从其他地方调用该行来设置该行，或者通过将字符串传入“”？

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"