Discussion :

[haidark]

je cherche un code qui me permettras d'afficher les donnee de la base de donnee par date
c'est a dire par exemple

du 01/10/2010 au 30/10/2010

voici le code que j'ai écrit merci de le corriger pour moi

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
18
19
20
21
22
23
24
25
26
27
z = 1
 
'rst1.Open " select * from T_mouchard  ", cnx, adOpenStatic, adLockOptimistic, adCmdText
 
If rst1.RecordCount > 0 Then
rst1.MoveFirst
While Not rst1.EOF
 
    If rst1("dateconnexion") >= txtfields(3).Text And rst1("dateconnexion") <= txtfields(4).Text Then
 
    msf.TextMatrix(z, 1) = rst1.Fields(0)
    msf.TextMatrix(z, 2) = rst1.Fields(1)
    msf.TextMatrix(z, 3) = rst1.Fields(2)
    msf.TextMatrix(z, 4) = rst1.Fields(3)
    msf.TextMatrix(z, 5) = rst1.Fields(4)
    z = z + 1
    rst1.MoveNext
    Else
    rst1.MoveNext
    End If
Wend
 
Else
msf.Clear
MsgBox "pas d'enrregistrement trouve", vbOKOnly + vbInformation, "information"
End If
rst1.Close

[ProgElecT]

Salut

Plutôt que de trier le resultat de ton recordset tu devrais ouvrir ce recordset sous conditions de tes dates (requête SQL).

Tu peux trouver ICI un des nombreux exemples dans ce forum.

Il y a aussi la FAQ VB6 qui traite de l'ouverture de recordset pour les dates.