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