如何利用VB6来实现一个记录数据集合的循环

Question

如题所述

Answer 1

dim l as integer
do until rs.eof
for l=0 to rs.fields.count-1
debug.rs.fields(l)
next
rs.movenext
loop
rs.close
set rs=nothing