Discussion :

[wiski08000]

bonjours à tous
j'utilise delphi 7
dsl je suis débutant
je voudrais bien transformer ce code en requette sql avec un query

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Total := 0;
  With mdd.matable Do
  Begin
    First;
    While Not Eof Do
    Begin
      if mdd.matable.FieldByName('num_cp').AsString=edit2.Text 
    then
      total:=total+FieldByName('mt_recharge').AsFloat;
      Next;
    End;
  End;
  monetat.QRLabel32.Caption:=floattostr(total);

merci pour votre aide

[SergioMaster]

Bonjour,

certainement quelque chose comme

Code SQL :

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

SELECT SUM(mt_recharge) AS TOTAL FROM MATABLE WHERE num_cp=:CP

comme vous n'indiquez ni connecteurs (composant d'accès aux données) pas facile de vous donner un code plus explicite pour créer une query au runtime, donc

Code :

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

1
2
3
4
QueryTotal.active:=False;
QueryTotal.ParamByName('CP').asString:=Edit2.Text;
QueryTotal.Active:=True;
monetat.QRLabel32.Caption:=QueryTotal.FieldByname('Total').asString;

c'est le moins pire que je puisse proposer

[wiski08000]

et si je veux ajouter une autre condition

Code :

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

1
2
3
if mdd.matable.FieldByName('num_cp').AsString=edit2.Text and  //  je veux ajouter une condition de recherche dans un interval de deux DateTimePicker 
//c.a.d avoir le total a une période défini comment faire

[SergioMaster]

Bonjour

et si je veux ajouter une autre condition

Alors il serait bon que vous appreniez les bases du SQL (ce qui n'a rien à voir avec Delphi !)
Avec le peu d'informations données (pas de nom de champ, pas d'indication de SGBD, pas d'indication des composants de connexion)

je vais l'écrire au plus sécuritaire

Code SQL :

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

1
2
SELECT SUM(mt_recharge) AS TOTAL FROM MATABLE WHERE num_cp=:CP
 AND colonne_date BETWEEN CAST( :dd AS DATE) AND CAST ( :df AS DATE)

Code :

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

1
2
3
4
5
QueryTotal.active:=False;
QueryTotal.ParamByName('CP').asString:=Edit2.Text;
QueryTotal.ParamByName('dd').asDate:=DateTimePicker1.Date;
QueryTotal.ParamByName('df').asDate:=DateTimePicker2.Date;
QueryTotal.Active:=True;

[wiski08000]

message erreur " QueryTotal champ total non trouvé "
comment dois je afficher le total
débutant dsl

[tourlourou]

Débuter ne dispense pas de bien présenter son problème, en fournissant à ceux susceptibles de vous aider les indications demandées, surtout si vous souhaitez une aide efficace :

Avec le peu d'informations données (pas de nom de champ, pas d'indication de SGBD, pas d'indication des composants de connexion)

Indiquer le code produisant l'erreur que vous citez serait bien évidemment un plus évitant de sortir une seconde boule de cristal du coffre :

QueryTotal champ total non trouvé