Compartilhar via

Capítulo 3: Exame de dados

  • Artigo

Aplica-se ao: Access 2013, Office 2013

O capítulo 2 explicou como recuperar os dados de uma fonte de dados como um objeto Recordset. Este capítulo tratará do Recordset mais detalhadamente, incluindo como navegar por meio do Recordset e exibir os dados.

Os Recordsets têm métodos e propriedades criados para facilitar o movimento entre eles e examinar os conteúdos deles. Dependendo da funcionalidade oferecida pelo provedor, alguns métodos ou propriedades do Recordset poderão não estar disponíveis. Para continuar a exploração do objeto Recordset, considere um Recordset que será retornado pelo banco de dados de exemplo Northwind no Microsoft SQL Server 2000, usando o seguinte código:

 
'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

Esta consulta SQL retorna um Recordset com cinco linhas (registros) e três colunas (campos). Os valores de cada linha são mostrados na tabela a seguir.

CAMPO 0
Nome = ProductID

CAMPO 1
Nome = ProductName

CAMPO 2
Nome = UnitPrice

7

Pêras secas orgânicas do Tio Bob

30.0000

14

Tofu

23.2500

28

Chucrute Rssle

45.6000

51

Maçãs secas Manjimup

53.0000

74

Tofu longa vida

10.0000

A próxima seção explica como localizar a posição atual do cursor neste conjunto de registros de exemplo.

Este capítulo aborda os seguintes tópicos: