【新手入门】之十五：浅谈ADO之Recordset（上）

roych

这一节，我们来学习记录集（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风格导航界面
【新手进阶】之十四：仓库管理系统

cfedf

我要仔细的学习一下。

cfedf

楼主你好，你说到了记录集，说表和查询都属于recordset,那我问一下，做的查询，1，占access文件空间吗？2，在表中是否用数字代替汉字省空间，3因为很多查询，比如单位名称，在表里用的是自然编号，在查询里用的是单位名称，比如某某公司，便于人查看。

roych

cfedf 发表于 2014-11-22 08:36
楼主你好，你说到了记录集，说表和查询都属于recordset,那我问一下，做的查询，1，占access文件空间吗？2， ...

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

wanlong3390

学习啦！谢谢楼主

tiantianiec

啊啊啊啊啊啊啊啊啊

ken123qw

谢谢分享！

Superleistung

谢谢分享~

shslsun

非常好,谢谢!!