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

wdwd05 2004-03-05 11:08:17
通常我们使用以下的代码进行记录循环:

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

大家还有什么更好的建议可以一起讨论讨论~上次已经揭贴~这次我们继续!
...全文
66 点赞 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复

还没有回复,快来抢沙发~

发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告