Discussion :

[gyzmo5]

bonjour !!

j'ai fais une requête en VBA grâce aux informations trouver sur la FAQ.
seulement je voudrais récupérer les données de ma requête pour les faire figurer dans des zones de textes pour pouvoir m'en servir par la suite.(utilisation d'un recordset ?).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
Dim sSql As String
 
'ouverture de la base de donnée
Set db = DBEngine.OpenDatabase("E:\Sam\Ratio2.mdb")
 
sSql = "Select 9,10,11,12,13,14,22 From chiffre Where chiffre!Date2005 = #" & Format(Me.date_ref, "mm/dd/yyyy") & "#"

9,10,11 .... : champs de ma table chiffre (correspond à des heures)

donc jusque là mon code est correcte (enfin je pense !! ) seulement je ne sais pas comment faire pour récupérer les valeurs une par une afin de les mettre dans des zones de textes différentes.

Merci d'avance pour vos réponses !

[Dolphy35]

Salut,

Il faut parcourir ton Recordset

Tu peux faire comme Cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Set rst = CurrentDb.OpenRecordset("SELECT * FROM Table;")
 
        If rst.RecordCount <> 0 Then
 
            If rst.Fields(0) = "Comparateur" Then
 
                Debug.Print rst.Fields(1)
 
            End If
rst.MoveNext

En gros ton Recordset est sous forme de tableau tu fais une boucle et tu change de Ligne par MoveNext

ps: je n'ai pas fais la boucle. Tu saura faire.

[gyzmo5]

merci pour ta réponse