asp+access的问题!100分!
来源:百度知道 编辑:UC知道 时间:2024/09/23 14:27:23
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("11.mdb"))
SQL = "SELECT * FROM 应收明细账 WHERE 录入总账状态 =false and 付款状态=true"
set rs = conn.Execute(SQL)
if rs.eof then
response.Write("Error")
else
for j=0 to rs.fields.count-1
if rs(j).name= "总价" then' and 应收明细账.付款状态 = " &true
s=rs(j)
SQL2 = "insert into 总账(收款额)values('"& s &"')"
conn.Execute(SQL2)
end if
SQL1 = "update 应收明细账 set 录入总账状态= true where 录入总账状态=" & false & " and 付款状态 = " &true
conn.Execute(SQL1)
next
response.Write("录入完成")
end if
conn.close()
Response.Write("<input type='submit' name='back' value='返
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("11.mdb"))
SQL = "SELECT * FROM 应收明细账 WHERE 录入总账状态 =false and 付款状态=true"
set rs = conn.Execute(SQL)
if rs.eof then
response.Write("Error")
else
for j=0 to rs.fields.count-1
if rs(j).name= "总价" then' and 应收明细账.付款状态 = " &true
s=rs(j)
SQL2 = "insert into 总账(收款额)values('"& s &"')"
conn.Execute(SQL2)
end if
SQL1 = "update 应收明细账 set 录入总账状态= true where 录入总账状态=" & false & " and 付款状态 = " &true
conn.Execute(SQL1)
next
response.Write("录入完成")
end if
conn.close()
Response.Write("<input type='submit' name='back' value='返
<%
SQL = "SELECT * FROM 应收明细账 WHERE 录入总账状态 =false and 付款状态=true"
Set Rs = Conn.ExeCute(SQL)
Dim i : i=0
Do While Not Rs.Eof
Conn.ExeCute("insert into 总账(编号,收款额) values('"&Rs("编号")&"','"& Rs("总价") &"')")
Conn.ExeCute("update 应收明细账 set 录入总账状态=true where 编号="&Rs("编号")&"")
i=i+1
Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing
Response.Write(""&i&"条记录已入总账!")
Conn.Close
Set Conn=Nothing
%>
我会
才怪
你在循环里边 判断,然后把符合条件的语句付给 SQL变量。
循环结束后只有一条语句出来 当然是最后一条了 ,你把insert语句写在if语句下边不就完了嘛。。。。低级错误。。。。
你的ASP 写的不规范哦~~ 最好表用中文
你的语句也要优化一下 很多问题 慢慢去学吧~~
哦。 你可以这样啊,
给我两百分先!! 你自然愕然,就会了!
循环括起来呀,或者把INSERT写上去一行