以下是我的一些常使用的方法,并且比较少人使用,贴出来与大家分享,希望大家有什么

好的方法也不要吝啬.本贴以后仍然会陆续更新

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  ,能使用字段索引号就使用索引号