VB考试教程：使用Recordset对象

三。使用记录集对象

Recordset对象代表您在程序中使用的数据。

在上面的程序中，名为RecordsetType的数据属性用于表示数据库信息是一个表。在Visual Basic中，记录集是一个对象，表示程序中使用的数据库部分。当数据控件的RecordSource属性设置为表或查询的名称时，将定义一个名为Recordset的新对象。记录集对象有自己的一组特殊属性和方法，使您能够查找、排序、添加和删除记录。

在下面的练习中，您将使用Recordset对象在zgda.mdb数据库中按编号查找项目并显示它们。

1.在zgda.mdb中查找数据

在修改程序之前，为了保护原程序，请用新文件名保存它。

1)在文件菜单中，单击另存为表单和另存为项目菜单项。分别用MyFindRec.frm和MyFindRec.vbp作为文件名保存窗体和项目。

2)在窗体的左下方创建两个命令按钮对象，标题属性分别设置为“Find”和“End”。

3)添加代码。

option Explicit
Dim prompt As String，Search str As String
private subcommand 1 _ click()
prompt $ = "输入要查找的编号:"
search str $ =输入框(prompt $，"搜索记录")
data1 . recordset . index = " primary key " '使用类名
data1.recordset.seek "=，search search str '进行搜索。Seek方法可以找到匹配的记录。
If data1 . recordset . no match然后“如果它不匹配
data1 . recordset . movefirst”，获取第1课的记录
End If
End Sub。

程序描述:

事件过程显示一个搜索对话框，以便用户可以输入数字(SearchStr$)。接下来，它使用Seek方法从头到尾搜索数据库的“number”字段，直到找到匹配项或搜索到表的末尾。如果没有找到匹配项，Visual Basic将显示消息“没有当前记录”,并在第一个文本框中显示记录集的第一条记录。下表显示了该事件过程使用的记录集属性和方法:

Recordset属性或方法
说明
Index 用于定义查找和排序过程中所使用的数据库字段的属性
Seek 用于查找记录的方法。除=以外，关系运算符>=、>、