asp数据库判断问题！！在线等

来源：百度知道 编辑：UC知道 时间：2024/06/17 04:07:48
我想实现的功能：客户，规格，库存
新入库一个记录，如果数据库里面客户和规格相符就让库存值相加，如果客户和规格有一条不符就得新加一条

我的代码如下：
kkkh=Trim(Request.Form("kkehu"))
kkgg=Trim(Request.Form("kguige"))

set rsk = Server.CreateObject("ADODB.Recordset")
sql="select * from kdkucun where kckehu='"& kkkh &"' and kcguige='"& kkgg & "'"
rsk.open sql,conn,1,3
if not (rs.eof and rs.bof) then

kucun=rsk("kckucun")
kksl=Trim(Request.Form("kshuliang"))
rsk("kckucun")=cint(kucun)+cint(kksl)
rsk.update
rsk.close
else

set rsx = Server.CreateObject("ADODB.Recordset")
sql="select * from kdkucun "
rsx.open sql,conn,1,3
rsx.addnew
rsx("kckehu")=kkkh
rsx("kcguige")=kkgg
rsx("kckucun")=Trim(Request.Form("kckucun"))
rsx.update
rsx.close

end if

你在打开表的同时对表进行操作？？不太合理吧

另外
=======================
rsk.open sql,conn,1,3
if not (rs.eof and rs.bof) then
===========================
为什么一个是rsk 一个是rs ？？

================================================

kkkh=Trim(Request.Form("kkehu"))
kkgg=Trim(Request.Form("kguige"))

dim b
b = true
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from kdkucun where kckehu='"& kkkh &"' and kcguige='"& kkgg & "'"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
b = false
end if

if b then
set rsx = Server.CreateObject("ADODB.Recordset")
sql="select * from kdkucun "
rsx.open sql,conn,1,3
rsx.addnew
rsx("kckehu")=kkkh
rsx("kcguige")=kkgg
rsx("kckucun")=Trim(Request.Form("kckucun"))