| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как подсчитать общую сумму значений в 1 столбце [D6, Paradox]
dream © (2003-09-15 08:28:00)
У меня в 1 колонке идут числовые значения , так вот вопрос как просумировать все записи этой колонки ?
MsGuns (2003-09-15 20:23:00) [1]
Не слушай "спецов", советующих для того, чтоб прогнать соседского кота, установить во дворе гаубицу (Эх-либ). Или вообще сменить прописку (про ADO).
Правильно запросом, рез-т которого связать с сорсом, а через него в только читаемые DBEdit`ы, расположенные под соотв.колонками. В событии AfterRefresh основого НД (который отображается в гриде) перезапускай этот запрос (Close/Open). Кода ровно на 4-5 строк, а технология вполне прогрессивная. А главное,- не надо лазить по осн. НД, да еще потом позиционироваться разными букмарками в старое место.
mfender (2003-09-15 17:24:00) [2]
> поставь библиотеку Ehlib.
> Там это сделать элементрано
Элементарней было сделать так, как советовали ему в http://www.delphimaster.ru/cgi-bin/forum.pl?id=1063447797&n=1за полторы сутки до этого, и в [4], и в [13], и в [15].
BAYES (2003-09-15 16:25:00) [3]
И на самом деле поставь библиотеку Ehlib. И все. Халявная же.
BAYES (2003-09-15 16:23:00) [4]
Когда то давно, задавал почти такой же вопрос, то же было много разглагольствований, но один человек помог.
with Table1 do
begin
DisableControls;
try
First;
while not Eof do
begin
Sum := Sum + FieldByName("Field2").AsInteger;
Next;
end;
finally
EnableControls;
end;
end;
ORMADA (2003-09-15 12:05:00) [5]
И ещё не используй Table, лучше возьми ADOQuery.
ORMADA (2003-09-15 12:02:00) [6]
Слухай чувак мозги себе не забивай а поставь библиотеку Ehlib.
Там это сделать элементрано.Не найдёшь пиши.
Helper (2003-09-15 11:35:00) [7]
>Незнание+Самоуверенность=Гремучий замес
Незнание+Самоуверенность=Дремучий замес
Johnmen (2003-09-15 11:18:00) [8]
>...но я уверен что никто из вас не сможет
Незнание+Самоуверенность=Гремучий замес
:)
Плохиш_ (2003-09-15 11:18:00) [9]
> dream (15.09.03 11:10) [12]
Я плякал.
Helper (2003-09-15 11:14:00) [10]
Вместо того что-бы парня доставать - помогли бы лучше.
Select SUM(field1) as _Res_ from table - это с компонентом TQuery.
>Sum := Sum + strtoint(table1["summa"]);
Лучше использовать:
Sum := Sum + TQuery.FieldByName("_Res_").AsFloat;
dream (2003-09-15 11:10:00) [11]
Может я и новичёк ! но я уверен что никто из вас не сможет сделать так чтобы база данных работала на любом компьютере без установки BDE ! а я могу ( просто у меня из за этого проэкт станет на 500 кб больше а не как у вас на 15 - 25 мб )
!!
Anatoly Podgoretsky (2003-09-15 10:37:00) [12]
dream (15.09.03 09:26) [6]
Также новичек по чтению и интерпритации ответов по основам программирования БД
Хороший вариант предложен Evgeny V © (15.09.03 09:14) [4]
Это даже не требует кода, достаточно бросить компоненты на форму и установить свойства.
Плохиш_ (2003-09-15 10:26:00) [13]
>dream (15.09.03 10:04) [8]
Судя по коду, ты вообще в самом начале. И не только из-за TTable
Deniz (2003-09-15 10:16:00) [14]
>dream (15.09.03 10:04) [8]
Пока используешь TTable - новичок :)
dream (2003-09-15 10:04:00) [15]
Вот я уже получаеться не новичёк :)
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;
Johnmen (2003-09-15 09:31:00) [16]
>dream (15.09.03 09:26)
>Я новичёк по работе с базами данных а не с delphi !
А я разве утверждал, что с delphi ?
:)
dream (2003-09-15 09:26:00) [17]
> Johnmen
Я новичёк по работе с базами данных а не с delphi !
>Evgeny V
Пробую
Johnmen (2003-09-15 09:25:00) [18]
>dream (15.09.03 08:52)
>я новичёк в этом деле
Новички начинают с чтения книг по основампрограммирования БД. А не с вопросов в форумы...
Evgeny V (2003-09-15 09:14:00) [19]
Select SUM(field1) from table или при открытии таблицы пробежаться по всем записям и проссумировать, смотри метод Next, и свойство EOF
dream (2003-09-15 08:52:00) [20]
> mfender
я к сожалению нет :( я новичёк в этом деле и не могу до конца понять если не трудно привидите код , хотя бы самый простой
| |
Страницы: 