VBA调用SQL存储过程报错3704：对象关闭时不允许操作

问题分析 #

你遇到的运行时错误3704是因为长耗时存储过程触发了超时机制：默认情况下ADODB连接和命令对象的超时时间都是30秒，当存储过程执行超过这个时间，连接会被断开，导致记录集被关闭，后续操作自然报错。你已经尝试设置cmd.CommandTimeout=0，但忽略了连接对象本身的超时设置，且连接字符串中的CommandTimeout参数写法无效。

解决方案 #

需要同时为ADODB.Connection和ADODB.Command两个对象设置CommandTimeout=0（0代表无超时限制），并修正连接字符串中的无效配置：

• 移除连接字符串中的无效CommandTimeout参数：连接字符串不支持该参数，直接删掉对应行
• 为连接对象设置无超时限制：在连接打开前后添加cn.CommandTimeout = 0
• 保留命令对象的超时设置：确保cmd.CommandTimeout = 0已正确配置

修改后的完整代码 #

Public Sub Get_Results_From_SP()
    Dim cn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim rs As ADODB.Recordset
    Dim ws As Worksheet
    Dim i As Integer

    Set cn = New ADODB.Connection
    ' 移除无效的CommandTimeout连接字符串参数
    cn.ConnectionString = _
        "Provider=PROVIDER NAME;&" & _
        "Server=SERVER NAME;&" & _
        "Database=DATABASE NAME;&" & _
        "Trusted_Connection=yes;"
    ' 设置连接对象无超时限制
    cn.CommandTimeout = 0
    cn.Open

    Set cmd = New ADODB.Command
    cmd.ActiveConnection = cn
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "PROCEDURE_NAME"
    ' 设置命令对象无超时限制
    cmd.CommandTimeout = 0

    ' 执行命令获取记录集
    Set rs = cmd.Execute

    Set ws = ThisWorkbook.Worksheets.Add
    ' 写入表头
    For i = 0 To rs.Fields.Count - 1
        ws.Cells(1, i + 1).Value = rs.Fields(i).Name
    Next i
    ' 写入记录集数据
    ws.Range("A2").CopyFromRecordset rs

    ws.Range("A1").CurrentRegion.EntireColumn.AutoFit

    ' 清理资源
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cmd = Nothing
    Set cn = Nothing
    Set ws = Nothing
End Sub

额外说明 #

• 代码移除了未使用的冗余变量，让逻辑更简洁
• 超时设置为0后，需确保存储过程不会无限期执行，避免占用数据库资源
• 若仍出现问题，可尝试改用指定游标类型的方式打开记录集：

  Set rs = New ADODB.Recordset
  rs.Open cmd, , adOpenStatic, adLockReadOnly
  

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