[求助]VB中关于Access数据库更新问题
本人正在做一个进销存的程序,其中进货一项如果是第一次进货的话没问题,数据都会插入到数据库中,要是同一个品种第二次进货的话是不是库存就应该是原有库存加上本次进货数量,所以我用到了update,可是数量并没有相加,比如说A货原库存有10个,这次又进了10个,现在的库存就应该是20个,可是数据库中显示的是1010, 减乘除都没问题,就是相加就出问题,请各位高手指点一下,先谢一声,代码如下:If Text1.Text = rs!id Then
find_sql = "update pub_qty set qty =qty + '" & CInt(Text6.Text) & "' " & _
" where ID ='" & Text1.Text & "';"
Set cnn1 = New adodb.Connection
cnn1.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn1.Open App.Path & "\TaoLiang.mdb"
Set rs1 = New adodb.Recordset
rs1.Open find_sql, cnn1, adOpenDynamic