求助 SQL 记录集不能更新的问题。
我用随机函数做编号批量写入数据库作为用户登录的编号,导入后从记录集中根据“编号”筛选出500多条重复项,然后想用随机函数再对这些项的“编号”字段赋值,直到没有重复项,但做...
我用随机函数做编号批量写入数据库作为用户登录的编号,导入后从记录集中根据“编号”筛选出500多条重复项,然后想用随机函数再对这些项的“编号”字段赋值,直到没有重复项,但做筛选后再赋值就报错 当前记录集不能更新。
set sqlrs=server.CreateObject("adodb.recordset")
sqlrs.Open "select usernumber from eims_User group by usernumber having count(usernumber)>1",conn,1,3
if sqlrs.EOF or sqlrs.BOF then
Response.Write"<hr>数据库中暂无资料!"
else
do while not sqlrs.EOF
sqlrs("usernumber")= GetRandomizeCode()
sqlrs.movenext
loop
end if
sqlrs.Update 展开
set sqlrs=server.CreateObject("adodb.recordset")
sqlrs.Open "select usernumber from eims_User group by usernumber having count(usernumber)>1",conn,1,3
if sqlrs.EOF or sqlrs.BOF then
Response.Write"<hr>数据库中暂无资料!"
else
do while not sqlrs.EOF
sqlrs("usernumber")= GetRandomizeCode()
sqlrs.movenext
loop
end if
sqlrs.Update 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询