DAO记录集使用的一些技巧
时 间:2010-09-16 14:14:52
作 者:红尘如烟 ID:10768 城市:成都
摘 要:一些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语句
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)
- 【Access窗体导出PDF】Ac...(04.08)