数据库的命脉??记录集

　　3）查找类方法

　　● Seek，在记录集中定位符合条件的特定记录，只能对经过索引的字段进行此操作。

　　它的语法如下：

　　Recordset.Seekcomparison，key1，key2. . .key13

　　其中的comparison可以是6中关系运算符中除了“<>”外的其他运算符，如果建立的是复合索引，用Seek方法的时候可以给出多个键值。例如，要查找学号为970222的记录，可以采用下面操作：

<SPAN style="FONT-SIZE: 18px">With rsStudent
 .Index=”XH”
 .Seek “=”，”970222”
 If .NoMatch Then MsgBox”数据未找到”
End With
</SPAN>

　　● FindFirst，在记录集中查询符合条件的第一条记录

　　● FindLast，在记录集中查询符合条件的后一条记录

　　● FindPrevious，在记录集中查询符合条件的前一条记录

　　● FindNext，在记录集中查询符合条件的下一条记录

　　例如，查找[XM]字段中第一个姓李的人的程序如下：

<SPAN style="FONT-SIZE: 18px">Dim S As String
With Data1.Recordset
 S=.Bookmark           ‘记录当前位置
 .FindFirst “XM Like ‘李*’”   '查找姓李的人，用“XM=xx”可进行精确查找
 If .NoMatch then MsgBox “数据未找到”
           .Bookmark=S           ‘如果没找到，返回到原来的位置
 End If
</SPAN><SPAN style="FONT-SIZE: 18px">End With
</SPAN>

　　4）其他方法

　　● Clone，克隆（建立一个复本）记录集

　　● Close，关闭记录集，不用的时候应该关闭，以释放资源

　　● OpenRecordset，据本记录集按指定条件生成一个新记录集，如果要创建一个记录集的子集，应该使用此方法。

　　2、记录集的使用举例

　　打开我们前面创建的数据库，并写一条记录在里面，本例是直接给记录赋值，完全可以设计一个界面，然后从上面的TextBox或者其他空间中取出值并赋值给记录，因为界面设计不是本章的主题，所以从略，程序如下：

<SPAN style="FONT-SIZE: 14px">            </SPAN><SPAN style="FONT-SIZE: 18px"> Dim db As Database  ‘数据库对象
             Dim rs As Recordset       ‘记录集对象</SPAN>