掌握VBA编程：DAO和ADO中的记录移动与查找

背景简介

在进行数据库操作时，能够高效地移动和查找记录是至关重要的。VBA作为Microsoft Office系列软件中自动化任务的工具，提供了多种方法来实现这一目标。本章将基于《Access VBA Programming with DAO and ADO》一书中的内容，深入探讨如何在使用VBA编程时，通过DAO和ADO技术操作Access数据库中的记录集。

记录集的移动方法

在VBA中，记录集（Recordset）提供了一系列方法来在数据中进行导航。其中， MoveFirst 、 MoveLast 、 MoveNext 和 MovePrevious 是最常见的方法，它们分别用于移动到第一条、最后一条、下一条和上一条记录。此外，还可以通过 Move n 来向前或向后移动指定的位置数。

实践操作

在实践中，可以通过编写VBA程序来演示这些方法的使用。例如，在Visual Basic编辑器中插入一个模块，并输入以下代码：

Sub NavigateRecords()
    Dim db As DAO.Database
    Dim tblRst As DAO.Recordset
    Set db = OpenDatabase("C:\\Acc07_ByExample\\Northwind 2007.accdb")
    Set tblRst = db.OpenRecordset("Employees")
    tblRst.MoveFirst

    Do While Not tblRst.EOF
        Debug.Print "Employee: " & tblRst!["Last Name"]
        tblRst.MoveNext
    Loop

    tblRst.Close
    Set tblRst = Nothing
    db.Close
    Set db = Nothing
End Sub

在表类型记录集中查找记录

虽然移动方法方便遍历记录集，但在需要查找特定记录时，应使用Seek或Find方法。Seek方法特别适用于表类型的记录集，并且要求表必须包含索引。使用Seek时，需要设置Index属性，并使用比较运算符来指定查找条件。

实践操作

通过以下示例代码，我们可以在表中查找以特定字母开头的记录：

Sub FindRecordsInTable()
    Dim db As DAO.Database
    Dim tblRst As DAO.Recordset
    Set db = OpenDatabase("C:\\Acc07_ByExample\\Northwind 2007.accdb")
    Set tblRst = db.OpenRecordset("Employees", dbOpenTable)
    tblRst.Index = "Last Name"
    tblRst.Seek ">=", "K"

    If Not tblRst.NoMatch Then
        MsgBox "Found the following employee: " & tblRst!["Last Name"]
    Else
        MsgBox "There is no employee with such a name."
    End If

    tblRst.Close
    Set tblRst = Nothing
    db.Close
    Set db = Nothing
End Sub

在Dynasets或Snapshots中查找记录

对于Dynaset类型和Snapshot类型的记录集，我们可以使用FindFirst、FindNext、FindPrevious和FindLast等方法来搜索特定记录。使用这些方法之前，需要在当前记录处设置一个书签，以便在搜索失败时能够返回到原始位置。

实践操作

以下是一个示例代码，展示了如何在Dynaset类型的记录集中查找特定记录：

Sub FindRecInDynaset()
    Dim db As DAO.Database
    Dim dynaRst As DAO.Recordset
    Set db = OpenDatabase("C:\\Acc07_ByExample\\Northwind 2007.accdb")
    Set dynaRst = db.OpenRecordset("Employees", dbOpenDynaset)

    MsgBox "Current employee: " & dynaRst!["Last Name"]
    dynaRst.FindFirst "[Last Name] Like '*er'"

    Do While Not dynaRst.NoMatch
        Debug.Print dynaRst!["Last Name"]
        dynaRst.FindNext "[Last Name] Like '*er'"
    Loop

    dynaRst.Close
    Set dynaRst = Nothing
    db.Close
    Set db = Nothing
End Sub

总结与启发

通过本章的学习，我们不仅掌握了如何使用DAO和ADO技术在VBA中操作Access数据库的记录集，还学会了如何利用不同的方法来遍历和查找记录。这些技能在日常工作中处理数据时非常实用，能够大幅提高效率。同时，我们也了解到选择合适的游标类型对于记录集操作的性能影响至关重要。希望读者能够在实践中不断尝试和探索，将这些知识应用到更复杂的数据处理场景中。

关键词

VBA编程、DAO、ADO、记录集操作、数据查找