【新手进阶】之二十：浅谈ADO之Recordset（上）

这一节，我们来学习记录集（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来表示，外部数据连接则需要创建连接，并先行打开，详见本系列的第一节。

第三个参数：游标锁定类型。见下表

第四个参数：记录锁定类型。见下表

有时候我们看到这样的语句：rst.Open"myTable", CurrentProject.Connection, 2,3就是这么来的。但我不赞成这样写，我相信，没有谁愿意去记住这些数字分别代表什么，而且这样很易出错。例如不小心用了只读的记录锁定类型，却去试图修改记录集就会出错。实际的游标类型，常常优先取决于记录锁定类型。详见下表：

当记录锁定类型为只读（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了。