DAO记录集使用的一些技巧-红尘如烟专栏

ADO虽然是发展的趋势，微软之前也准备将DAO淘汰了，DAO 3.6之后就不再更新，但从Access2007开始又将DAO重新拾起来了，只不过改头换面了一下，变成DAO2了而已，因此DAO短时间内还是淘汰不了，尤其是在Access中，DAO在某些方面的优势依然是ADO比不上的。最近发现一些朋友在使用DAO记录集时，不管是向表中写入数据，还是只是读取数据，都是Set rst=CurrentDb.OpenRecordset("表1")，但实际上这样用效率是很差的，尤其是在数据量比较大的时候，效率问题就显示很重要了，下面整理了一些DAO记录集的使用技巧，只需要稍微改动一下参数就可以实现的.

--------------------------------------------------------------------------------------------------------------------------
打开一个只用于添加记录的记录集（不能读取已有记录）
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("表1", , dbAppendOnly)
--------------------------------------------------------------------------------------------------------------------------
打开一个只读记录集
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("表1", , dbReadOnly)
--------------------------------------------------------------------------------------------------------------------------
打开一个只能向前滚动记录的只读记录集(效率最高，但不能使用MovePrevious和MoveFirst方法）
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("表1", , dbForwardOnly)
--------------------------------------------------------------------------------------------------------------------------
'打开一个数据来源于SQL Server数据库的记录集时要记得用dbSeeChanges参数，尤其是当表中有自动编号字段时是必需的
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("表1", , dbSeeChanges)
--------------------------------------------------------------------------------------------------------------------------
'循环记录集的时候，主要用的有两种：
方式一：
Do Until rst.EOF
    ListBox1.Add rst!字段1
    rst.MoveNext
Loop

方式二：
Dim intI As Integer
If rst.RecordCount > 0 Then
    rst.MoveLast
    rst.MoveFirst
    For intI = 1 To rst.RecordCount
        ListBox1.Add rst!字段1
        rst.MoveNext
    Next
End If
很多人喜欢用第一种方式，因为使用简单（包括我自己），但第一种的效率要比第二种差些，如果需要大批量操作或者数据量很大的时候，建议大家还是用第二种。
至于在循环的开头先移到记录集结尾，再移到记录集开头的作用时：DAO记录集打开时，如果数据量比较大的时候，存在打开记录集时用RecordCount属性不能正确读取记录数的问题，而要将指针移到最后一条时才能正确读取，再有就是如果你对数据的排序不在意的话，可以不必再将指针移回记录集开头，直接在循环中用MovePrevious移动就行了

注意：上面的示例代码中是将记录源参数设为了表名，但实际上还可以设为查询名称及SQL语句