Суммировать данные

[Scorpuha]

Есть БД ADO Access. В БД всего одна таблица, в ней несколько полей с названием Agregat№, также есть поля с расходом топлива за сутки поагрегатно к примеру RashodAgregat№. Задача, как вывести в отчет к примеру данные по всем агрегатам за текущий день и к примеру за период с начала месяца. правильно ли организована моя БД или надо названия агрегатов в отдельную таблицу?

[Serge_Bliznykov]

изучайте агрегатные функции.
в вашем случае поможет запросы вида:

select sum([RashodAgregat№]), [Agregat№] 
  from ВашаОднаТаблица
where 
  Дата = нужной (или за месяц месяц(даты) = нужный and год(дата) = нужный )
group by [Agregat№]

правильно ли организована моя БД или надо названия агрегатов в отдельную таблицу?

во-первых, я категорически против использования кириллицы и всяких "хитрых" символов в именах полей. зачем Вам значок "№" в имени поля?! Любите риск? Или хотите багов и неожиданных косяков?!

во-вторых, я бы нормализовал. агрегаты в отдельную таблицу. в таблице расхода - ID из таблицы агрегатов. Причём учтите, первичный ключ должен быть искусственный (autoincrement, например).

[Scorpuha]

я вот так фильтровал таблицу, походу не в ту степь пошел

procedure TForm1.Button2Click(Sender: TObject);

 begin
 Form1.DataSource1.DataSet.Filtered :=False;
 Form1.DataSource1.DataSet.Filter:='data>='+ DateToStr(DateTimePicker2.Date) + ' AND data<=' + DateToStr(DateTimePicker3.Date);
 Form1.DataSource1.DataSet.Filtered :=true;
 end;

В БД я не использую символы и кириллицу, это просто пример написал.

[Scorpuha]

вот тут накидал, но чето ничего не происходит

var
d1,d2:string;
 begin
      d1:=datetostr(datetimepicker2.Date);
       d2:=datetostr(datetimepicker3.Date);
      ADOQuery2.SQL.text:='select sum (gtg1) and sum(gtg1gaz) from narabotka where data between :d1 and :d2';
end;

[Stilet]

var
d1,d2:string;
 begin
      d1:=datetostr(datetimepicker2.Date);
       d2:=datetostr(datetimepicker3.Date);
     with ADOQuery2 do begin 
      close;
      SQL.text:='select sum (gtg1) and sum(gtg1gaz) from narabotka where data between :d1 and :d2';
      Parameters.ParamByName('d1').Value:=d1;
      Parameters.ParamByName('d2').Value:=d2;
      Open.
     end;
end;

[Scorpuha]

тоже ничего не происходит

[Serge_Bliznykov]

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

вот тут накидал, но чето ничего не происходит

var
d1,d2:string;
 begin
      d1:=datetostr(datetimepicker2.Date);
       d2:=datetostr(datetimepicker3.Date);
      ADOQuery2.SQL.text:='select sum (gtg1) and sum(gtg1gaz) from narabotka where data between :d1 and :d2';
end;

жуть!
во-первых, вы же запрос не выполняете, что, по вашему должно происходить?

во-вторых, даты не стоит переводить в строковое представление, кроме глюков, это ничего не даст.

в-третьих, я уже не говорю о том, что даже после того, как Вы выполните запрос, его результат нужно из запроса куда-то задействовать.

это может выглядеть, например, так:

var
  d1,d2:TdateTime;
  sum1, sum2 : extended;
 begin
       sum1  := 0.0; sum2 := 0.0;
       d1 := trunc(datetimepicker2.Date);
       d2 := trunc(datetimepicker3.Date);
      ADOQuery2.Close;
      ADOQuery2.SQL.text:='select sum(gtg1) as sumgtg1, sum(gtg1gaz) as sumgtg1gaz  from narabotka where [data] between :paramdate1 and :paramdate1';
      ADOQuery2.Parameters.ParamByName('paramdate1').Value:=d1;
      ADOQuery2.Parameters.ParamByName('paramdate2').Value:=d2;
      ADOQuery2.Open;
      if  ADOQuery2.eof() then ShowMessage('Нет ни одной подходящей записи')
     else  begin
        sum1 := ADOQuery2.FieldsByName('sumgtg1').AsFloat;
        sum2 := ADOQuery2.FieldsByName('sumgtg1gaz').AsFloat;
        ShowMessage(' первая сумма = '+FloatToStr(sum1)+ ' вторая сумма = '+FloatToStr(sum2));
     end;
end;

p.s. писал прямо в браузере, могут быть опечатки/неточности...

[Scorpuha]

каюсь, строку с Open упустил, добавил все равно не работает. в вашем коде в строке где if в скобках что нужно дописать?

[Serge_Bliznykov]

ничего не надо дописывать. если ругается компилятор, то просто уберите скобки после EOF:

 if  ADOQuery2.eof then ShowMessage('Нет ни одной подходящей записи')

[Scorpuha]

ага, убрал, компилятор ругался на paramdate1 и paramdate2 я его заменил d1 и d2. вроде заработало.