以下是我的一些常使用的方法,并且比较少人使用,贴出来与大家分享,希望大家有什么
好的方法也不要吝啬.本贴以后仍然会陆续更新
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 ,能使用字段索引号就使用索引号
