Discussion :

[ingstat]

bonjour,
je suis debutant en vb6 et je fais ma premiére application,
je compte afficher et imprimer le resultat d'une requette sql,mais je trouve pas comment recupérer le resultat de la requette.
voici le code et je compte pour vous pour m'aider:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Private Sub Command6_Click()
Dim d As Date
Dim f As Date
Dim RS As New ADODB.Recordset
Dim RS1 As New ADODB.Recordset
Dim sql As String
d = InputBox("Entrer la première date", "Afficher Etat")
f = InputBox("Entrer la deuxième date", "Afficher Etat")
If RS.State = adStateOpen Then RS.Close
RS.Open "T1", db, adOpenDynamic, adLockOptimistic
sql = "Select * From T1 where [Date Execution] Between " & d & " And " & f & ""
If RS1.State = adStateOpen Then RS1.Close
Set RS1 = New ADODB.Recordset
RS1.Open sql, db, adOpenDynamic, adLockOptimistic
End Sub

[Asdorve]

salut,

une fois que tu as fait:

Code :

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

RS1.Open sql, db, adOpenDynamic, adLockOptimistic

tu peux utiliser toutes les fonctions concernant le recordset.

Par exemple, tu peux faire

Code :

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

msgbox RS1.recordCount

pour afficher dans une boite de dialogue le nombre d'enregistrements que tu as trouvés.

Tu peux faire également insérer toutes tes données de ta requete dans un contrôle "datagrid". (à toi de chercher sur le forum comment ça marche... )

Enfin, si tu veux récupérer des données spécifiques, tu peux faire une boucle sur ton recordset, du genre

Code :

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

1
2
3
4
5
6
7
8
9
 
Do until RS1.EOF
 
    ...
    ...
 
    rsADO.MoveNext    'pour passer à l'enregistrement suivant
 
Loop

Voilà en espérant que ça te soit utile.

A+