Office中国论坛/Access中国论坛

标题: 【新手入门】之十五：浅谈ADO之Recordset（上） [打印本页]

作者: roych 时间: 2014-11-17 09:02
标题: 【新手入门】之十五：浅谈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来表示，外部数据连接则需要创建连接，并先行打开，详见本系列的第一节。

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

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

游标类型	数值表示	记录锁定类型	数值表示
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属性则表示的文件末尾。具体用哪个循环，则视个人编程习惯而定了。如果不太熟悉循环语句，可以参考之前的新手进阶系列。

作者: cfedf 时间: 2014-11-17 12:04
我要仔细的学习一下。

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

作者: roych 时间: 2014-11-22 09:02

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

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

作者: wanlong3390 时间: 2014-11-22 16:08
学习啦！谢谢楼主

作者: tiantianiec 时间: 2015-2-2 17:04
啊啊啊啊啊啊啊啊啊

作者: ken123qw 时间: 2015-5-4 13:03
谢谢分享！

作者: Superleistung 时间: 2016-5-31 09:22
谢谢分享~

作者: shslsun 时间: 2016-12-24 12:41
非常好,谢谢!!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)