-
本版专家分：5结帖率 98.04% -
i=20
id=10
sql="select * from En_aud where id='"&id&"'"
Set vacRst=Server.CreateObject("ADODB.Recordset")
vacRst.Open sql,conn,adOpenKeyset,adLockBatchOptimistic
if vacRst.EOF=false then
for j=1 to i
vacRst("aud_A")=Trim(Request.Form("aud_A"&i))
vacRst("aud_B")=Trim(Request.Form("aud_B"&i))
vacRst("aud_C")=Trim(Request.Form("aud_C"&i))
vacRst("aud_D")=Trim(Request.Form("aud_D"&i))
vacRst("aud_key")=Trim(Request.Form("aud_key"&i))
vacRst.movenext
next
vacRst.Update
vacRst.close
else
errlist=errlist+"<li>Error(S) occuring when updating data. </li>"
end if
从表中检索出来的记录是20个记录，但为什么update不了呢？
问题点数：20分
-
本版专家分：1145 -
i=20
id=10
j=1
sql="select * from En_aud where id='"&id&"'"
Set vacRst=Server.CreateObject("ADODB.Recordset")
vacRst.Open sql,conn,adOpenKeyset,adLockBatchOptimistic
if not vacRst.EOF then
do while not vacRst.EOF and j<=i
vacRst("aud_A")=Trim(Request.Form("aud_A"&j))
vacRst("aud_B")=Trim(Request.Form("aud_B"&j))
vacRst("aud_C")=Trim(Request.Form("aud_C"&j))
vacRst("aud_D")=Trim(Request.Form("aud_D"&j))
vacRst("aud_key")=Trim(Request.Form("aud_key"&j))
vacRst.Update
vacRst.movenext
j=j+1
loop
vacRst.close
else
errlist=errlist+"<li>Error(S) occuring when updating data. </li>"
end if
试试看这样行不!
-
本版专家分：5
-
我试了，这样还是不行的
vacRst.update应该是这个
vacRst.updatbatch，