ingstat
Messages postés49Date d'inscriptionvendredi 15 août 2008StatutMembreDernière intervention10 septembre 2008
-
4 sept. 2008 à 16:05
lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009
-
5 sept. 2008 à 08:52
bonjour,
je afficher le resultat d'une reqette sql,
j'ai essayé de le faire dans une datagrid mais je n'ai pas reussi à le faire.
ce code tourne mais je trouve pas une facon d'afficher le resultat.
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