Question

VB 中为什么我的RS.movenext只能走一步？

private sub lblDown_click ()
Rs.open sql ,conn,1,3
Rs,moveNext
print RS (1)
Rs.close
end sub

为什么屏幕上输出第一条记录后，输出的全是第二条记录，不再往下走？我要如何改？
不好意思，我想实现的是，按一下输出一条记录，而不是把所有记录都输出

Answer 1

你的conn 和rs都是局部变量,过程运行完了后变量都释放了,数据库也关闭了,第二次按下时有重新开始了,所以只能是这样了.
要把这俩个定义成全局变量才可以

Answer 2

在此小窗口中利用rs.加个分页，rs会在每页指定的记录个数里面输出,其它的数据检索会留在点击下一页时执行,这样可以缓解rs一次读到底的慢效率

Answer 3

private sub lblDown_click ()
Rs.open sql ,conn,1,3
do while not rs.eof
print RS (1)
Rs.moveNext
loop
Rs.close
end sub

Answer 4

while not rs.eof

....

rs.movenext
wend

Answer 5

用个循环