Discussion :

[abouilyas]

salut
j'ai un MSHFLEXGRID lié à une table qui contient un champ [date_ech], je veux que MSHFLEXGRID affiche juste les valeurs du champ date_ech dont la différence de jours avec la date système est 10.

j'ai fait un code comme suit mais ça marche qu'avec un Msgbox qui affiche une seule date. alors que je veux avoir toutes les dates répondant à la condition.
Mon code:

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
Private Sub Command1_Click()
MaConnection
Dim ms2 as MSHFLEXGRID 
Dim y As Date
sql = "select * FROM regle "
If rs.State = adStateOpen Then rs.Close
rs.Open sql, DB, adOpenKeyset, adLockPessimistic
y = rs!date_ech
If DateDiff("d", Date, y) = 10 Then
sqlz = "select * from regle where date_ech=y"
If rr.State = adStateOpen Then rr.Close
rr.Open sqlz, DB, adOpenKeyset, adLockPessimistic
Set ms2.DataSource = rr
End If
End sub

Merci !!

[Delbeke]

l'erreur est dans cette ligne

Code :

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

sqlz = "select * from regle where date_ech=y"

en efft, tu demande les enregistremets où date_ech est egale au caractère y

[abouilyas]

l'erreur est dans cette ligne

Code :

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

sqlz = "select * from regle where date_ech=y"

en efft, tu demande les enregistremets où date_ech est egale au caractère y

salut Delbeke, merci de m'avoir répondu,
J'ai bien essayé ça mais ça marche pas

Code :

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

sqlz = "select * from regle where date_ech=#" & CStr(y) & "#"

Ce que je tente faire:
- Dans la table regle il y a un champ[date_ech] qui contient bien évidemment des dates.
- je veux avoir tous les enregistrements dont les [date_ech] ont 10 jours de différence avec la date système.
Merci..

[abouilyas]

salut Delbeke, merci de m'avoir répondu,
J'ai bien essayé ça mais ça marche pas

Code :

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

sqlz = "select * from regle where date_ech=#" & CStr(y) & "#"

Ce que je tente faire:
- Dans la table regle il y a un champ[date_ech] qui contient bien évidemment des dates.
- je veux avoir tous les enregistrements dont les [date_ech] ont 10 jours de différence avec la date système.
Merci..

j'ai trouvé la solution grâce à un ami sur un autre forum:

Code :

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

1
2
3
4
5
6
7
Dim y As Date
y = Date + 10
PoolConnection
sqls = "select * from regle where date_ech=#" & CStr(Format(y, "MM/DD/YYYY")) & "#"
If rr.State = adStateOpen Then rr.Close
rr.Open sqls, DB, adOpenKeyset, adLockPessimistic
Set ms2.DataSource = rr