关闭

怎么先循环判断在循环插入

58人阅读 评论(0) 收藏 举报
  想做个多条记录同时插入的,但在多记录插入的时候,先对每条记录的某个字段(如下面代码的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>

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1363次
    • 积分:176
    • 等级:
    • 排名:千里之外
    • 原创:17篇
    • 转载:0篇
    • 译文:0篇
    • 评论:1条
    文章存档
    最新评论