Discussion :

[vrachid]

bj a tous j'ai une app delphi BDD Access qui contient un cinq champ (hono, depense, totalH, TotalD, TotalG) j'ai fais des requete pour calculer les champs hono et Depense ça marche bien mais quand je voudrai savoir comment faire pour faire ce calcule en précisnat une date dans le DateTimePicker, ou bien de DAteTime Picker , genr (du...... au.......); et aussi pour filtrer les champs avec des date ?
merci a tous

[rsc]

Dans ta requête :

Code :

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

WHERE MADATE BETWEEN :DateDebut AND :DateFin

et dans ton code, tu passes les valeurs aux paramètres :

Code :

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

ParamByName ('DateDebut') .AsDateTime := DateTimePickerDebut .Date;

[vrachid]

Slt et merci pour ta réponse mais peux tu m'espliquer qq chose
pk dois je mettre paramByName je ne stocker pas les dates dans la base de donnée, ou alors je n'ai rien pigé.
merci encore

[rsc]

Je pensais que tu avais oublié de mentionner les champs Date de ta base. Mais si vraiment si tu ne stockes pas les dates dans la base, comment veux-tu filtrer sur les dates

[vrachid]

désolé oui je stock la date d'insertion je viens d'essayer le code me renvoi un résultat 0 et quadn j'essayes le ParamByName il me dit non déclaré, alors stp si tu peux me donner plus de précision, voici le code
pour l'insertion des données:
DM.ACaisse.Insert;
DM.ACaisse.FieldByName('dateJ').AsDateTime:=Date;
DM.ACaisse.Post;

et pour le calcule:
with DM.ACaisse do
begin
Close;
with SQL do
begin
Clear;
Add('SELECT SUM(Hono) as TotalH, SUM(Depenses) as TotalD From Recette where DateJ BETWEENDebut AND Fin');
Open;
end;
Edit3.Text:=FloatToStr(DM.ACaisse.FieldByName('TotalH').AsCurrency);
Label7.Text:=FloatToStr(DM.ACaisse.FieldByName('TotalD').AsCurrency);
Label8.Text:=FloatToStr(StrtoFloat(Edit3.Text)-StrToFloat(label7.Text));

NB: si je n'utilise pas le filtrage de date il calcule bien
alors si tu peux voir ce qui cloche dans ce code
merci

[rsc]

Ca devrait marcher comme ça : il faut :
1° Spécifier les paramètres dans ta requête.
2° Leur passer une valeur avant l'exécution.

Code :

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

1
2
3
4
5
6
....
Add('SELECT SUM(Hono) as TotalH, SUM(Depenses) as TotalD From Recette where DateJ BETWEEN :DDebut AND :DFin');
ParamByName ('DDebut') .AsDateTime := DtPickerDebut .Date;
ParamByName ('DFin') .AsDateTime := DtPickerFin .Date;
{DtPickerDebut et DtPickerFin étant les DateTimePicker où tu choisis tes dates de début et de fin}
Open;