Нужно получить сумму значений столбца в БД

[Dux]

Есть таблица, в ней есть столбец Price, мне необходимо в Label записать сумму всех значений в столбце.

Делаю подсчет следующим образом:

    DataModule1.FDQuery1.First;
    for I := 0 to DataModule1.FDQuery1.RecordCount-1 do
         begin
            Total:=total+DataModule1.FDQuery1.FieldByName('Price').AsInteger;
            DataModule1.FDQuery1.Next; 
         end;
    Label1.Caption:=total;

Вопрос: Есть ли более рациональные способы чтобы не надо было перебирать визуально всю таблицу?

[Streletz]

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

Вопрос: Есть ли более рациональные способы чтобы не надо было перебирать визуально всю таблицу?

В SQL для подобных целей есть стандартная функция SUM.

[Dux]

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

В SQL для подобных целей есть стандартная функция SUM.

Спасибо, пробую так:

DataModule1.FDQuery1.Close;
DataModule1.FDQuery1.SQL.add('SELECT sum(Price) FROM data');
DataModule1.FDQuery1.Open;

Но что-то ошибку выдает

[Аватар]

а чего add, а не просто в text запрос засунуть? Там же уже был запрос до этого?

[Dux]

Сообщение от Аватар

а чего add, а не просто в text запрос засунуть? Там же уже был запрос до этого?

В смысле просто в текст?

[Dvoishnik]

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

В смысле просто в текст?

DataModule1.FDQuery1.SQL.text:='SELECT sum(Price) FROM data'

[xxbesoxx]

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

Спасибо, пробую так:

DataModule1.FDQuery1.Close;
DataModule1.FDQuery1.SQL.add('SELECT sum(Price) FROM data');
DataModule1.FDQuery1.Open;

Но что-то ошибку выдает

ошибку .! если DataModule1.FDQuery1 изначально выбирает все полей и потом делаем из этого DataModule1.FDQuery1 "Агрегатные функции" конечно будет ошибка , Я на пример это SELECT sum(Price) делал из другой FDQuery1 или ADOQuery не важно на данный момент

procedure TForm1.btnSummClick(Sender: TObject);
begin
  with qrySUMM do
  begin
    SQL.Clear ;
    SQL.Append('SELECT SUM(price) FROM printer ');
    Open;
    pnlSumm.Caption := qrySUMM.Fields[0].AsString +' . '+ 'Руб';
  end;
end;

[xxbesoxx]

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

DataModule1.FDQuery1.SQL.text:='SELECT sum(Price) FROM data'

Dvoishnik не кто не спрашивал как написать FDQuery1.SQL.text:=

[xxbesoxx]

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

В смысле просто в текст?

Вот здесь правильно "Аватар"

Аватар Там же уже был запрос до этого?

и за этого было чудесный ошибка )))

[Dvoishnik]

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

Dvoishnik не кто не спрашивал как написать FDQuery1.SQL.text:=

а что он тогда спрашивал??

и этот код решает проблему не хуже. не нужен никакой clear.
ИМХО для маленьких запросов sql.text гораздо удобнее чем SQL.Add(); или Append();