我有一个大型 Access VBA/SQL Server 应用程序。在每个函数中都有相同的 ADODB 连接。
如何用每次都可以调用的单个函数替换它们以节省空间。
Public Function ConnectionString() As ADODB.Connection
Dim CN As ADODB.Connection
Set CN = New ADODB.Connection
With CN
.Provider = "Microsoft.Access.OLEDB.10.0"
.Properties("Data Provider").Value = "SQLOLEDB"
.Properties("Data Source").Value = DLookup("Source", "tbl_Connection")
.Properties("Initial Catalog").Value = DLookup("Catalog", "tbl_Connection")
.Properties("Integrated Security").Value = SSPI
.Open
End With
ConnectionString = CN
End Function
似乎这应该返回该连接,但有一条错误消息:
未找到用户定义的函数
就行了ConnectionString = CN
。