Счет

[4321]

столкнулся с проблемой как посчитать столбик чисел в базе данных Акссес и вывести результат в другую таблицу

 

[sdriver]

Понравилось "столбик чисел"...

 

[valentofer]

index:=ADOTable1.RecordCount; // подсчет кол-ва строк
i:=1;
sum:=0;
ADOTable1.First; // 1 строка
while i<=index do
begin

sum:=sum+ADOTable1.Fields.Fields[2].AsFloat; // сумма

ADOTable1.Next; // к след записи
i:=i+1;			 // счетчик
end;

Думаю понятно будет!!!, а если че пиши! За "+" буду благодарен!

 

[4321]

valentofer

спс за отклик а куда это вписать в OnCalc или по нажатию

 

[Silver Wind]

SQL-запросы рулят!
Доверь подобные действия субд.

 

[Barmutik]

А функцию SUM() в SQL уже отменили ? Или чем она Вас не устраивает?

 

[root]

Для: 4321

INSERT INTO TablicaStolbikovSSummoy(StolbikSum) SELECT sum(StilbikChisel) AS stolbikChisel FROM TablicaGdeEstStolbikChisel