想做个多条记录同时插入的,但在多记录插入的时候,先对每条记录的某个字段(如下面代码的EQ_code)先做下判断,只有都符合的时候 才开始进行多条记录的插入,并更新另一个表。但下面的代码只能判断一条记录 插入一条记录。如过有某条记录不符合判断,才停止,但前面符合判断的记录已经插入数据库了。
怎么修改才能先全部判断完所有记录后,再把多条记录插入! 下面是代码
<%
set conn=server.createobject("adodb.connection")
conn.Open"provider=Microsoft.jet.oledb.4.0;data source="&Server.MapPath("table.mdb")
dim sql,num
num=request.form("EQ_code").count
for i=1 to num
Sql= "Select count(*) From EQ Where EQ_code ='"&request.form("EQ_code")(i)&"'"
set rs=conn.execute(sql)
if rs(0)=0 then
response.write("<script>alert('入库的元件中有 未被维护的');history.go(-1);</script>")
else
riqi=date()
exec="insert into ruku (EQ_code,vendor,qty,price,riqi) values('"&request.form("EQ_code")(i)&"','"&request.form("vendor")(i)&"','"&request.form("qty")(i)&"','"&request.form("price")(i)&"','"&riqi&"')"
conn.execute exec
exec="select EQ_qty,new_price,vendor from EQ where EQ_code='" &request.form("EQ_code")(i)&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("EQ_qty")=rs("EQ_qty")+request.form("qty")(i)
rs("new_price")=request.form("price")(i)
rs("vendor")=request.form("vendor")(i)
rs.update
rs.close
set rs=nothing
end if
next
conn.close
set conn=nothing
%>
<div align="center"><a href="/item2.asp" target="mainFrame">继续入库</a></div>
怎么修改才能先全部判断完所有记录后,再把多条记录插入! 下面是代码
<%
set conn=server.createobject("adodb.connection")
conn.Open"provider=Microsoft.jet.oledb.4.0;data source="&Server.MapPath("table.mdb")
dim sql,num
num=request.form("EQ_code").count
for i=1 to num
Sql= "Select count(*) From EQ Where EQ_code ='"&request.form("EQ_code")(i)&"'"
set rs=conn.execute(sql)
if rs(0)=0 then
response.write("<script>alert('入库的元件中有 未被维护的');history.go(-1);</script>")
else
riqi=date()
exec="insert into ruku (EQ_code,vendor,qty,price,riqi) values('"&request.form("EQ_code")(i)&"','"&request.form("vendor")(i)&"','"&request.form("qty")(i)&"','"&request.form("price")(i)&"','"&riqi&"')"
conn.execute exec
exec="select EQ_qty,new_price,vendor from EQ where EQ_code='" &request.form("EQ_code")(i)&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("EQ_qty")=rs("EQ_qty")+request.form("qty")(i)
rs("new_price")=request.form("price")(i)
rs("vendor")=request.form("vendor")(i)
rs.update
rs.close
set rs=nothing
end if
next
conn.close
set conn=nothing
%>
<div align="center"><a href="/item2.asp" target="mainFrame">继续入库</a></div>