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

← →
Ahmad K (2003-03-06 01:26) [0]

собственно сабж...

← →
mike-d © (2003-03-06 01:38) [1]

см. BDE - HELP - Local SQL

← →
shenvg © (2003-03-06 01:43) [2]

либо суммирующим запросом на SQL
либо циклом по всему датасету....

← →
theodor_iv (2003-03-06 06:30) [3]

2 shenvg:
> либо циклом по всему датасету....

Главное за время цикла не состариться... :)

Я использую такую функцию:
function SQLCalc(const Func, Field, Table: string): Double; var Q: TQuery; begin Q := TQuery.Create(nil); try Q.SQL.Text := Format("SELECT %s(T."%s") FROM "%s" T", [ Func, Field, Table ]); Q.Open; Result := Q.Fields[0].AsFloat; finally Q.Free end; end;

Например: SQLCalc("SUM", "ACCT_NBR", ":DBDEMOS:CLIENTS.DBF")

← →
Mike Kouzmine (2003-03-06 08:57) [4]

2 shenvg:
> либо циклом по всему датасету....

> Главное за время цикла не состариться... :)
примерно 100 записей в секунду на 10 мб

← →
Ahmad K (2003-03-06 20:37) [5]

Ребята, а если я использую TTable и базы Paradox?

Ну сказали же в этом случае циклом по всему набору данных и суммируй.

table.first;
sum:=0;
while not table.eof do
begin
sum:=sum+table.fieldbyname("MyField").value;
table.next
end;
caption:=***tostr(sum)

>Ahmad K (06.03.03 20:37)
>Ребята, а если я использую TTable и базы Paradox?

Ну и спользуй на здоровье ! А запрос будет сам по себе считаться. Можешь написать процу как сказал theodor_iv (06.03.03 06:30) и вызывать ее в обработчиках типа AfterPost/Insert/Delete/Refresh. Если табла большая и этот запрос тормозит, то сделай по кнопке.

Суммирование данных столбца в BDE Найти похожие ветки