数据库(包含打印，安装，报表)
再次讨论ADO的速度问题~高手菜鸟别错过~！
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区通常我们使用以下的代码进行记录循环：
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
大家还有什么更好的建议可以一起讨论讨论~上次已经揭贴~这次我们继续！
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
大家还有什么更好的建议可以一起讨论讨论~上次已经揭贴~这次我们继续！
...全文
