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

Posted by obzor under Delphi

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

Serge_Bliznykov

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

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

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

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

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;

тема на форуме

Похожие статьи

• Установить RadioButton в соответствии со значением в таблице базы данных
• Delphi — вывод всех данных с таблицы
• Запретить ввод повторяющихся данных
• Обработка ошибки (БД в Delphi)
• «Контроль версий» в структуре БД
• «Перемешать» данные в БД
• Вывод данных БД в Hint текста
• Сравнить весь столбец в таблице с текущим значением
• Удаление нескольких записей из БД
• Близкие контакты третьего вида с Visual Foxpro