修改数据库内容的问题

trueboybear13 2003-09-29 05:49:26
Private Sub Command1_Click()
Set rs = db.OpenRecordset("select * from useinfor where id=1")
rs("name") = Me.Text1
rs("position") = Me.Text2
rs("sex") = Me.Text5
rs("city") = Me.Text10
rs("postcode") = Me.Text11
rs("company") = Me.Text3
rs("com_address") = Me.Text4
rs("mobile") = Me.Text6
rs("email") = Me.Text7
rs("url") = Me.Text8
rs("content") = Me.Text12
rs("country") = Me.Text9
rs.Update
End Sub
我修改id=1这条数据 ,
程序说错在:
实时错误3020
在不使用addnew或edit的情况下,更新(update)或取消更新(cacel update)

请问应该怎么改?
谢谢!
...全文
63 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
daozi1980 2003-09-29
  • 打赏
  • 举报
回复
要动态更新!
busisoft 2003-09-29
  • 打赏
  • 举报
回复
Set rs = db.OpenRecordset("select * from useinfor where id=1")
rs.AddNew '增加新记录
rs("name") = Me.Text1
rs("position") = Me.Text2
rs("sex") = Me.Text5
rs("city") = Me.Text10
rs("postcode") = Me.Text11
rs("company") = Me.Text3
rs("com_address") = Me.Text4
rs("mobile") = Me.Text6
rs("email") = Me.Text7
rs("url") = Me.Text8
rs("content") = Me.Text12
rs("country") = Me.Text9
rs.Update
yoki 2003-09-29
  • 打赏
  • 举报
回复
不好意思,没看清楚
yoki 2003-09-29
  • 打赏
  • 举报
回复
少一句:rs.addnew
在open后加

1,216

社区成员

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

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