求救:记录更新失败(在线等待)
目的:
根据text的值,查找满足条件的记录,再将更改后的值回写到表中。
运行时报错:
字段不能更新,因为其他的用户或处理程序锁定了对应的记录或数据表。(错误 3164)
源码:
Private Sub Command3_Click()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path & "\mydatabase.mdb")
Set rs = db.OpenRecordset("select * from 表1 where 名称='" & Text1.Text & "'")
rs.Edit
rs.Fields("编号") = Text2.Text
rs.Fields("名称") = Text3.Text
rs.Fields("地址") = Text4.Text
rs.Fields("电话") = Text5.Text
rs.Update
MsgBox ("数据已更新!")
rs.Close
End Sub
请问:问题出在什么地方?多谢!