Discussion :

[f5jcg_Lulu]

Bonjour à tous,
Problème du jour. J'ai une BDD contenant entre autre un champ montant_debit dont je souhaite faire la somme. J'ai cherché dans mes vieux codes je n'ai jamais fait ça. Voici le code que j'ai concocté en piochant ici ou là sur le Net.
Ceci est un essai rapide (1 connecteur, 1 Query, 1 Datasource, 1 bouton, 1 DBGrid, 1 TEdit) sur 1 colonne (somme_debit) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button1Click(Sender: TObject);
var Total_debit: Extended;
begin
FormatSettings.DecimalSeparator := '.';
With QJournal do
begin
  SQL.Clear;
  SQL.Text := 'SELECT SUM(montant_debit) As Total_debit FROM tblJournal WHERE Num_operation <> 0';
  Open;
  Total_debit := QJournal.FieldByName('montant_debit').AsFloat;
end;
      Edit1.Text := FormatFloat('0.00',Total_debit);
end;

Accessoirement, le champ montant_debit est en REAL(6,2).
Pourquoi ai-je un message m'indiquant que la colonne montant_debit est non trouvée bien que présente dans la table tblJournal, le total s'affichant quand même dans le DBGrid (avec une seule décimale) mais pas dans mon Edit.
Merci pour votre aide.
Cordialement

[tatayo]

Bonjour,
La colonne est "non trouvée" car u tu as mis un alias dans la clause SELECT: Total_debit. C'est donc cette colonne que tu dois récupérer dans ton code.

Tatayo

[f5jcg_Lulu]

Ok ça fonctionne mieux avec votre solution, c'est sûr. Je n'avais pas du tout percuté.
Encore merci Tatayo
Cordialement

[SergioMaster]

Bonjour,

Si QJournal est une query Firedac (et donc si Firedac il y a) je suggérerai une approche plus compacte en utilisant FDConnection.ExecSQLScalar

sans avoir tester, je pense à quelque chose comme ceci

Code Delphi :

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

1
2
3
4
5
6
7
 
procedure TForm1.Button1Click(Sender: TObject);
var Total_debit: Extended;
begin
TotalDebit:=FDConnection.ExecSQLScalar('SELECT SUM(montant_debit) As Total_debit FROM tblJournal WHERE Num_operation <> 0');
Edit1.Text := FormatFloat('0.00',Total_debit);
end;

[f5jcg_Lulu]

Je suis ennuyé car la solution de Serge fonctionne également et je suis donc devant un dilemme : quelle solution adopter ? Mais abondance de bien ne nuit pas.
Merci à tous les deux.
Cordialement

[SergioMaster]

Je suis content que, à main levée, mon code ait fonctionné
Bien que encore un fois il s'agisse plus d'une question Delphi que SQLite.
Moi je suis pour le compactage de code, moins il y a de composant (dans ce cas pas de QJournal) plus facile sera la maintenance, tel est mon avis.

Je note aussi un FormatSettings.DecimalSeparator := '.'; qui n'est pas vraiment approprié dans le sens où il change le TFormatSettings de la session. Ile eu mieux valu créer une variable de TFormatsettings spécifique à la routine et utiliser la version surchargée function FormatFloat(const Format: string; Value: Extended; const AFormatSettings: TFormatSettings)

Code :

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

1
2
3
4
5
6
var FS : TFormatSettings;
begin
FS:=TFormatSettings.Create;  // ou FS:=TFormatSettings.Create('en-US'); ce qui évite la ligne suivante
FS.Decimal.DecimalSeparator := '.'; 
...
Edit1.Text := FormatFloat('0.00',Total_debit,FS);