Discussion :

[jer64]

Bonjour,

Avec Delphi 7 et firebird 2, je n'arrive pas à additionner toutes les données d'une colonne dans une table (comme dans un tableur excel).

Voici mon code ou a1 et t sont des variable string:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
 
 
datamodule2.FBDataSet1.SQLSELECT.Add('select ANNEE,"'+ t + '" from indices where ANNEE <=' +a1 + ' AND ANNEE >'+inttostr(strtoint(a1)-4));
 
datamodule2.FBDataSet1.Active:=true;
 
t:=floattostr(datamodule2.FBDataSet1.SQLSelect.Add('select sum "1ER TRIMESTRE" from indices'));
showmessage(t);

Je ne trouve pas le bon résultat. Cela me donne t=1

Merci d'avance.

Jer

[evarisnea]

essaie plutôt comme ceci

Code :

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

1
2
3
4
5
6
7
8
...
datamodule2.FBDataSet1.Active:=false;
datamodule2.FBDataSet1.SQLSelect.Clear();
datamodule2.FBDataSet1.SQLSelect.Add('sekect Sum("1ER TRIMESTRE") AS Somme from indices');
datamodule2.FBDataSet1.Active:=true;
t:=datamodule2.FBDataSet1.FieldByName('Somme').AsString;
showmessage(t);
...