visual basic6 + sql

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:

---

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

---

salut,

une fois que tu as fait:

Code:

---

RS1.Open sql, db, adOpenDynamic, adLockOptimistic

---

tu peux utiliser toutes les fonctions concernant le recordset.

Par exemple, tu peux faire

Code:

---

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:

---

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+