ado запросы

[munhauz]

давно не писал
потому заранее прошу прошение за глупые вопросы )
и так к сути
есть база на MS ACCESS
там пару таблиц и запросов
есть прожка на delphi 7 (да вот такой я древний )
в прожке есть ADO запрос он там нужен потому что динамический (выводит данные с 2 согласуюшихся таблиц соответствующие определенным параметрам)
так вот
нужно сделать итоговое суммирование по определенным полям
пытался использовать SUM ругается - МОЛ НЕ МОГУ ТАКА КАК НЕ ВСЕ ПОЛЯ ПОДХОДЯТ
создал 2 рапрос - которвй только сумму и выводит
да его сделать динамичным
то есть я изменяю тело запроса в теле проги
так вот как что бы он сумму выводил только по тому запросу который щас на экране

вот так все сложно ) помогите

[Stilet]

по тому запросу который щас на экране

На чьем экране?

[munhauz]

procedure sql_order;
begin
databegin:=form1.DateTimePicker1.Date;
dataend:=form1.DateTimePicker2.Date;
dm.ADOQ_order.Active:=false;
with dm.ADOQ_order do
  begin
    Close;
    sql.Clear;
    sql.Add('SELECT orders.*, client_fiz.*, [orders.summa]*[proc]/100 AS cena_proc, [in_money]-[orders.summa]-([orders.summa]*[proc]/100) AS ostatok, [coast]-([coast]*20/100)-[in_money] AS dobor, [coast]*20/100 AS proc_coast, orders.data');
    sql.Add('FROM client_fiz INNER JOIN orders ON client_fiz.id = orders.id_client');
    {Âûâîä íà ïåðèîä âðåìåíè}
    if form1.RadioButton2.Checked=true then
      begin
        sql.Add('WHERE (((orders.data) >= #'+SQL_Date_String(databegin)+'#))');
        sql.Add('AND (((orders.data) < #'+SQL_Date_String(dataend)+'#));');
      end
    else
      begin
        sql.Add(';')
      end;


    Open;
  end;
dm.ADOQ_order.Active:=true;
end;

нужна сумма по 5 полям в том чмсле и по вычисляемым



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[munhauz]

народ, ну помогите же!
админы исправлюсь и учту

[Yurk@]

а если сделать что-то вроде:

SELECT SUM(ostatok), <и т.д.> 
FROM SELECT orders.*, client_fiz.*, [orders.summa]*[proc]/100 AS cena_proc, [in_money]-[orders.summa]-([orders.summa]*[proc]/100) AS ostatok, [coast]-([coast]*20/100)-[in_money] AS dobor, [coast]*20/100 AS proc_coast, orders.data
FROM client_fiz INNER JOIN orders ON client_fiz.id = orders.id_client

а вообще было бы неплохо уточнить:
1. какая СУБД
2. какие компоненты
3. куда нужно вывести эту сумму

[Serge_Bliznykov]

Сообщение от Yurk@

а вообще было бы неплохо уточнить:
1. какая СУБД
2. какие компоненты
3. куда нужно вывести эту сумму

1.

есть база на MS ACCESS

2.

есть прожка на delphi 7 (да вот такой я древний )
в прожке есть ADO запрос

т.е. 99.9% что речь идёт о TADOQuery

3.
вот это хороший вопрос!


munhauz,
а ещё я бы посмотрел в такую сторону: насколько я вижу, запрос в программе всегда имеет один и тот же набор полей (ведь поля в Orders и client_fiz не изменяются!). Вот для них сумму и находите, я бы по просто сделал select sum(), sum()... from ( select ... from )

p.s. ещё пара вариантов решения проблемы:
a) можно воспользоваться компонентами Гридов, которые поддерживают футеры с вычислениями (например, EhLib)
b) пройтись на клиенте (в прожке на Delphi) в цикле по записям, найти сумму полей.

p.p.s. вопрос, куда выводить все эти суммы всё равно остаётся...

[Yurk@]

Serge, согласен, не дочитал.

можно воспользоваться компонентами Гридов, которые поддерживают футеры с вычислениями (например, EhLib)

вот как-раз я на это и намекнул вопросом №3

[munhauz]

3. выводить поля на форме - к примеру Edit или DBedit, ну или DBText

ну а так то - наверно я понял все)) спасибо
попробую, отпишусь.
А перебирать поля и суммировать (я так понял через цикл) это немного затратно по времени )
а вот про то что грид подсчитать могет - этого не знал
может кто ссылку кинет где прочесть про сие чудо можно

всем спасибо

[Serge_Bliznykov]

а вот про то что грид подсчитать могет - этого не знал
может кто ссылку кинет где прочесть про сие чудо можно

неверно формулируете. Вот после того, как Вы выберете себе подходящий компонент грида, вот про него документацию и почитаете.
Я бы Вам рекомендовал начать с того, чтобы сходить на сайт EhLiba, скачать компоненты, поставить, потестировать, ОБЯЗАТЕЛЬНО посмотреть демку (раньше она была в наличии!). Если EhLib устроит, вот тогда дальше с ним и разбираться.

выводить поля на форме - к примеру Edit

а почем именно Edit - Вы их редактировать собрались? Впрочем, можно и Edit и Label и даже маленький dbGrid на одну строчку приклеить.. Лишь бы Вас, как разработчика это устраивало и пользователей программы удовлетворяло

А перебирать поля и суммировать (я так понял через цикл) это немного затратно по времени )

Тут всё зависит от деталей. Если у Вас в выборке 200 полей и записей выбралось 100 тысяч, тогда, да, это достаточно затратно (несколько секунд займёт), а если количество записей приемлимое, то и вычисления будут мгновенными!
Боюсь Вас огорчить, но я предполагаю, что в гридах с footer именно такой способ и будет использоваться, только сам цикл подсчёта будет скрыт от Вас!

[Yurk@]

Боюсь Вас огорчить, но я предполагаю, что в гридах с footer именно такой способ и будет использоваться, только сам цикл подсчёта будет скрыт от Вас!

и не зря, так оно и будет
http://programmersforum.ru/showthread.php?t=209246
(пост №5)