VBA操作Access更新字段报错3251：记录集不支持更新求解

错误原因分析 #

这个错误通常源于三个核心问题：记录集打开参数不支持更新、目标数据表缺少主键，或是连接字符串的提供者配置限制。

解决方案 #

方案1：直接执行SQL UPDATE语句（推荐） #

放弃通过记录集更新的方式，直接执行UPDATE SQL语句，这种方式更高效且不易触发权限或配置类问题：

'....
Set Conn = New Connection
Conn.Open strConn

' 构造并执行UPDATE语句
strUpdateqry = "UPDATE tblMedHxInfo SET Allergies = " & Chr(34) & "Penicillin, Codeine" & Chr(34) & " WHERE MedNumber = " & Chr(34) & strMedNum & Chr(34)
Conn.Execute strUpdateqry

If Conn.State = 1 Then Conn.Close
Set Conn = Nothing
'....

方案2：调整记录集的打开参数 #

如果坚持使用记录集更新，需要明确指定可更新的锁定类型，同时确保目标表存在主键：

'....
Set Conn = New Connection
Set rs = New Recordset

Conn.Open strConn
strUpdateqry = "SELECT * FROM tblMedHxInfo WHERE MedNumber = " & Chr(34) & strMedNum & Chr(34)
' 显式指定游标类型和乐观锁定（支持更新）
rs.Open strUpdateqry, Conn, adOpenKeyset, adLockOptimistic

If Not rs.EOF Then ' 确保查询到目标记录
    rs!Allergies = "Penicillin, Codeine"
    rs.Update
End If

If rs.State = 1 Then rs.Close
If Conn.State = 1 Then Conn.Close
Set rs = Nothing
Set Conn = Nothing
'....

方案3：检查并设置数据表主键 #

打开Access数据库，确认tblMedHxInfo表已设置主键（比如将MedNumber设为主键）。Access的OLE DB提供者要求数据表有主键，才能创建可更新的记录集，添加主键后可解决大部分此类问题。

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