这一节,我们来学习记录集(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就是这么来的。但我不赞成这样写,我相信,没有谁愿意去记住这些数字分别代表什么,而且这样很易出错。例如不小心用了只读的记录锁定类型,却去试图修改记录集就会出错。实际的游标类型,常常优先取决于记录锁定类型。详见下表: 记录锁定类型 | | | 除adOpenForwardOnly外,其它均转为adOpenStatic | | | | | | |
当记录锁定类型为只读(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了。
-----------------------
由于帖子长度所限,请从这里返回更早的帖子
【新手入门】之十五:浅谈ADO之Recordset(上)
【新手入门】之十六:浅谈ADO之Recordset(下)
【新手入门】之十七:浅谈列表框的使用
【新手入门】之十八:双击列表框修改数据
【新手入门】之十九:从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十:“书与书签”——bookmark属性答疑
【新手入门】之二十一:记录集的“凌迟”——逐条导出记录集
【新手进阶】之一:基础算法(一)
【新手进阶】之二:基础算法(二)
【新手进阶】之三:基础算法(三)
【新手进阶】之四:基础算法(四)
【新手进阶】之五:排序搜索(一)
【新手进阶】之六:排序搜索(二)
【新手进阶】之七:递归算法
【新手进阶】之八:冒泡排序
【新手进阶】之九:浅谈不绑定数据源操作记录
【新手进阶】之十:工作日的计算
【新手进阶】之十一:“庖丁解牛”和“纪昌学射”——浅谈表格式文本数据的导入
【新手进阶】之十二:从四脚腾空的奔马谈起——原来界面可以这样设计
【新手进阶】之十三:Outlook风格导航界面
【新手进阶】之十四:仓库管理系统
|