再次讨论ADO的速度问题~高手菜鸟别错过~！

[wdwd05]

通常我们使用以下的代码进行记录循环：

Do while not rs.eof
combo1.additem rs("字段")
rs.movenext
loop

结果是每个循环中数据库都要进行一次数据结束测试。在大量的记录的情况下， 浪费的时间相当大。 而使用以下的代码， 可以提高近 1/3 的速度：

dim intCount as Integer '记录数据集条数
dim i as integer

rs.movelast
intCount=rs.RecordCount
rs.movefirst

for i=1 to intCount
combo1.additem rs("字段")
rs.movenext
next i

大家还有什么更好的建议可以一起讨论讨论~上次已经揭贴~这次我们继续！