Recordset 对象 (DAO)

项目
04/04/2023

适用于：Access 2013、Office 2013

Recordset 对象表示基表中的记录或运行查询所生成的记录。

说明

使用 Recordset 对象在记录级别处理数据库中的数据。使用 DAO 对象时，几乎可以完全使用 Recordset 对象处理数据。所有 Recordset 对象都是使用记录（行）和字段（列）构建的。共有五种类型的 Recordset 对象：

表类型 Recordset - 基表在代码中的表示形式，可用于在单个数据库表中添加、更改或删除记录（仅适用于 Microsoft Access 工作区）。
动态集类型 Recordset - 其中可以包含可更新记录的查询结果。动态集类型 Recordset 对象是一个动态的记录集，可用于在一个或多个基础数据库表中添加、更改或删除记录。动态集类型 Recordset 对象可以包含数据库中的一个或多个表中的字段。此类型对应于 ODBC 键集游标。
快照类型 Recordset - 一组记录的静态副本，可用于查找数据或生成报表。快照类型 Recordset 对象可以包含数据库中的一个或多个表中的字段，但不能进行更新。此类型对应于 ODBC 静态游标。
仅向前类型 Recordset - 除不提供游标外，其他均与快照类型相同。只能在记录中向前滚动。如果只需遍历结果集一次，这种类型可提高性能。此类型对应于 ODBC 仅向前游标。
动态类型 Recordset - 一个或多个基表中的查询结果集，可以在该基表中添加、更改或删除行返回查询产生的记录。此外，其他用户在基表中添加、删除或编辑的记录也出现在 Recordset 中。此类型对应于 ODBC 动态游标（仅适用于 ODBCDirect 工作区）。

注意

Microsoft Access 2013 中不支持 ODBCDirect 工作区。如果希望在不使用 Microsoft Access 数据库引擎的情况下访问外部数据源，可使用 ADO。

可以使用 OpenRecordset 方法的 type 参数选择要创建的 Recordset 对象的类型。

在 Microsoft Access 工作区中，如果不指定类型，DAO 将从表类型开始，尝试创建可用功能最多的 Recordset 类型。如果这种类型不可用，DAO 将首先尝试动态集，然后是快照，最后是仅向前类型 Recordset 对象。

在 ODBCDirect 工作区中，如果不指定类型，DAO 将从仅向前类型开始，尝试创建查询响应速度最快的 Recordset 类型。如果此类型不可用，DAO 将尝试快照类型，其次为动态集类型，最后为动态类型的 Recordset 对象。

使用 Microsoft Access 工作区中的非链接 TableDef 对象创建 Recordset 对象时，将创建表类型 Recordset 对象。使用链接表或连接到 Microsoft Access 数据库引擎的 ODBC 数据库中的表只能创建动态集类型或快照类型 Recordset 对象。

打开 Recordset 对象时，会自动在 Recordsets 集合中添加一个新的相应对象；关闭该对象时，会自动删除相应的对象。

注意

[!注释] 如果使用变量表示 Recordset 对象和包含 Recordset 的 Database 对象，请确保这些变量具有相同的范围或生命周期。例如，如果声明了表示 Recordset 对象的公共变量，请确保表示包含了 Recordset 的 Database 的变量也是公共的，或者是使用 Static 关键字在 Sub 或 Function 过程中声明的。

可根据需要创建任意数目的 Recordset 对象变量。不同的 Recordset 对象可以在不发生冲突的情况下访问相同的表、查询和字段。

动态集、快照和仅向前类型 Recordset 对象存储在本地内存中。如果本地内存的空间不足以存储数据，Microsoft Access 数据库引擎会将额外的数据保存到 TEMP 磁盘空间。如果此空间已耗尽，将发生可捕获的错误。

Recordset 对象的默认集合为 Fields 集合， Field 对象的默认属性为 Value 属性。可使用这些默认值简化代码。

在创建 Recordset 对象时，如果存在任何记录的话，当前记录将定位到第一条记录。如果不存在任何记录， RecordCount 属性设置为 0，并且 BOF 和 EOF 属性设置为 True。

可以使用 MoveNext、MovePrevious、MoveFirst 和 MoveLast 方法来将重新定位当前记录。仅向前类型 Recordset 对象只支持 MoveNext 方法。在使用 Move 方法访问每条记录（或"遍历" Recordset）时，可以使用 BOF 和 EOF 属性检查 Recordset 对象的开头或结尾。

对于 Microsoft Access 工作区中的动态集类型和快照类型 Recordset 对象，还可以使用 Find 方法（例如 FindFirst）根据条件查找特定的记录。如果未找到记录， NoMatch 属性将设置为 True。对于表类型 Recordset 对象，可以使用 Seek 方法扫描记录。

Type 属性指示所创建的 Recordset 对象的类型， Updatable 属性指示是否可以更改对象的记录。

TableDef 对象中存储了有关基表结构的信息，例如每个 Field 对象及任何 Index 对象的名称和数据类型。

若要按照序号或 Name 属性设置来引用集合中的 Recordset 对象，可以使用下列任何一种语法形式：

Recordsets(0)
Recordsets("name")
记录集！[name]

注意

[!注释] 可以多次打开同一个数据源或数据库中的 Recordset 对象，并在 Recordsets 集合中创建重复的名称。应该将 Recordset 对象分配给对象变量，并通过变量名来引用它们。

示例

以下示例通过打开四个不同类型的 Recordsets，枚举当前 Database 的 Recordsets 集合，以及枚举每个 Recordset 的 Properties 集合，演示 Recordset 对象和 Recordsets 集合。

    Sub RecordsetX() 
     
       Dim dbsNorthwind As Database 
       Dim rstTable As Recordset 
       Dim rstDynaset As Recordset 
       Dim rstSnapshot As Recordset 
       Dim rstForwardOnly As Recordset 
       Dim rstLoop As Recordset 
       Dim prpLoop As Property 
     
       Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
     
       With dbsNorthwind 
     
          ' Open one of each type of Recordset object. 
          Set rstTable = .OpenRecordset("Categories", _ 
             dbOpenTable) 
          Set rstDynaset = .OpenRecordset("Employees", _ 
             dbOpenDynaset) 
          Set rstSnapshot = .OpenRecordset("Shippers", _ 
             dbOpenSnapshot) 
          Set rstForwardOnly = .OpenRecordset _  
             ("Employees", dbOpenForwardOnly) 
     
          Debug.Print "Recordsets in Recordsets " & _ 
             "collection of dbsNorthwind" 
     
          ' Enumerate Recordsets collection. 
          For Each rstLoop In .Recordsets 
     
             With rstLoop 
                Debug.Print "  " & .Name 
     
                ' Enumerate Properties collection of each 
                ' Recordset object. Trap for any  
                ' properties whose values are invalid in  
                ' this context. 
                For Each prpLoop In .Properties 
                   On Error Resume Next 
                   If prpLoop <> "" Then Debug.Print _ 
                      "    " & prpLoop.Name & _ 
                      " = " & prpLoop 
                   On Error GoTo 0 
                Next prpLoop 
     
             End With 
     
          Next rstLoop 
     
          rstTable.Close 
          rstDynaset.Close 
          rstSnapshot.Close 
          rstForwardOnly.Close 
     
          .Close 
       End With 
     
    End Sub

以下示例使用 OpenRecordset 方法打开五个不同的 Recordset 对象并显示其内容。若要使该过程正常运行，需要使用 OpenRecordsetOutput 过程。

    Sub OpenRecordsetX() 
     
       Dim wrkAcc As Workspace 
       Dim wrkODBC As Workspace 
       Dim dbsNorthwind As Database 
       Dim conPubs As Connection 
       Dim rstTemp As Recordset 
       Dim rstTemp2 As Recordset 
     
       ' Open Microsoft Access and ODBCDirect workspaces, Microsoft
       ' Access database, and ODBCDirect connection. 
       Set wrkAcc = CreateWorkspace("", "admin", "", dbUseJet) 
       Set wrkODBC = CreateWorkspace("", "admin", "", dbUseODBC) 
       Set dbsNorthwind = wrkAcc.OpenDatabase("Northwind.mdb") 
        
       ' Note: The DSN referenced below must be set to  
       '       use Microsoft Windows NT Authentication Mode to  
       '       authorize user access to the Microsoft SQL Server. 
       Set conPubs = wrkODBC.OpenConnection("", , , _ 
          "ODBC;DATABASE=pubs;DSN=Publishers") 
     
       ' Open five different Recordset objects and display the  
       ' contents of each. 
     
       Debug.Print "Opening forward-only-type recordset " & _ 
          "where the source is a QueryDef object..." 
       Set rstTemp = dbsNorthwind.OpenRecordset( _ 
          "Ten Most Expensive Products", dbOpenForwardOnly) 
       OpenRecordsetOutput rstTemp 
     
       Debug.Print "Opening read-only dynaset-type " & _ 
          "recordset where the source is an SQL statement..." 
       Set rstTemp = dbsNorthwind.OpenRecordset( _ 
          "SELECT * FROM Employees", dbOpenDynaset, dbReadOnly) 
       OpenRecordsetOutput rstTemp 
     
       ' Use the Filter property to retrieve only certain  
       ' records with the next OpenRecordset call. 
       Debug.Print "Opening recordset from existing " & _ 
          "Recordset object to filter records..." 
       rstTemp.Filter = "LastName >= 'M'" 
       Set rstTemp2 = rstTemp.OpenRecordset() 
       OpenRecordsetOutput rstTemp2 
     
       Debug.Print "Opening dynamic-type recordset from " & _ 
          "an ODBC connection..." 
       Set rstTemp = conPubs.OpenRecordset( _ 
          "SELECT * FROM stores", dbOpenDynamic) 
       OpenRecordsetOutput rstTemp 
     
       ' Use the StillExecuting property to determine when the  
       ' Recordset is ready for manipulation. 
       Debug.Print "Opening snapshot-type recordset based " & _ 
          "on asynchronous query to ODBC connection..." 
       Set rstTemp = conPubs.OpenRecordset("publishers", _ 
          dbOpenSnapshot, dbRunAsync) 
       Do While rstTemp.StillExecuting 
          Debug.Print "  [still executing...]" 
       Loop 
       OpenRecordsetOutput rstTemp 
     
       rstTemp.Close 
       dbsNorthwind.Close 
       conPubs.Close 
       wrkAcc.Close 
       wrkODBC.Close 
     
    End Sub 
     
    Sub OpenRecordsetOutput(rstOutput As Recordset) 
     
       ' Enumerate the specified Recordset object. 
       With rstOutput 
          Do While Not .EOF 
             Debug.Print , .Fields(0), .Fields(1) 
             .MoveNext 
          Loop 
       End With 
     
    End Sub

本示例将打开动态类型 Recordset 对象并枚举其记录。

    Sub dbOpenDynamicX() 
     
       Dim wrkMain As Workspace 
       Dim conMain As Connection 
       Dim qdfTemp As QueryDef 
       Dim rstTemp As Recordset 
       Dim strSQL As String 
       Dim intLoop As Integer 
     
       ' Create ODBC workspace and open connection to 
       ' SQL Server database. 
       Set wrkMain = CreateWorkspace("ODBCWorkspace", _ 
          "admin", "", dbUseODBC) 
           
       ' Note: The DSN referenced below must be configured to  
       '       use Microsoft Windows NT Authentication Mode to  
       '       authorize user access to the Microsoft SQL Server.     
       Set conMain = wrkMain.OpenConnection("Publishers", _ 
          dbDriverNoPrompt, False, _ 
          "ODBC;DATABASE=pubs;DSN=Publishers") 
           
       ' Open dynamic-type recordset. 
       Set rstTemp = _ 
          conMain.OpenRecordset("authors", _ 
          dbOpenDynamic) 
     
       With rstTemp 
          Debug.Print "Dynamic-type recordset: " & .Name 
     
          ' Enumerate records. 
          Do While Not .EOF 
             Debug.Print "    " & !au_lname & ", " & _ 
                !au_fname 
             .MoveNext 
          Loop 
     
          .Close 
       End With 
     
       conMain.Close 
       wrkMain.Close 
     
    End Sub

本示例将打开动态集类型 Recordset 并显示其字段可更新的范围。

    Sub dbOpenDynasetX() 
     
       Dim dbsNorthwind As Database 
       Dim rstInvoices As Recordset 
       Dim fldLoop As Field 
     
       Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
       Set rstInvoices = _ 
          dbsNorthwind.OpenRecordset("Invoices", dbOpenDynaset) 
     
       With rstInvoices 
          Debug.Print "Dynaset-type recordset: " & .Name 
     
          If .Updatable Then 
             Debug.Print "  Updatable fields:" 
     
             ' Enumerate Fields collection of dynaset-type 
             ' Recordset object, print only updatable 
             ' fields. 
             For Each fldLoop In .Fields 
                If fldLoop.DataUpdatable Then 
                   Debug.Print "    " & fldLoop.Name 
                End If 
             Next fldLoop 
     
          End If 
     
          .Close 
       End With 
     
       dbsNorthwind.Close 
     
    End Sub

本示例将打开仅向前类型 Recordset、演示其只读特性，并通过 MoveNext 方法在 Recordset 中步进。

Sub dbOpenForwardOnlyX() 
 
   Dim dbsNorthwind As Database 
   Dim rstEmployees As Recordset 
   Dim fldLoop As Field 
 
   Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
   ' Open a forward-only-type Recordset object. Only the  
   ' MoveNext and Move methods may be used to navigate  
   ' through the recordset. 
   Set rstEmployees = _ 
      dbsNorthwind.OpenRecordset("Employees", _ 
      dbOpenForwardOnly) 
 
   With rstEmployees 
      Debug.Print "Forward-only-type recordset: " & _ 
         .Name & ", Updatable = " & .Updatable 
 
      Debug.Print "  Field - DataUpdatable" 
      ' Enumerate Fields collection, printing the Name and  
      ' DataUpdatable properties of each Field object. 
      For Each fldLoop In .Fields 
         Debug.Print "    " & _ 
            fldLoop.Name & " - " & fldLoop.DataUpdatable 
      Next fldLoop 
 
      Debug.Print "  Data" 
      ' Enumerate the recordset. 
      Do While Not .EOF 
         Debug.Print "    " & !FirstName & " " & _ 
            !LastName 
         .MoveNext 
      Loop 
 
      .Close 
   End With 
 
   dbsNorthwind.Close 
 
End Sub

本示例将打开快照类型 Recordset 并演示其只读特性。

    Sub dbOpenSnapshotX() 
     
       Dim dbsNorthwind As Database 
       Dim rstEmployees As Recordset 
       Dim prpLoop As Property 
     
       Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
       Set rstEmployees = _ 
          dbsNorthwind.OpenRecordset("Employees", _ 
          dbOpenSnapshot) 
     
       With rstEmployees 
          Debug.Print "Snapshot-type recordset: " & _ 
             .Name 
     
          ' Enumerate the Properties collection of the 
          ' snapshot-type Recordset object, trapping for 
          ' any properties whose values are invalid in  
          ' this context. 
          For Each prpLoop In .Properties 
             On Error Resume Next 
             Debug.Print "  " & _ 
                prpLoop.Name & " = " & prpLoop 
             On Error Goto 0 
          Next prpLoop 
     
          .Close 
       End With 
     
       dbsNorthwind.Close 
     
    End Sub

本示例将打开表类型 Recordset、设置其 Index 属性并枚举其记录。

    Sub dbOpenTableX() 
     
       Dim dbsNorthwind As Database 
       Dim rstEmployees As Recordset 
     
       Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
       ' dbOpenTable is default. 
       Set rstEmployees = _ 
          dbsNorthwind.OpenRecordset("Employees") 
     
       With rstEmployees 
          Debug.Print "Table-type recordset: " & .Name 
     
          ' Use predefined index. 
          .Index = "LastName" 
          Debug.Print "  Index = " & .Index 
     
          ' Enumerate records. 
          Do While Not .EOF 
             Debug.Print "    " & !LastName & ", " & _ 
                !FirstName 
             .MoveNext 
          Loop 
     
          .Close 
       End With 
     
       dbsNorthwind.Close 
     
    End Sub

以下示例说明如何使用 Seek 方法在链接的表中查找记录。

示例代码提供方：Microsoft Access 2010 程序员参考。

    Sub TestSeek()
        ' Get the path to the external database that contains
        ' the tblCustomers table we're going to search.
        Dim strMyExternalDatabase
        Dim dbs    As DAO.Database
        Dim dbsExt As DAO.Database
        Dim rst    As DAO.Recordset
        Dim tdf    As DAO.TableDef
        
        Set dbs = CurrentDb()
        Set tdf = dbs.TableDefs("tblCustomers")
        strMyExternalDatabase = Mid(tdf.Connect, 11)
        
        'Open the database that contains the table that is linked
        Set dbsExt = OpenDatabase(strMyExternalDatabase)
        
        'Open a table-type recordset against the external table
        Set rst = dbsExt.OpenRecordset("tblCustomers", dbOpenTable)
        
        'Specify which index to search on
        rst.Index = "PrimaryKey"
        
        'Specify the criteria
        rst.Seek "=", 123
        
        'Check the result
        If rst.NoMatch Then
            MsgBox "Record not found."
        Else
            MsgBox "Customer name: " & rst!CustName
        End If
        
        rst.Close
        dbs.Close
        dbsExt.Close
        Set rst = Nothing
        Set tdf = Nothing
        Set dbs = Nothing
        
        
    End Sub

以下示例说明如何打开基于参数查询的 Recordset。

    Dim dbs As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    
    Set dbs = CurrentDb
    
    'Get the parameter query
    Set qfd = dbs.QueryDefs("qryMyParameterQuery")
    
    'Supply the parameter value
    qdf.Parameters("EnterStartDate") = Date
    qdf.Parameters("EnterEndDate") = Date + 7
    
    'Open a Recordset based on the parameter query
    Set rst = qdf.OpenRecordset()

以下示例说明如何打开基于表或查询的 Recordset。

    Dim dbs As DAO.Database
    Dim rsTable As DAO.Recordset
    Dim rsQuery As DAO.Recordset
    
    Set dbs = CurrentDb
    
    'Open a table-type Recordset
    Set rsTable = dbs.OpenRecordset("Table1", dbOpenTable)
    
    'Open a dynaset-type Recordset using a saved query
    Set rsQuery = dbs.OpenRecordset("qryMyQuery", dbOpenDynaset)

以下示例说明如何打开基于结构化查询语言 (SQL) 语句的 Recordset。

    Dim dbs As DAO.Database
    Dim rsSQL As DAO.Recordset
    Dim strSQL As String
    
    Set dbs = CurrentDb
    
    'Open a snapshot-type Recordset based on an SQL statement
    strSQL = "SELECT * FROM Table1 WHERE Field2 = 33"
    Set rsSQL = dbs.OpenRecordset(strSQL, dbOpenSnapshot)

以下示例说明如何使用 FindFirst 和 FindNext 方法在 Recordset 中查找记录。

    Sub FindOrgName()
    
        Dim dbs As DAO.Database
        Dim rst As DAO.Recordset
        
        'Get the database and Recordset
        Set dbs = CurrentDb
        Set rst = dbs.OpenRecordset("tblCustomers")
    
        'Search for the first matching record   
        rst.FindFirst "[OrgName] LIKE '*parts*'"
        
        'Check the result
        If rst.NoMatch Then
            MsgBox "Record not found."
            GotTo Cleanup
        Else
            Do While Not rst.NoMatch
                MsgBox "Customer name: " & rst!CustName
                rst.FindNext "[OrgName] LIKE '*parts*'"
            Loop
    
            'Search for the next matching record
            rst.FindNext "[OrgName] LIKE '*parts*'"
        End If
       
        Cleanup:
            rst.Close
            Set rst = Nothing
            Set dbs = Nothing
    
    End Sub

以下示例说明如何将查询结果复制到新的 Microsoft Excel 工作簿中的工作表。

    Public Sub CopyDataFromQuery( _
        xlApp As Excel.Application, _
        strQueryName As String)
    
        ' If the xlApp object exists
        If Not xlApp Is Nothing Then
        
            ' If the Workbook exists
            If xlApp.Workbooks.Count = 1 Then
            
                ' Create Recrodset Object from the Query
                Dim rsQuery As DAO.Recordset
                Set rsQuery = Application.CurrentDb.OpenRecordset(strQueryName)
                
                ' Get the Cells object
                Dim Cells As Object
                Set Cells = xlApp.Workbooks(1).ActiveSheet.Cells
                
                ' Copy the Data from the Query into the Sheet
                Cells.CopyFromRecordset rsQuery
                
            End If
        End If
    
    End Sub

Recordset 对象 (DAO)

说明

示例

其他资源