绑定SQL Server存储过程返回的ADO记录集到Access表单时程序崩溃

云上老周

2026-10-3

解决方案

首先在存储过程usp_TaskStatusWidget的开头添加SET NOCOUNT ON;语句。SQL Server存储过程默认会返回DML操作的行计数结果，这个额外的非查询结果集会导致Access绑定时无法识别有效数据集，直接触发崩溃，添加该语句可关闭多余的行计数返回，仅保留你需要的业务查询结果集。
显式指定记录集的游标和锁类型，Access表单绑定ADO记录集对游标参数有明确要求，将原rs.Open行修改为：
```
rs.Open sSQL, ADOConn, adOpenKeyset, adLockOptimistic
```
键集游标+乐观锁是Access绑定ADO记录集的官方推荐配置，适配性最高。

改用断开式客户端记录集绑定。你已经使用了adUseClient客户端游标，可在记录集读取完成后断开与连接的绑定，避免连接状态异常导致崩溃，修改逻辑如下：

Dim sSQL As String, rs As ADODB.Recordset
sSQL = "Exec usp_TaskStatusWidget " & Me.Tag & ",0"

ADOConn.ConnectionString = conADO
ADOConn.Open
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open sSQL, ADOConn, adOpenKeyset, adLockOptimistic
Set rs.ActiveConnection = Nothing ' 断开记录集与连接的绑定
ADOConn.Close ' 可提前关闭连接释放资源
Set Me.Recordset = rs

检查存储过程返回的字段类型与命名：
- 避免返回SQL Server特有的、Access不兼容的数据类型，如sql_variant、datetimeoffset、hierarchyid等，如有需要可在存储过程中转为nvarchar、datetime等兼容类型
- 检查字段名是否为Access保留字（如Name、Value、Order等），如有需要可在查询中给字段加别名，或用方括号包裹字段名
添加强制错误捕获逻辑，定位具体报错原因：
在代码开头添加On Error GoTo ErrHandler，过程末尾添加错误处理块：
```
ExitSub:
    Exit Sub
ErrHandler:
    MsgBox "错误号：" & Err.Number & vbCrLf & "错误描述：" & Err.Description, vbCritical
    Resume ExitSub
```
可以捕获到Access崩溃前的具体错误信息，方便进一步定位问题。