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

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

请问:问题出在什么地方?多谢!
...全文
68 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
stonec 2003-04-02
数据库的打开方式设为可更新
回复
sxs69 2003-04-02
数据库是不是只读的
回复
diuadiu 2003-04-02
两位,可以说具体点吗?

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

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

我很菜,呵呵
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-04-02 10:26
社区公告
暂无公告