[Access] Calcul sur les dates

**vrachid** · 31/03/2008, 12h47

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** · 01/04/2008, 08h44

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** · 01/04/2008, 14h25

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** · 01/04/2008, 14h29

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** · 01/04/2008, 14h55

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 BETWEEN

Debut 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** · 01/04/2008, 15h05

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;

**vrachid** · 01/04/2008, 15h12

encore un pb j'espere que je ne t'embete pas et désolé if result:=true
mais il y a tj le ParamByName identificateur non déclaré

**rsc** · 01/04/2008, 15h19

Tu dois avoir un problème avec tes with. Eviter de les emboîter, ça n'améliore pas la lisibilité du code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
with DM.ACaisse do
begin
  Close;
  SQL .Clear;
  SQL .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;
  Open;
end;
{DtPickerDebut et DtPickerFin étant les DateTimePicker où tu choisis tes dates de début et de fin}

Je suppose que ACaisse est un Query ?? Si tu l'appelais par ex QrCaisse, ça serait plus lisible (pour toi et pour les autres).

**vrachid** · 01/04/2008, 15h35

ParamByName n'existe pas dans les propriété du query je suppose

**rsc** · 01/04/2008, 16h50

Ce n'est une propriété, mais une fonction !
Voici ce que dit l'aide Delphi.

Accède aux attributs du paramètre de nom spécifié.

function ParamByName(const Value: String): TParam;

Description

La méthode ParamByName permet de consulter ou de définir les attributs d'un paramètre identifié par son nom.

Value indique le nom du paramètre dont il faut obtenir les attributs.

ParamByName permet d'abord de définir ou de consulter la valeur d'un paramètre à l'exécution. Par exemple, l'instruction suivante place dans une boîte de saisie la valeur en cours du paramètre nommé «Contact» :

Edit1.Text := Query1.ParamByName('Contact').AsString;

Les paramètres utilisés dans les instructions SELECT ne peuvent être à NULL, mais ils le peuvent pour les instructions UPDATE et INSERT.

**vrachid** · 01/04/2008, 18h03

est ce que je dois déclarer une fonction ou qqchose pour que le programme accepte query.paramByName ??
parceque jusqu'a présent il ne veut rien savoir tj le message identificateur non déclaré.

**vrachid** · 01/04/2008, 19h27

j'ai trouvé ce qui cloche
paramByName et une fonction de Query de la BDE mais moi j'utilse AdoQuery de ADO
merci pour ton aide
il n y aurait pas un truc pareil avec les composant ADO ????

**rsc** · 02/04/2008, 08h41

Code :

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

AdoQuery.Parameters.ParamByName ('...').Value := ...

**vrachid** · 02/04/2008, 10h45

merci a tous
je l'ai trouvé.

**rsc** · 02/04/2008, 10h48

N'oublie pas de mettre le flag

Bon courage pour la suite !

**vrachid** · 02/04/2008, 10h52

au faite je n'ai pas tout a fait résolu le pb je n'arrive pas a récuperer les resultats des calcules j'ai essayé de créer des champs calculé pour le adoquery ç ne marche pas j'ai ajouté dans parameters deux pour stocker les calcule pour les récuperer dans des edit mais ça ne marche pas je suis perduuuuuuuuuuuuu

merci pour ton aide

**rsc** · 02/04/2008, 11h40

Je ne comprends pas. Tu as dans ton Query les champs TotalH et TotalD. Il suffit que tu branches dessus des DbEdit (par l'intermédiaire d'un DataSource.

Restera le 3ème résultat (la différence des deux autres), pour lequel tu peux effectivement utiliser un champ calculé.

Qu'est-ce qui te pose pb exactement ?

**vrachid** · 02/04/2008, 11h52

voila j'ai une BDD access dont j'ai mis trois champs DateJ, Hono, Depenses,
relié a un adoquery quand j'insere des donnée ça marche bien
j'ai crée dans le adoquery deux champ calculé TotalH et TOtalD pour récuperer le SUM(Hono) et le SUM(Depense) mais quand je fais je ne c pas les autre champs DateJ et Hono Depenses ne sont plus reconnu
alors je les ai crée dans le adoquery avec currency comme type et pour l'insertion et l'affichage impeccable avec meme le symbole de l'EUro, mais quand je fais le calcule ça ne marche pas il me sort un msg genre deux valeur pour un champs requis et pourtant aucun n'est requis dans mon app? je ne c pas je crois que je suis totalement a coté de la plaque. merci si tu peux m'aider à m'en sortir

**rsc** · 02/04/2008, 14h04

Je ne comprends pas. Tu as dans ton Query les champs TotalH et TotalD. Il suffit que tu branches dessus des DbEdit (par l'intermédiaire d'un DataSource.

Restera le 3ème résultat (la différence des deux autres), pour lequel tu peux effectivement utiliser un champ calculé.

Qu'est-ce qui te pose pb exactement ?

**vrachid** · 02/04/2008, 14h08

c bon j'ai reglé le pb et ça marche trés bien merci a tous pour votre aide

[Access] Calcul sur les dates

Bases de données Delphi

Discussions similaires

Partager

Partager