重生之白眼狼txt百度云:asp的数据库不能更新报错问题
来源:百度文库 编辑:高考问答 时间:2024/04/29 10:13:22
sqldel1="select dataid,username,uans,fen,userdata.tmid,userdata.isread from userdata,tbtk where userdata.tmid=tbtk.tmid and kao=1 and username='"&un&"' and paperno="&paperno
set rsdel1=server.createobject("adodb.recordset")
rsdel1.open sqldel1,conn,3,2
do while not rsdel1.eof
if rsdel1("isread")=1 then
sqldel2="SELECT * from userdataread where username='"&un&"' and tmid="&rsdel1("tmid")&" and paperno="&paperno&" "
set rsdel2=server.createobject("adodb.recordset")
rsdel2.open sqldel2,conn,3,2
do while not rsdel2.eof
rsdel2("ruans")=""
rsdel2.update
rsdel2.movenext
loop
end if
rsdel1("uans")=""
rsdel1.update
rsdel1.movenext
loop
程序在 rsdel1.update 报错..
但是 rsdel2.update不报错
错误如下
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Microsoft Access Driver] 不能更新。数据库或对象为只读。
/adminkcname.asp,行 412
试过了..
但是不行..嘎嘎
set rsdel1=server.createobject("adodb.recordset")
rsdel1.open sqldel1,conn,3,2
do while not rsdel1.eof
if rsdel1("isread")=1 then
sqldel2="SELECT * from userdataread where username='"&un&"' and tmid="&rsdel1("tmid")&" and paperno="&paperno&" "
set rsdel2=server.createobject("adodb.recordset")
rsdel2.open sqldel2,conn,3,2
do while not rsdel2.eof
rsdel2("ruans")=""
rsdel2.update
rsdel2.movenext
loop
end if
rsdel1("uans")=""
rsdel1.update
rsdel1.movenext
loop
程序在 rsdel1.update 报错..
但是 rsdel2.update不报错
错误如下
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Microsoft Access Driver] 不能更新。数据库或对象为只读。
/adminkcname.asp,行 412
试过了..
但是不行..嘎嘎
rsdel1.open sqldel1,conn,3,2 改为 rsdel1.open sqldel1,conn,1,3
rsdel2.open sqldel2,conn,3,2 改为 rsdel2.open sqlde2,conn,1,3