VB的ADO记录集问题？

Question

当记录集加载上万条数据时
for i=0 to rsTemp.RecordCount-1   --当代码执行到这时提示溢出的错误next
使用 do while not rsTemp.EOF
     loop
确没有任何问题。
求解！！！！！！！
这种情况的原因？

Answer 1

估计i是定义为 dim i as integer ,同时，rstemp记录数太多，超出32767?

Answer 2

你这样肯定会有问题的。
问题是，中间无法判断是否超出范围。
for后面加一句：
 if rsTemp.EOF then ...

Answer 3

大概有以下三种可能：1、i 变量是否已经定义？2、i （如 i 为 Integer）取值超出范围？3、for ... next 循环体内没有对 rsTemp 进行减少记录行数的操作吧？4、for ... next 循环体内除了一个 rsTemp.movenext 以外有没有其他移动记录指针的操作？rsTemp.movefirst
for i=0 to rsTemp.recordcount-1
    ...
    rsTemp.movenext
next

Answer 4

dim i as long
rsTemp.movefirst
for i=0 to rsTemp.recordcount-1
    ...
    rsTemp.movenext
next