Суммирование столбца таблицы

[Aleksandr]

Как проссумировать данные DBGrida по столбцу

[mihali4]

Элементарно.
Берем DataSource, из которого бурутся данные в грид, и делаем:

sum:=0;
DataSource.First;
while not DataSource.Eof do
begin
sum:=sum+DataSource.FieldByName('MyValue').Value;
DataSource.Next;
end;

[Aleksandr]

Я делаю вот так

sum1:=0;
DataModule1.ADOTable1.First;
while not DataModule1.AdoTable1.Eof do
begin
sum1:=sum1+DataModule1.AdoTable1.FieldByName('sum').Value;
DataModule1.Adotable1.Next;
Label1:= sum1+DataModule1.AdoTable1.FieldByName('sum').Value;
end;

почему у меня суммирует последнюю строку два раза?

[_SERGEYX_]

А почему бы не написать
select sum(MyValue) from table

[Aleksandr]

Можно поподробней. И если можно то с ADO, а то почему то с запросами в ADO у меня не получается.

[_SERGEYX_]

var aSum: double;
//**************
ADOQuery1.Close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select sum(ИМЯ_ПОЛЯ) from ИМЯ_ТАБЛИЦЫ');
ADOQuery1.open;
aSum:=ADOQuery1.fields[0].asfloat;
Showmessage(floattostr(aSum));

[Aleksandr]

Всем спасибо. Все получилось.