Question

我用access代码器写的，出现错误，错误指在rs.update那里。我错在哪？

Private Sub Command25_Click()
If 图书编号 = "" Then
MsgBox ("图书编号不能为空！")
Exit Sub
End If
If 图书名称 = "" Then
MsgBox ("图书名称不能为空！")
Exit Sub
End If
If 销售数量 = "" Then
MsgBox ("销售数量不能为空！")
Exit Sub
End If
If 价格 = "" Then
MsgBox ("价格不能为空！")
Exit Sub
End If
If 操作员 = "" Then
MsgBox ("操作员不能为空！")
Exit Sub
End If
yn = MsgBox("确定销售吗？", 1 + 32, "提示")
If yn = 1 Then
Set rs = New ADODB.Recordset
rs.Open "select * from 图书销售表", CurrentProject.Connection, 3, 3
rs.AddNew
rs("图书编号") = 图书编号
rs("图书名称") = 图书名称
rs("销售日期") = 销售日期
rs("销售数量") = 销售数量
rs("价格") = 价格
rs("操作员") = 操作员
rs.Update （提示错在这个地方，怎么改）
Set curdb = CurrentDb
curdb.Execute "update 图书商品表 set 库存量=库存量 -" + 销售数量 + " where 图书编号='" + 图书编号 + "'"
MsgBox ("销售信息已保存")
Set rs = New ADODB.Recordset
rs.Open "select * from 图书商品表 where 图书编号='" + 图书编号 + "'", CurrentProject.Connection, 3, 3
If rs("库存量") <= 5 Then
MsgBox ("友情提示，该商品库存量不多，应提前进货！")
End If
图书编号 = ""
图书商品名 = ""
销售数量 = ""
价格 = ""
操作员 = ""
作者 = ""
出版社 = ""
类型 = ""
状态 = ""
合计金额.Caption = ""
End If

Answer 1

看你的这段：

If yn = 1 Then
Set rs = New ADODB.Recordset
rs.Open "select * from 图书销售表", CurrentProject.Connection, 3, 3
rs.AddNew
rs("图书编号") = 图书编号
rs("图书名称") = 图书名称
rs("销售日期") = 销售日期
rs("销售数量") = 销售数量
rs("价格") = 价格
rs("操作员") = 操作员
rs.Update （提示错在这个地方，怎么改）

1、要确定每个字段名都没错
2、要确保rs.AddNew以后，你给这行新加记录中的每个字段都设了值（尤其是禁止空值的字段），要检查你的图书销售表，看看是不是每行记录都只有图书编号、图书名称、销售日期、销售数量、价格、操作员这么6个字段
3、要看看你的图书销售表中的“图书编号”字段是不是自动编号，如果是自动编号，你就不要再用“rs("图书编号") = 图书编号”给它设置值了
4、如果以上检查都没问题的话，把你的这句：
rs.Open "select * from 图书销售表", CurrentProject.Connection, 3, 3
改为：
rs.Open "select * from 图书销售表", CurrentProject.Connection, 1,2
试试

Answer 2

第一看下把上面的代码的
If yn = 1 Then
Set rs = New ADODB.Recordset
rs.Open "select * from 图书销售表", CurrentProject.Connection, 3, 3
改成
If yn = 1 Then
Set rs = New ADODB.Recordset
rs.Open "select * from 图书销售表", Connection, 1, 3
再试下
。
第二，检查下传递的值得类型和数据库的类型是否对应

Answer 3

rs.Update （提示错在这个地方，怎么改）
1.提示什么错误
2.注意你的变量类型

Answer 4

重打