Partager via


Chapitre 3 : Examen de données

S’applique à : Access 2013, Office 2013

Le chapitre 2 vous a appris à récupérer des données à partir d'une source de données présentée sous la forme d'un objet Recordset. Ce chapitre décrit l'objet Recordset plus en détail et explique notamment comment naviguer dans un Recordset afin d'afficher ses données.

Les objets Recordset possèdent des méthodes et des propriétés qui vous permettent de les explorer et d'examiner leur contenu. Selon les fonctionnalités prises en charge par le fournisseur, certaines méthodes et propriétés des objets Recordset sont disponibles et d'autres ne le sont pas. Pour continuer à explorer l'objet Recordset, imaginez un jeu d'enregistrements renvoyé par la base de données exemple Northwind sur Microsoft SQL Server 2000, à l'aide du code suivant :

 
'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 

Cette requête SQL renvoie un jeu d'enregistrements constitué de cinq lignes (enregistrements) et de trois colonnes (champs). Les valeurs de chaque ligne sont indiquées dans le tableau suivant.

CHAMP 0
Name = ProductID

CHAMP 1
Name = ProductName

CHAMP 2
Name = UnitPrice

7

Pêches séchées bio Oncle Bob

30.0000

14

Tofu

23.2500

28

Choucroute Frau Kraut

45.6000

51

Pommes séchées Manjimup

53.0000

74

Tofu LongVi

10.0000

La section suivante explique comment localiser la position actuelle du curseur dans cet exemple d’objet Recordset.

Ce chapitre présente les rubriques suivantes :