版 主
....???....
....???....
也可以用rs来更新不使sql语句。
比如
Dim rsKc,rsXs
set rsKc=server.createobject("adodb.recordset")
set rsXs=server.createobject("adodb.recordset")
rsKc.open "select * from kucun where 编号="&Trim(Request("bh")),conn,1,3
rsXs.open "select * from xiaoshoubiao where 编号="&Trim(Request("bh")),1,3
rsKc("数量")=rsKc("数量")-rsKc("销售数量")
rsXs("数量")=rsXs("数量")-rsXs("销售数量")
rsKc.update
rsXs.update
rsKc.close
rsXs.close
Set rsKc=Nothing
Set rsXs=Nothing
两个rs更新