Access交流网
电 话：0760-88315075
热 线：0760-88315075
邮 编：528463
咨询QQ：1918333016
营销QQ：4008553990
Email：1918333016@qq.com
这一节，我们来学习记录集（Recordset）。
相比于其它子集来说，记录集是大家最熟悉，却又最易被误解的一个。开始接触记录集时，我是把它当做表或者查询来理解的。随着学习的深入，才渐渐明白，表和查询只是记录集最常见的两种表现形式而已，套用某句台词来说，“表或者查询只是我的表面工作，其实我的真正身份是记！录！集！”
好了，言归正传。根据前面的只是，我们很轻易就可以创建一个记录集了：
Sub CreateRst()
Dim rst As New ADODB.Recordset
rst.Open "myTable", CurrentProject.Connection, adOpenKeyset,
adLockOptimistic
MsgBox rst(0)
rst.Close
Set rst = Nothing
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）时则无法查看其它用户增删的记录，只能查看修改的记录；而为静态锁定时，其它用户操作的记录则无法查看了。但如何查看，著者并没有给出具体办法，只给出一个根据用户输入值来判断是否允许添加的例子，我略作修改后如下：
Sub AddRecord()
Dim rst As New ADODB.Recordset
Dim s As String
rst.Open "myTable", CurrentProject.Connection, adOpenKeyset,
adLockOptimistic
s = "10620029"
rst.Find "服务代码='" & s & "'"
If Not rst.EOF Then’如果已经找到记录
MsgBox "已占用"
Debug.Print rst.RecordCount’在立即窗口打印出记录条数
Else’否则新增一条记录
rst.AddNew
rst(1) = "haha"’给新纪录赋值
rst(3) = s
rst.update’更新记录
Debug.Print rst.RecordCount
End If
rst.Close
End Sub
复制代码
这段代码表示的是，先查找是否存在这个服务代码的记录，如果存在则表示已占用，否则就新增一条记录。——这对于禁止用户输入重复值很有用。另外一个办法是：通过对字段设置“索引（无重复值）”或者主键来禁止。
下面，我们开始介绍记录集的常用操作方法有：
AddNew：新增一条记录
Delete：删除一条记录。
这两个方法常常结合update方法来更新记录集。还可以在全部操作完成后，用批量更新（UpdateBatch）一次性完成。虽然在正确的记录锁定类型下，删除记录并不需要更新操作也会执行，为保险起见，还是建议大家写上这一句。
细心的你，一定发现，不是“增删改”吗？怎么没有修改的方法呢？怎么修改记录啊？Roy的回答是：给已有记录重新赋值。上面的rst(1)=”haha”就是一个例子。
在我给出的例子中基本没有循环操作，因此，当大家需要批量处理记录集时，一定要加上循环语句，例如把第二个字段所有记录均改为“haha”：
For i=1 to Rst.ReordCount
Rst(1)=”haha”
Rst.MoveNext
Next i
复制代码
或者用Do……Loop：
Do Until Rst.EOF
Rst(1)=”haha”
Rst.MoveNext
Loop
复制代码
ReordCount 表示的记录总条数，而EOF属性则表示的文件末尾。具体用哪个循环，则视个人编程习惯而定了。如果不太熟悉循环语句，可以参考之前的新手进阶系列。
RecordCount与游标类型有一定的关系，盗梦曾提到，用Command执行存储过程中，RecordCount只能返回-1。同样地，当记录锁定类型为只读时，RecordCount也是-1，这时候就只能用EOF了。
