如何通过Access VBA在SQL Server服务器端执行查询？

完全可以通过VBA实现让查询直接在SQL Server后端执行，避免Access拉取数据到本地处理后再推送，以下是两种常用的实现方式：

1. 使用ADODB连接直接执行T-SQL #

通过ADODB对象建立与SQL Server的直接连接，把SQL语句直接发送到服务器执行，这是最灵活的方式。

首先确保Access引用了Microsoft ActiveX Data Objects x.x Library（选最新兼容版本即可），然后用以下VBA代码示例：

Sub ExecuteSQLServerQuery()
    Dim conn As ADODB.Connection
    Dim strSQL As String
    Dim strConn As String
    
    ' 构建SQL Server连接字符串（根据你的实际配置修改）
    strConn = "Driver={SQL Server};Server=你的服务器名\实例名;Database=你的数据库名;Uid=用户名;Pwd=密码;"
    ' 也可以用ODBC数据源名称：strConn = "DSN=你的ODBC数据源名;Uid=用户名;Pwd=密码;"
    
    ' 编写要在服务器端执行的T-SQL语句（注意用T-SQL语法，不是Access SQL）
    strSQL = "INSERT INTO 目标表 (列1, 列2) SELECT 源列1, 源列2 FROM 源表 WHERE 条件;"
    
    Set conn = New ADODB.Connection
    On Error GoTo Cleanup ' 错误处理
    
    conn.Open strConn
    conn.Execute strSQL, , adExecuteNoRecords ' adExecuteNoRecords提升执行效率，无需返回记录
    
Cleanup:
    If Err.Number <> 0 Then
        MsgBox "执行出错：" & Err.Description, vbCritical
    End If
    If Not conn Is Nothing Then
        If conn.State = adStateOpen Then conn.Close
        Set conn = Nothing
    End If
End Sub

2. 创建并执行Pass-Through查询 #

Access的Pass-Through查询本身就是专门用来将SQL语句直接发送到ODBC后端执行的，你可以手动创建，也用VBA动态生成并执行：

方式一：执行已创建的Pass-Through查询 #

如果你已经在Access中配置好Pass-Through查询（设置ODBC连接和SQL语句），直接用VBA运行：

Sub RunExistingPassThroughQuery()
    On Error GoTo ErrorHandler
    
    ' 运行名为"PT_你的查询名"的Pass-Through查询
    DoCmd.OpenQuery "PT_你的查询名", acViewNormal, acEdit
    
    Exit Sub
ErrorHandler:
    MsgBox "查询执行失败：" & Err.Description, vbCritical
End Sub

方式二：用VBA动态创建Pass-Through查询 #

如果需要动态修改SQL语句，用VBA临时创建Pass-Through查询：

Sub CreateAndRunPassThroughQuery()
    Dim qdf As QueryDef
    Dim strSQL As String
    Dim strConn As String
    
    ' 连接字符串（同ADODB的配置）
    strConn = "ODBC;Driver={SQL Server};Server=你的服务器名\实例名;Database=你的数据库名;Uid=用户名;Pwd=密码;"
    
    ' T-SQL语句
    strSQL = "UPDATE 目标表 SET 列1 = '更新值' WHERE 条件;"
    
    ' 删除已存在的临时查询（如果有）
    On Error Resume Next
    CurrentDb.QueryDefs.Delete "Temp_PassThrough"
    On Error GoTo ErrorHandler
    
    ' 创建新的Pass-Through查询
    Set qdf = CurrentDb.CreateQueryDef("Temp_PassThrough")
    qdf.Connect = strConn
    qdf.SQL = strSQL
    qdf.ReturnsRecords = False ' 不需要返回记录时设为False，提升效率
    
    ' 执行查询
    qdf.Execute dbFailOnError
    
    ' 清理临时查询
    CurrentDb.QueryDefs.Delete "Temp_PassThrough"
    
    Exit Sub
ErrorHandler:
    MsgBox "执行出错：" & Err.Description, vbCritical
    ' 出错时清理临时查询
    On Error Resume Next
    CurrentDb.QueryDefs.Delete "Temp_PassThrough"
End Sub

关键注意事项 #

• 语法差异：必须使用SQL Server的T-SQL语法，而非Access的Jet SQL，比如字符串连接用+或CONCAT()，日期格式用'YYYY-MM-DD'，TOP语法写法等。
• 权限控制：确保Access使用的SQL Server账号有足够权限执行目标操作（如INSERT、UPDATE、DELETE等）。
• 性能优化：无需返回记录时，设置adExecuteNoRecords（ADODB）或ReturnsRecords = False（Pass-Through）可减少网络传输开销。

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