Question

vb编程问题。。 真心求高手指点

小弟学习编程 要求新增入库单时同时修改库存表
现在的问题是：为什么新增入库单成功后，库存表没有同时新增或修改库存记录？
源代码如下 请各位前辈指点迷津........ 感激不尽
'新增入库单时修改库存表
Dim temp As String
temp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\新建 Microsoft Office Access 应用程序.mdb;Persist Security Info=False"
adoCon.Open (temp)
adoRs.Open "select * from 库存表 where 产品名称 ='" & Text6.Text & "' and 品牌 ='" + Text7.Text + "' and 型号 ='" & Text8.Text & "'", adoCon, adOpenKeyset, adLockOptimistic
If adoRs.RecordCount > 0 Then '如果库存表有该商品
MsgBox "库存表有该产品,,"
Dim SNum As Integer '重新计算库存表中该货品的数量
SNum = Val(adoRs.Fields("库存量")) + Val(kucunshuliang.Text)
'写修改入库单语句
Set adoRs = adoCon.Execute("UPDATE 库存表 SET 库存量='" + str(SNum) + "' where 产品名称 ='" & Text6.Text & "' and 品牌 ='" + Text7.Text + "' and 型号 ='" & Text8.Text & "'")

Else '如果库存表中没有该商品
MsgBox "库存表没有该产品记录"
Set adoRs = adoCon.Execute("insert into 库存表 values(" & Text6.Text & ",'" & Text7.Text & "','" & Text8.Text & "','" & kucunshuliang.Text & "','" & Text3.Text & "')")
'保存该商品到库存表
End If

Answer 1

If adoRs.RecordCount > 0 Then '如果库存表有该商品
我只是觉得这句好像看着不顺眼.你可以改为
if adors.eof =false then '这里表示库存有商品.
试试..

不过好像 adors.recordcount 是表示记数相关的吧,这个为什么能做为有没有商品的判断标准?
我觉得你应该用这个表的关键字来判断.

Answer 2

如果你的“库存表”定义顺序与插入表不一致，那么字段名表就不能少，而且下面这句中Text6.Text 两边少了单引号：Set adoRs = adoCon.Execute("insert into 库存表 values(" & Text6.Text & ",'" & Text7.Text & "','" & Text8.Text & "','" & kucunshuliang.Text & "','" & Text3.Text & "')")
应该改为：
Set adoRs = adoCon.Execute("insert into 库存表 (产品名称,品牌,型号,库存量,Text3对应字段名) values('" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & kucunshuliang.Text & "','" & Text3.Text & "')")
你那个Text3不知是啥，自己改为其对应字段名吧

Answer 3

分析了一下，一开始搜索符合条件的数据，不要用adoRs.RecordCount >0这种条件，用.EOF or .BOF IF adoRs.EOF or adoRs.BOF then
.......
Else
End IF
如果你用的是VB.net 我只能分析你没有转折Else 和 新添加的代码。只有Update的代码。没有Addnew

Answer 4

在写入产品后需要一次更新数据库操作~