Страница 1 из 1
Суммирование поля
Добавлено: 22 мар 2005, 22:56
nicolson
Добрый вечер. Подскажите, как сделать, чтобы при нажатии кнопки просуммировался столбец таблицы (Query), а результат записался в Edit? Заранее большое спасибо !!! Если нетрудно, дайте код, буду премного благодарен!!
Добавлено: 22 мар 2005, 23:15
Yurich
Используй функцию SUM() в SQL запросе.
Добавлено: 22 мар 2005, 23:20
nicolson
Код: Выделить всё
procedure TForm1.Button3Click(Sender: TObject);
begin
query1.Close;
query1.sql.Clear;
query1.SQL.Add('select sum(ddd) from rt.dbf');
query1.Open;
end;
ddd- имя столбца. Подскажите что не так. И как можно сделать, чтобы итоговые данные отобразились в Эдите?
Добавлено: 23 мар 2005, 10:47
Yurich
Это уже вопрос по Delphi. Думаю тебе быстрее помогут если ты задашь этот вопрос в разделе
Delphi и Pascal
Добавлено: 23 мар 2005, 11:27
AndreykA
Если запрос который в Query1 правильный, то после Open он должен содержать нужную сумму и далее можно сделать следующее:
Код: Выделить всё
...
query1.SQL.Add('select sum(ddd) as MySumma from rt.dbf');
query1.Open;
Edit1.Text := Query1.FieldByName('MySumma').AsString;
...