UC知道ASP 批量添加问题
来源：百度知道 编辑：UC知道 时间：2024/09/24 18:23:46
出现错误！
ADODB.Recordset 错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
代码如下；
Dim MyArry,arrString
Myarry=request("bj")
arrString=split(Myarry,",")
set rs=server.createobject("adodb.recordset")
sql="select * from xskq "
rs.open sql,conn,1,3
rs.addnew
for I=1 to 33
rs("bj")=arrString(I)
rs.MoveNext
next
rs.update
rs.close
ADODB.Recordset 错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
代码如下；
Dim MyArry,arrString
Myarry=request("bj")
arrString=split(Myarry,",")
set rs=server.createobject("adodb.recordset")
sql="select * from xskq "
rs.open sql,conn,1,3
rs.addnew
for I=1 to 33
rs("bj")=arrString(I)
rs.MoveNext
next
rs.update
rs.close
一楼的你的方法可以，不过重复打开和关闭数据库是没必要的，会增加系统负担，我也写了一段，供楼主参考
Dim MyArry,arrString
Myarry=request("bj")
arrString=split(Myarry,",")
set rs=server.createobject("adodb.recordset")
sql="select * from xskq "
rs.open sql,conn,1,3
for I=1 to 33
rs.addnew
rs("bj")=arrString(I)
rs.update
next
rs.close
Dim MyArry,arrString
Myarry=request("bj")
arrString=split(Myarry,",")
set rs=server.createobject("adodb.recordset")
sql="select * from xskq "
for I=0 to ubound(Myarry)
rs.open sql,conn,1,3
rs.addnew
rs("bj")=arrString(I)
rs.update
rs.close
next
for I=1 to ubound(arrString)
rs("bj")=arrString(I)
rs.MoveNext
next
Myarry=split(request("bj"),",")
for i=0 to ubound(Myarry)
conn.execute("insert into xsk