设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 20068|回复: 8

[ADO/DAO] 【新手入门】之十五:浅谈ADO之Recordset(上)

[复制链接]
发表于 2014-11-17 09:02:14 | 显示全部楼层 |阅读模式
这一节,我们来学习记录集(Recordset)。
相比于其它子集来说,记录集是大家最熟悉,却又最易被误解的一个。开始接触记录集时,我是把它当做表或者查询来理解的。随着学习的深入,才渐渐明白,表和查询只是记录集最常见的两种表现形式而已,套用某句台词来说,“表或者查询只是我的表面工作,其实我的真正身份是记!录!集!”
好了,言归正传。根据前面的只是,我们很轻易就可以创建一个记录集了:
  1. Sub CreateRst()
  2. Dim rst As New ADODB.Recordset
  3. rst.Open "myTable", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  4. MsgBox rst(0)
  5. rst.Close
  6. Set rst = Nothing
  7. End Sub
复制代码
第一句表示创建一个记录集,然后用第二句来打开它,第三句则是把第一个字段的第一个值用弹窗显示出来,然后关闭记录集并清空内存。
Open的参数其实有五个,只是我们常用的只有4个,最后一个可选参数,我们常常忽略了。
第一个参数:表示需要打开的记录集,它可以是一个表或者选择查询,还可以是一个文件。——这将在本文最后的部分讨论,先按下不表。
第二个参数:表示的是数据连接。在Access里可以用CurrentProject.Connection来表示,外部数据连接则需要创建连接,并先行打开,详见本系列的第一节。
第三个参数:游标锁定类型。见下表
第四个参数:记录锁定类型。见下表
  
游标类型
  
数值表示
记录锁定类型
数值表示
adOpenForwardOnly
0
adLockReadOnly
1
adOpenKeyset
1
adLockPessimistic
2
adOpenDynamic
2
adLockOptimistic
3
adOpenStatic
3
adLockBatchOptimistic
4
有时候我们看到这样的语句:rst.Open"myTable", CurrentProject.Connection, 2,3就是这么来的。但我不赞成这样写,我相信,没有谁愿意去记住这些数字分别代表什么,而且这样很易出错。例如不小心用了只读的记录锁定类型,却去试图修改记录集就会出错。实际的游标类型,常常优先取决于记录锁定类型。详见下表:
  
记录锁定类型
  
实际游标类型
adLockReadOnly
adOpenForwardOnly外,其它均转为adOpenStatic
adLockPessimistic
全部转为adOpenKeyset
adLockOptimistic
全部转为adOpenKeyset
adLockBatchOptimistic
全部转为adOpenKeyset
当记录锁定类型为只读(adLockReadOnly)时,记录集将不可以进行增删改等操作,即只有Move相关几个方法和Find方法。特别地,而当游标为只进(adOpenForwardOnly)时,这相当于记录集的快照模式,连RecordCount都成为-1了。剩下的方法只有:Find、MoveFirst、MoveNext和Move(还不能是负数哦)。
根据《Access 2007 VBA宝典》的介绍,当游标类型为动态时(adOpenDynamic),允许查看其它用户的增删改操作,并允许执行各种移动、查找和增删改操作。当它为键盘锁定(adOpenKeyset)时则无法查看其它用户增删的记录,只能查看修改的记录;而为静态锁定时,其它用户操作的记录则无法查看了。但如何查看,著者并没有给出具体办法,只给出一个根据用户输入值来判断是否允许添加的例子,我略作修改后如下:
  1. Sub AddRecord()
  2. Dim rst As New ADODB.Recordset
  3. Dim s As String
  4. rst.Open "myTable", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  5. s = "10620029"
  6. rst.Find "服务代码='" & s & "'"
  7. If Not rst.EOF Then’如果已经找到记录
  8.     MsgBox "已占用"
  9.     Debug.Print rst.RecordCount’在立即窗口打印出记录条数
  10. Else’否则新增一条记录
  11.     rst.AddNew
  12.     rst(1) = "haha"’给新纪录赋值
  13.     rst(3) = s
  14.     rst.update’更新记录
  15.     Debug.Print rst.RecordCount
  16. End If
  17. rst.Close
  18. End Sub
复制代码
这段代码表示的是,先查找是否存在这个服务代码的记录,如果存在则表示已占用,否则就新增一条记录。——这对于禁止用户输入重复值很有用。另外一个办法是:通过对字段设置“索引(无重复值)”或者主键来禁止。
下面,我们开始介绍记录集的常用操作方法有:
AddNew:新增一条记录
Delete:删除一条记录。
这两个方法常常结合update方法来更新记录集。还可以在全部操作完成后,用批量更新(UpdateBatch)一次性完成。虽然在正确的记录锁定类型下,删除记录并不需要更新操作也会执行,为保险起见,还是建议大家写上这一句。
细心的你,一定发现,不是“增删改”吗?怎么没有修改的方法呢?怎么修改记录啊?Roy的回答是:给已有记录重新赋值。上面的rst(1)=”haha”就是一个例子。
在我给出的例子中基本没有循环操作,因此,当大家需要批量处理记录集时,一定要加上循环语句,例如把第二个字段所有记录均改为“haha”:
  1. For i=1 to Rst.ReordCount
  2.        Rst(1)=”haha”
  3.     Rst.MoveNext
  4. Next i
复制代码
或者用Do……Loop:
  1. Do Until Rst.EOF
  2.        Rst(1)=”haha”
  3.     Rst.MoveNext
  4. Loop
复制代码
ReordCount 表示的记录总条数,而EOF属性则表示的文件末尾。具体用哪个循环,则视个人编程习惯而定了。如果不太熟悉循环语句,可以参考之前的新手进阶系列。
RecordCount与游标类型有一定的关系,盗梦曾提到,用Command执行存储过程中,RecordCount只能返回-1。同样地,当记录锁定类型为只读时,RecordCount也是-1,这时候就只能用EOF了。

-----------------------
由于帖子长度所限,请从这里返回更早的帖子
【新手入门】之十五:浅谈ADO之Recordset(上)
【新手入门】之十六:浅谈ADO之Recordset(下)
【新手入门】之十七:浅谈列表框的使用
【新手入门】之十八:双击列表框修改数据
【新手入门】之十九:从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十:“书与书签”——bookmark属性答疑
【新手入门】之二十一:记录集的“凌迟”——逐条导出记录集

【新手进阶】之一:基础算法(一)
【新手进阶】之二:基础算法(二)
【新手进阶】之三:基础算法(三)
【新手进阶】之四:基础算法(四)
【新手进阶】之五:排序搜索(一)
【新手进阶】之六:排序搜索(二)
【新手进阶】之七:递归算法
【新手进阶】之八:冒泡排序
【新手进阶】之九:浅谈不绑定数据源操作记录
【新手进阶】之十:工作日的计算
【新手进阶】之十一:“庖丁解牛”和“纪昌学射”——浅谈表格式文本数据的导入
【新手进阶】之十二:从四脚腾空的奔马谈起——原来界面可以这样设计
【新手进阶】之十三:Outlook风格导航界面
【新手进阶】之十四:仓库管理系统

本帖被以下淘专辑推荐:

发表于 2014-11-17 12:04:16 来自手机 | 显示全部楼层
我要仔细的学习一下。
发表于 2014-11-22 08:36:02 来自手机 | 显示全部楼层
楼主你好,你说到了记录集,说表和查询都属于recordset,那我问一下,做的查询,1,占access文件空间吗?2,在表中是否用数字代替汉字省空间,3因为很多查询,比如单位名称,在表里用的是自然编号,在查询里用的是单位名称,比如某某公司,便于人查看。
 楼主| 发表于 2014-11-22 09:02:45 | 显示全部楼层
cfedf 发表于 2014-11-22 08:36
楼主你好,你说到了记录集,说表和查询都属于recordset,那我问一下,做的查询,1,占access文件空间吗?2, ...

空间当然会占一点的,但这不成问题。数据库文件的大小一般主要看表和窗体。表的数据越多就越大,例如几十万条记录的话,可能会有十几M。特别地,如果表里有图片字段,体积会陡增。而窗体的图片文件越多也就越大,例如用较多的背景图片或者用图片做菜单等等。
至于是否用汉字命名字段之类见仁见智。就我所知,用汉字命名的模块兼容性很好,更不用说表、查询和窗体之类了。但是,为了避免某些用户的系统语言为英文的情况,建议还是尽量使用英文。
第三个问题。请在论坛里搜索“刘小军常用窗体查询”来学习下。
发表于 2014-11-22 16:08:44 | 显示全部楼层
学习啦!谢谢楼主
发表于 2015-2-2 17:04:08 | 显示全部楼层
啊啊啊啊啊啊啊啊啊
发表于 2015-5-4 13:03:22 | 显示全部楼层
谢谢分享!
回复

使用道具 举报

点击这里给我发消息

发表于 2016-5-31 09:22:31 | 显示全部楼层
谢谢分享~
回复

使用道具 举报

发表于 2016-12-24 12:41:50 | 显示全部楼层
非常好,谢谢!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 13:46 , Processed in 0.092329 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表