如何通过混合连接将SQL Server数据导入MS Access表（SQL语句存于Access）

这个VBA脚本专门解决混合连接场景：从Access本地存储的表中读取SQL语句，在SQL Server上执行查询后，直接将结果写入Access目标表。下面是完整实现和关键细节说明：

核心逻辑概述 #

• 用ADODB建立SQL Server连接，负责执行远程查询
• 通过DAO读取Access本地表01-MyStoredSQLs里预存的SQL语句
• 拼接INSERT INTO语句，借助SQL Server连接将查询结果直接写入Access的02-tmpTableData表
• 内置错误处理机制，方便调试排查问题

完整VBA代码 #

Public Sub DumpSQLServerData()
 Dim conn As ADODB.Connection
 On Error GoTo errMSG
 Set conn = New ADODB.Connection
 ' 配置SQL Server连接字符串（DSN+账号密码）
 conn.ConnectionString = "DSN=myDSN; UID=MyID;Pwd=MyPWd"
 conn.Open
 
 Dim db As DAO.Database
 Set db = CurrentDb
 Dim rs As DAO.Recordset
 ' 从Access本地表获取预存的SQL语句（取ID=1的记录）
 Set rs = db.OpenRecordset("SELECT [Statement] FROM 01-MyStoredSQLs WHERE ID=1")
 
 Dim tmpSQL As String
 Dim tmpINTOSQL As String
 tmpSQL = rs(0)
 ' 拼接INSERT INTO语句，实现跨库数据写入
 tmpINTOSQL = "INSERT INTO 02-tmpTableData" & tmpSQL
 
 ' 执行混合语句，dbFailOnError确保写入失败时抛出明确错误
 conn.Execute (tmpINTOSQL), dbFailOnError
 
 ' 手动清理资源，避免内存泄漏
 conn.Close
 rs.Close
 db.Close
 Set conn = Nothing
 Set rs = Nothing
 Set db = Nothing
 
errMSG:
 ' 将错误信息输出到立即窗口，便于调试定位问题
 Debug.Print Err.Description
End Sub

关键细节提示 #

• SQL语句规范：确保01-MyStoredSQLs表的Statement字段存储的是完整合法的SELECT语句（例如SELECT * FROM SQLServerDB.dbo.TargetTable WHERE Condition=1），否则拼接后的INSERT INTO语句会报错
• 连接权限：SQL Server账号需要具备目标查询表的读取权限，同时Access文件所在环境要能正常访问指定的DSN
• 资源清理：必须手动关闭连接和记录集并释放对象，否则可能导致后续数据库操作异常

内容的提问来源于stack exchange，提问作者Luthius