Суммирование поля

nicolson · 22 мар 2005, 22:56

Добрый вечер. Подскажите, как сделать, чтобы при нажатии кнопки просуммировался столбец таблицы (Query), а результат записался в Edit? Заранее большое спасибо !!! Если нетрудно, дайте код, буду премного благодарен!!

Yurich · 22 мар 2005, 23:15

Используй функцию SUM() в SQL запросе.

nicolson · 22 мар 2005, 23:20

Код: Выделить всё

procedure TForm1.Button3Click(Sender: TObject);
begin
query1.Close;
query1.sql.Clear;
query1.SQL.Add('select  sum(ddd) from rt.dbf');
query1.Open;
end;

ddd- имя столбца. Подскажите что не так. И как можно сделать, чтобы итоговые данные отобразились в Эдите?

Yurich · 23 мар 2005, 10:47

Это уже вопрос по Delphi. Думаю тебе быстрее помогут если ты задашь этот вопрос в разделе Delphi и Pascal

AndreykA · 23 мар 2005, 11:27

Если запрос который в Query1 правильный, то после Open он должен содержать нужную сумму и далее можно сделать следующее:

Код: Выделить всё

...
query1.SQL.Add('select sum(ddd) as MySumma from rt.dbf'); 
query1.Open;
Edit1.Text := Query1.FieldByName('MySumma').AsString;
...