powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Помогите с запросом !!!
2 сообщений из 2, страница 1 из 1
Помогите с запросом !!!
    #32042168
Витя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Имеется база с записями Месяц , Зарплата , Часы , Дни.
Хочу без временной таблицы подсчитать по кварталам , т.е. просуммировать по три месяца , сам уже замучился , помогите пожалста с запросом , Добавлю еще , что кроме Месяца (тип поля Date) все поля вычисляемые , поэтому и вопрос у меня такой , не налагает ли это ограничения на SQL .
Пробовал , естественно через Case Month(Месяц), то не хватает мне мозгов вставить это дело в sql текст .Работаю с парадоксом через DBE.
Помогите с запросом !!!!!!!!!!!!!!!!!
Меня хватило только на это :

procedure TFormOverTime.Button1Click(Sender: TObject);
begin
Table.First;
while not Table.Eof do begin
Query.Close;
Query.sql.add('select :VTabNum, sum(:VZarpl),case Month(:VDatta) when ');
Query.sql.add('between 1 and 3 then 11');
Query.sql.add('between 4 and 6 then 22');
Query.sql.add('between 7 and 9 then 33');
Query.sql.add('between 10 and 12 then 44 end as qw');
Query.ParamByName('VTabNum').asInteger:= Table.Fields.AsInteger;
Query.ParamByName('VDatta').asDateTime:= Table.Fields[9].AsDateTime;
Query.ParamByName('VZarpl').asCurrency:= Table.Fields.AsCurrency;
Query.ExecSQL;
Table.Next;
end;
end;
...
Рейтинг: 0 / 0
Помогите с запросом !!!
    #32042182
Splain
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
select tabnum, sum(zarpl) as z, ((month(vdate) - 1) div 3) as kvartal
from z_table
where year(vdate) = year(:vdate)
and tabnum = :tabnum
group by tabnum, kvartal

Нечто навроде этого.
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Помогите с запросом !!!
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]