第 3 章：检查数据

  • 项目

适用于：Access 2013、Office 2013

第 2 章介绍了如何从作为 Recordset 对象的数据源中检索数据。 本章将更深入地讨论 Recordset ，包括如何在 Recordset 中导航并查看其中的数据。

Recordsets 具有旨在便于浏览和查看其中内容的方法和属性。 取决于提供程序支持的功能，某些 Recordset 方法或属性可能不可用。 若要继续研究 Recordset 对象，请考虑将从 Microsoft SQL Server 2000 上的罗斯文示例数据库返回的 Recordset ，使用以下代码：

 
'BeginRsTour 
Public Sub RecordsetTour() 
 On Error GoTo ErrHandler: 
 
 Dim objRs As New ADODB.Recordset 
 Dim strSQL As String 
 
 strSQL = "SELECT ProductID, ProductName, UnitPrice FROM Products " & _ 
 "WHERE CategoryID = 7" '7 = Produce 
 
 objRs.Open strSQL, strConnStr, adOpenForwardOnly, _ 
 adLockReadOnly, adCmdText 
 
 'Clean up 
 objRs.Close 
 Set objRs = Nothing 
 Exit Sub 
 
ErrHandler: 
 If Not objRs Is Nothing Then 
 If objRs.State = adStateOpen Then objRs.Close 
 Set objRs = Nothing 
 End If 
 
 If Err <> 0 Then 
 MsgBox Err.Source & "-->" & Err.Description, , "Error" 
 End If 
End Sub 
'EndRsTour

以下 SQL 查询返回一个具有五行（记录）和三列（字段）的 Recordset 。 下表中显示了各行的值。

字段 0
Name = ProductID

字段 1
Name = ProductName

字段 2
Name = UnitPrice

7

Uncle Bob's Organic Dried Pears

30.0000

14

豆腐

23.2500

28

Rssle Sauerkraut

45.6000

51

Manjimup Dried Apples

53.0000

74

Longlife Tofu

10.0000

下一部分说明如何在此示例 Recordset 中查找光标的当前位置。

本章包含以下主题：