Recordset.GetRows 方法 (DAO)

适用于：Access 2013、Office 2013

从 Recordset 对象检索多个行。

语法

表达式 。GetRows (NumRows)

expression 一个表示 Recordset 对象的变量。

参数

名称	必需/可选	数据类型	说明
NumRows	可选	Variant	要返回的行数。

返回值

Variant

说明

使用 GetRows 方法从 Recordset 复制记录。 GetRows 返回二维数组。 第一个下标标识字段，第二个下标标识行号。 例如，intField 表示字段，intRecord 标识行号：

avarRecords(intField, intRecord)

若要获取返回的第二行中的第一个字段值，请使用类似如下的代码：

field1 = avarRecords(0,1)

若要获取第一行中的第二个字段值，请使用类似如下的代码：

field2 = avarRecords(1,0)

当 GetRows 返回数据时，avarRecords 变量自动变为二维数组。

如果请求的行数多于可用行数，则 GetRows 仅返回可用行数。 由于数组的大小进行了调整以适合返回的行数，因此可以使用 Visual Basic for Applications UBound 函数确定 GetRows 实际上检索了多少行。 例如，如果将结果返回到了名称为 varA 的 Variant，则可以使用以下代码确定实际上返回了多少行：

numReturned = UBound(varA,2) + 1

你需要使用“+ 1”，因为返回的第一行位于数组的 0 元素中。 可以检索的行数受可用内存量的限制。 如果表较大的话，不应使用 GetRows 将整个表检索到数组中。

由于 GetRows 将 Recordset 的所有字段返回到包括"备注"和"长二进制"型字段的数组中，因此可能需要使用能够限制返回字段的查询。

调用 GetRows 后，当前记录将被定位在下一个未读行上。 也就是说，对于当前记录，GetRows 与 Move NumRows 具有相同的效果。

如果尝试使用多个 GetRows 调用检索所有行，请使用 EOF 属性，以确保位于 Recordset 的末尾。 如果 GetRows 位于 Recordset 的末尾，或者无法在请求的范围内检索到某行，那么它返回的结果数将少于请求数目。 例如，如果您尝试检索 10 条记录，但是无法检索第 5 条记录， GetRows 将返回 4 条记录，同时将第 5 条记录设置为当前记录。 这不会生成运行时错误。 如果另一个用户删除了动态集类型 Recordset 中的某条记录，则可能发生这种情况。 有关如何处理这种情况的演示，请参阅示例。

示例

本示例使用 GetRows 方法从 Recordset 中检索指定数量的行，并使用生成的数据填充数组。 GetRows 方法在以下两种情况下返回的行数少于所需的行数：已到达 EOF，或 GetRows 尝试检索已被其他用户删除的记录。 仅当发生第二种情况时，函数才返回 False 。 若要使该过程运行，需要使用 GetRowsOK 函数。

    Sub GetRowsX() 
     
     Dim dbsNorthwind As Database 
     Dim rstEmployees As Recordset 
     Dim strMessage As String 
     Dim intRows As Integer 
     Dim avarRecords As Variant 
     Dim intRecord As Integer 
     
     Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
     Set rstEmployees = dbsNorthwind.OpenRecordset( _ 
     "SELECT FirstName, LastName, Title " & _ 
     "FROM Employees ORDER BY LastName", dbOpenSnapshot) 
     
     With rstEmployees 
     Do While True 
     ' Get user input for number of rows. 
     strMessage = "Enter number of rows to retrieve." 
     intRows = Val(InputBox(strMessage)) 
     
     If intRows <= 0 Then Exit Do 
     
     ' If GetRowsOK is successful, print the results, 
     ' noting if the end of the file was reached. 
     If GetRowsOK(rstEmployees, intRows, _ 
     avarRecords) Then 
     If intRows > UBound(avarRecords, 2) + 1 Then 
     Debug.Print "(Not enough records in " & _ 
     "Recordset to retrieve " & intRows & _ 
     " rows.)" 
     End If 
     Debug.Print UBound(avarRecords, 2) + 1 & _ 
     " records found." 
     
     ' Print the retrieved data. 
     For intRecord = 0 To UBound(avarRecords, 2) 
     Debug.Print " " & _ 
     avarRecords(0, intRecord) & " " & _ 
     avarRecords(1, intRecord) & ", " & _ 
     avarRecords(2, intRecord) 
     Next intRecord 
     Else 
     ' Assuming the GetRows error was due to data 
     ' changes by another user, use Requery to 
     ' refresh the Recordset and start over. 
     If .Restartable Then 
     If MsgBox("GetRows failed--retry?", _ 
     vbYesNo) = vbYes Then 
     .Requery 
     Else 
     Debug.Print "GetRows failed!" 
     Exit Do 
     End If 
     Else 
     Debug.Print "GetRows failed! " & _ 
     "Recordset not Restartable!" 
     Exit Do 
     End If 
     End If 
     
     ' Because using GetRows leaves the current record 
     ' pointer at the last record accessed, move the 
     ' pointer back to the beginning of the Recordset 
     ' before looping back for another search. 
     .MoveFirst 
     Loop 
     End With 
     
     rstEmployees.Close 
     dbsNorthwind.Close 
     
    End Sub 
     
    Function GetRowsOK(rstTemp As Recordset, _ 
     intNumber As Integer, avarData As Variant) As Boolean 
     
     ' Store results of GetRows method in array. 
     avarData = rstTemp.GetRows(intNumber) 
     ' Return False only if fewer than the desired number of 
     ' rows were returned, but not because the end of the 
     ' Recordset was reached. 
     If intNumber > UBound(avarData, 2) + 1 And _ 
     Not rstTemp.EOF Then 
     GetRowsOK = False 
     Else 
     GetRowsOK = True 
     End If 
     
    End Function