关于循环更新时的rs关闭问题！

[feislow]

问题是这样的 我要实现在一个循环语句里更新数据库，但是rs数据集在哪里关闭都提示“对象关闭时不允许操作”的错误。
代码
do while not rs.EOF and i<rstCount

rand = int((rstCount+1)*rnd)

upbs rand,i,r '调用函数生成批量更新语句，插入数据库

i = i+1
rs.MoveNext
loop

rs.Close
set rs=nothing
这里我把数据集也就是r当成一个变量传进函数了，因为直接在函数里写关闭r会报错的。

upbs 是一个更新函数：
function upbs(n,m,rst)



strsql ="update flbook set bs='"&n&"'where id='"&m&"'"

rst.Open strsql,conn,1,3


end function

麻烦大家给分析一下！

[黑心]

upbs 函数里用insert 试下。

[feislow]

问题是这样的 我要实现在一个循环语句里更新数据库，但是rs数据集在哪里关闭都。
不是rs数据集，我的意思是upbs这个函数里的rst应该怎么关闭，总是提示“对象关闭时不允许操作”的错误

[ttt2]

更新这样写

strsql ="update flbook set bs='"&n&"'where id='"&m&"'"

cn.execute strsql

[9441]

用3楼的做法，或新建另一个RS，不要用原来的

[hijack_hijack]

拼接字符串 一次执行

do while not rs.eof
sqlstr = sqlstr&"update .."
loop
conn.execute sqlstr

[gxq323]

用for 循环 rs.Close
set rs=nothing
放到next前面

[fxcjy]

用execute吧，就是3楼说的方法

[smalltaro]

哪里开的哪里关，你在函数内打开更新了，操作完成就顺手给关了嘛

但建议是不要用这样的更新
可读性
效率
都不是很好，个人意见