Как подсчитать общую сумму значений в 1 столбце

← →
dream (2003-09-15 08:28) [0]

У меня в 1 колонке идут числовые значения , так вот вопрос как просумировать все записи этой колонки ?

← →
Layner (2003-09-15 08:31) [1]

Я делал отдельным запросом, SUM(field).

← →
mfender (2003-09-15 08:34) [2]

Что, до сих пор не выяснилось?
http://delphimaster.net/view/3-1063447797/

← →
dream (2003-09-15 08:52) [3]

> mfender

я к сожалению нет :( я новичёк в этом деле и не могу до конца понять если не трудно привидите код , хотя бы самый простой

← →
Evgeny V (2003-09-15 09:14) [4]

Select SUM(field1) from table или при открытии таблицы пробежаться по всем записям и проссумировать, смотри метод Next, и свойство EOF

← →
Johnmen (2003-09-15 09:25) [5]

>dream (15.09.03 08:52)
>я новичёк в этом деле

Новички начинают с чтения книг по основам программирования БД. А не с вопросов в форумы...

← →
dream (2003-09-15 09:26) [6]

> Johnmen

Я новичёк по работе с базами данных а не с delphi !

>Evgeny V

Пробую

← →
Johnmen (2003-09-15 09:31) [7]

>dream (15.09.03 09:26)
>Я новичёк по работе с базами данных а не с delphi !

А я разве утверждал, что с delphi ?
:)

← →
dream (2003-09-15 10:04) [8]

Вот я уже получаеться не новичёк :)

var sum:integer;
begin
sum:=0;
try
Table1.First;
while not Table1.Eof do begin
Sum := Sum + strtoint(table1["summa"]);
Table1.Next;
edit14.text:=inttostr(sum);
end;
except
showmessage("Ошибка № 1 при подсчёте общей суммы");
end;

← →
Deniz (2003-09-15 10:16) [9]

>dream (15.09.03 10:04) [8]
Пока используешь TTable - новичок :)

← →
Плохиш_ (2003-09-15 10:26) [10]

>dream (15.09.03 10:04) [8]

Судя по коду, ты вообще в самом начале. И не только из-за TTable

← →
Anatoly Podgoretsky (2003-09-15 10:37) [11]

dream (15.09.03 09:26) [6]
Также новичек по чтению и интерпритации ответов по основам программирования БД

Хороший вариант предложен Evgeny V © (15.09.03 09:14) [4]
Это даже не требует кода, достаточно бросить компоненты на форму и установить свойства.

← →
dream (2003-09-15 11:10) [12]

Может я и новичёк ! но я уверен что никто из вас не сможет сделать так чтобы база данных работала на любом компьютере без установки BDE ! а я могу ( просто у меня из за этого проэкт станет на 500 кб больше а не как у вас на 15 - 25 мб )

!!

← →
Helper (2003-09-15 11:14) [13]

Вместо того что-бы парня доставать - помогли бы лучше.

Select SUM(field1) as _Res_ from table - это с компонентом TQuery.

>Sum := Sum + strtoint(table1["summa"]);

Лучше использовать:
Sum := Sum + TQuery.FieldByName("_Res_").AsFloat;

← →
Плохиш_ (2003-09-15 11:18) [14]

> dream (15.09.03 11:10) [12]

Я плякал.

← →
Johnmen (2003-09-15 11:18) [15]

>...но я уверен что никто из вас не сможет

Незнание+Самоуверенность=Гремучий замес
:)

← →
Helper (2003-09-15 11:35) [16]

>Незнание+Самоуверенность=Гремучий замес

Незнание+Самоуверенность=Дремучий замес

← →
ORMADA (2003-09-15 12:02) [17]

Слухай чувак мозги себе не забивай а поставь библиотеку Ehlib.
Там это сделать элементрано.Не найдёшь пиши.

← →
ORMADA (2003-09-15 12:05) [18]

И ещё не используй Table, лучше возьми ADOQuery.

← →
BAYES (2003-09-15 16:23) [19]

Когда то давно, задавал почти такой же вопрос, то же было много разглагольствований, но один человек помог.
with Table1 do begin DisableControls; try First; while not Eof do begin Sum := Sum + FieldByName("Field2").AsInteger; Next; end; finally EnableControls; end; end;

← →
BAYES (2003-09-15 16:25) [20]

И на самом деле поставь библиотеку Ehlib. И все. Халявная же.

← →
mfender (2003-09-15 17:24) [21]

> поставь библиотеку Ehlib.
> Там это сделать элементрано

Элементарней было сделать так, как советовали ему в http://delphimaster.net/view/3-1063447797/ за полторы сутки до этого, и в [4], и в [13], и в [15].

← →
MsGuns (2003-09-15 20:23) [22]

Не слушай "спецов", советующих для того, чтоб прогнать соседского кота, установить во дворе гаубицу (Эх-либ). Или вообще сменить прописку (про ADO).
Правильно запросом, рез-т которого связать с сорсом, а через него в только читаемые DBEdit`ы, расположенные под соотв.колонками. В событии AfterRefresh основого НД (который отображается в гриде) перезапускай этот запрос (Close/Open). Кода ровно на 4-5 строк, а технология вполне прогрессивная. А главное,- не надо лазить по осн. НД, да еще потом позиционироваться разными букмарками в старое место.

Как подсчитать общую сумму значений в 1 столбце Найти похожие ветки