第 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 。下表中显示了各行的值。

FIELD 0
Name = ProductID

字段 1
Name = ProductName

字段 2
Name = UnitPrice

7

Uncle Bob's Organic Dried Pears

30.0000

14

Tofu

23.2500

28

Rssle Sauerkraut

45.6000

51

Manjimup Dried Apples

53.0000

74

Longlife Tofu

10.0000

下一节介绍如何在此示例 Recordset 中查找游标的当前位置。

本章包含以下主题: