☆以下是我的一些常使用的方法,并且比较少人...... 以下是我的一些常使用的方法,并且比较少人使用,贴出来与大家分享,希望大家有什么 好的方法也不要吝啬.本贴以后仍然会陆续更新 1. 在RecordSet 循环中的优化, 预先初始化 Fields 并不会带来代码的其他变化,很方便,而且在大的循环中 提速也很明显 Dim R As New ADODB.Recordset Dim Flds As ADODB.Fields Dim II As Long '这里没有用 For Next 的循环方式 '因为 要获得 RecordCount 对于某些记录集不支持 R.Open "Select * from 表", Cn '这里,预先初始化 Fields 对象 Set Flds = R.Fields Do Until R.EOF = True '访问字段的每个元素 For II = 0 To Flds.Count - 1 Debug.Print Flds(II).Value Next R.MoveNext Loop 2.速度最快的访问字段元素的做法 Flds(II).Value , 不要吝啬 .Value ,能使用字段索引号就使用索引号 |
|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )
GMT+8, 2024-9-29 17:31 , Processed in 0.214464 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.