Сумма столбца

[reihtmonbern]

Здравствуйте , подскажите пожалуйста как правильно посчитать сумму всех чисел в поле ( столбце ) в бд ado+acess ?? и вы вестирезультат вычисление в лэйбл ?

[atihiy2010]

var c,s:Integer;
ADOTable1.First;
s:=0;
While not ADOTable1.Eof do
begin
c:=ADOTable1.FieldByName['Столбец'].AsInteger;
s:=c+s;
ADOTable1.Next;
end;

Label1.Caption:=IntToStr(s);

Попробуй так.

[OlegVE]

Здравствуйте
Лучше с помощью SQL

SELECT SUM(ВашеПоле) FROM ВашаТаблицаСВашимПолем

Как это выглядит в Delphi

with ADOQuery1 do begin
  Close;
  SQL.Clear;
  SQL.Add:='SELECT SUM(ВашеПоле) ';
  SQL.Add:='FROM ВашаТаблицаСВашимПолем';
  Open;
  Label1.Caption:=Fields[0].AsString;
end;

До свидания

[asmodey1]

И как это должно выглядеть:

with ADOQuery1 do begin
  Close;
  SQL.Text:='SELECT SUM(ВашеПоле) FROM ВашаТаблицаСВашимПолем';
  Open;
  Label1.Caption:=Fields[0].AsString;
end;

З.Ы.
Я уже не говорю о странной конструкции SQL.Add:='SELECT SUM(ВашеПоле) ';
Которая, опять-таки, должна выглядеть так : SQL.Add('SELECT SUM(ВашеПоле) ');

[OlegVE]

Сообщение от asmodey1

Я уже не говорю о странной конструкции SQL.Add:='SELECT SUM(ВашеПоле) ';
Которая, опять-таки, должна выглядеть так : SQL.Add('SELECT SUM(ВашеПоле) ');

Конструкция вовсе не странная, согласен что SQL.Add('SELECT SUM(ВашеПоле) '); верно, взял кусочек кода и невнимательно переделал. В итоге, какой бы странной конструкция не казалась

with ADOQuery1 do begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT SUM(UnitPrice) ');
  SQL.Add('FROM Invoices');
  Open;
  Label1.Caption:=Fields[0].AsString;
end;

P.S. asmodey1, Спасибо за замечание

[artemavd]

Лучше так:

 Form1.ADOQuery1.Close;
 Form1.ADOQuery1.SQL.Text:='select sum(<pole>) as POLE1 from table';
 Form1.ADOQuery1.Open;
 Form1.Label1.Caption:=IntToStr(Form1.ADOQuery1.FieldByName('POLE1').AsInteger);

[reihtmonbern]

ребята я пробовал первый код с циклом

var c,s:Integer;
ADOTable1.First;
s:=0;
While not ADOTable1.Eof do
begin
c:=ADOTable1.FieldByName['Столбец'].AsInteger;
s:=c+s;
ADOTable1.Next;
end;

Label1.Caption:=IntToStr(s);

выдал ошибку а второй раз через sql запрос тоже ошибка
[/CODE]
with ADOQuery1 do begin
Close;
SQL.Text:='SELECT SUM(ВашеПоле) FROM ВашаТаблицаСВашимПолем';
Open;
Label1.Caption:=Fields[0].AsString;
end;
[CODE]

Дайте пожалуйста нормальный код ааа будьте человеками

[atihiy2010]

Только что проверил этот код. Все работает. Просто ты не поставил begin после обьявления переменных, а еще я немного переделал присвоение с:=.
Пробуй и скажи результат...

var c,s:Integer;
begin
ADOTable1.First;
s:=0;
While not ADOTable1.Eof do
begin
c:=ADOTable1['столбец'];
s:=c+s;
ADOTable1.Next;
end;

Label1.Caption:=IntToStr(s);
end;

[Serge_Bliznykov]

Сообщение от atihiy2010

Только что проверил этот код. Все работает. Просто ты не поставил begin

Ага. "щас...."

Вы же видите, что уровень TC ниже всяких ожиданий.
Он просто не понимает, что куски кода, которые ему дают - это банально ПРИМЕРЫ. Он же вставляет их КАК ЕСТЬ.
Прямо в обработчик по нажатию кнопки button6 !
Например, кто Вам сказал, что у него на форме есть ADOTable1 или ADOQuery1 ?! Более того, кто Вам сказал, что он вообще ADO пользуется?..

reihtmonbern, по заданным Вам примерам попытайтесь понять СУТЬ предлагаемых Вам решений. И только после этого используйте в Вашей программе. И не забудьте изменить имя таблицы на имя ВАШЕЙ ТАБЛИЦЫ. А имя поля (столбца) на имя того столбца, который есть в вашей таблице и который Вы и хотите просуммировать!

[atihiy2010]

Ну что ж мне ему еще проект свой кинуть? Тем более я же в последнем посте уже написал полный код, который как ты говоришь можно тупо вставить в кнопку методом Copy/Paste)))). А ADOTable судя по всему у автора есть, поскольку в начале он сказал что соеденил это все. Я могу конечно сбросить проект с этим примером, но если автор сечет хоть немного, то сам допрет что к чему...

P.S. И зря мы его обсуждаем, все когда то были начинающими. И ничего в этом такого нет. Ведь если человек спрашивает, значит чем то интересуется в этой жизни и чего то хочет достичь. А я считаю, что это замечательно. Не все ведь сразу богами в Delphi стали...

Во как задвинул