vba - 在 DoCmd.TransferDatabase 中使用连接字符串变量

Question

我有 2 个模块（一个包含 ODBC (FoxPro) 数据库的 DSN 连接字符串，另一个包含一些获取 dat 的代码）。我的目标是为我需要的所有连接使用连接字符串（基于存储在 Windows 中的 DSN 连接），而不是一遍又一遍地编码相同的字符串。

这是我到目前为止所得到的：

第一个模块

Option Compare Database
Public Const ConnectionStringEasyProd As String = """ODBC;DSN=EasyProd PPS;DataDirectory=M:\;SERVER=NotTheServer;Compression= ;DefaultType=FoxPro;Rows=False;Language=OEM;AdvantageLocking=ON;Locking=Record;MemoBlockSize=64;MaxTableCloseCache=5;ServerTypes=6;TrimTrailingSpaces=False;EncryptionType=RC4;FIPS=False"""

第二个模块

DoCmd.TransferDatabase acImport, ConnectionStringEasyProd, acTable, "BEL_PLZ", "Belegungsplaetze_Temp", False

启动 sub 后出现错误 13. 猜想将连接字符串定义为字符串是错误的，因为我需要一个变体，对吧？

标签： vbams-accessodbc