求救:记录更新失败(在线等待)

diuadiu 2003-04-02 10:26:12
目的:
根据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

请问:问题出在什么地方?多谢!
...全文
98 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
stonec 2003-04-02
  • 打赏
  • 举报
回复
数据库的打开方式设为可更新
sxs69 2003-04-02
  • 打赏
  • 举报
回复
数据库是不是只读的
diuadiu 2003-04-02
  • 打赏
  • 举报
回复
两位,可以说具体点吗?

怎样将数据库设置为可读写的?

怎样“数据库的打开方式设为可更新”?

我很菜,呵呵

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧