ADO 数据操作 一些不为人知的提速方法

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

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

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