Question

VB实时错误3251，当前记录集不支持更新

实时错误3251，当前记录集不支持更新，这可能是提供程序的限制，也可能是锁定类型的限制

Private Sub Command1_Click()
rno = Trim(Text1.Text)
bno = Trim(Text2.Text)
sqltxt = "select *from 借阅信息表 where 图书编号=" & bno & "and 学号=" & rno
Set bors = exesql(sqltxt)
If Not bors.EOF Then
bors.delete
End If
MsgBox "还书成功", vbOKOnly, "信息提示"
sqltxt1 = "select * from 图书基本信息 where 图书基本信息.图书编号=" & bno
Set bs = exesql(sqltxt1)
bs("已借副本") = bs("已借副本") - 1
bs("馆藏副本") = bs("馆藏副本") + 1
bs("可借副本") = bs("可借副本") + 1
bs.Update
Unload Me
End Sub

点调试 ， bors.delete 出错

Answer 1

这要看到exesql这个自定义函数的内容才知道原因，如果其打开方式是只读的，那么自然是无法更新的（即只能查询，无法增删改）

追问

模块里

Set rst = New ADODB.Recordset
Set rst.ActiveConnection = conn '
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing

追答

rst.Open sql

改为
rst.Open sql, conn, 1, 3