транспонирование строки таблицы в столбец

[kate158]

Сообщение от soleil@mmc

five.SQL.ParamByName('p1').Value:= // сюда передавать список объектов

если я понимаю, то после ':=' должно быть что то типа 'Объект 1' or 'Объект 2' оr 'Объект 3'?

Сообщение от soleil@mmc

five.SQL.ParamByName('p0').Value:= FormatDateTime( 'dd.mm.yyyy', Present);

здесь компилятор ругается на '.ParamByName'.. хотя в свойствах adoquery указан параметр.

[soleil@mmc]

попробуй так (у тебя же селкет небось по всем объектам)

with
t as
(
select *
from secondtable
where 0=0
  and DATA= :p0
)

select d1 d, idobject, data, 1 hours
from t
union all
select d2 d, idobject, data, 2 hours
from t
union all
.....
select d24 d, idobject, data, 24 hours
from t

five.SQL.ParamByName('p0').Value:= FormatDateTime( 'dd.mm.yyyy', Present);

а это

'Объект 1' or 'Объект 2' оr 'Объект 3'

должно быть через запятую

'Объект 1', 'Объект 2', 'Объект 3', ...

и скорее всего параметром это не удастся передать и придется макросом

[kate158]

хех.
вот код.

procedure TForm1.BitBtn6Click(Sender: TObject);
var
Present: TDateTime;
begin
Present:= DateTimePicker1.Date;
five.SQL.Clear;
five.SQL.Add('with t as');
five.SQL.Add('(select *');
five.SQL.Add('from secondtable');
five.SQL.Add('where 0=0');
five.SQL.Add('and DATA=:g)');
five.SQL.Add('select d1 d, idobject, data, 1 hours');
five.SQL.Add('from t');
five.SQL.Add('union all');
five.SQL.Add('select d2 d, idobject, data, 2 hours');
five.SQL.Add('from t');
five.Parameters.ParamByName('g').Value:= FormatDateTime( 'dd.mm.yyyy', Present);
five.Open;
end;

ошибка 'incorrect syntax near the keyword 'with'' возникает после выполнения строки

five.Open;

[soleil@mmc]

ты пишешь

SQLSERVER

имелся в виду MS SQL? какая версия?

суть такая: прежде чем накручивать юнионы тебе нужно получить кусок данных за указанный период и это можно сделать кучей способов
если есть какая-нить разработческая приблуда, да хоть SQLExplorer, то попробуй в нем запустить такой запрос

with
t as
(
select *
from secondtable
)

select * from t

[kate158]

MS SQL SERVER 2000

[kate158]

ииии-ххх-аааа!
кажется, получилось!!! вот код.

procedure TForm1.BitBtn12Click(Sender: TObject);
var
Present: TDateTime;
begin
Present:= DateTimePicker1.Date;
five.SQL.Clear; five.SQL.Add('select case x.n when 1 then d1');
five.SQL.Add('when 2 then d2');
five.SQL.Add('when 3 then d3');
five.SQL.Add('when 4 then d4');
five.SQL.Add('when 5 then d5');
five.SQL.Add('when 6 then d6');
five.SQL.Add('when 7 then d7');
five.SQL.Add('when 8 then d8');
five.SQL.Add('when 9 then d9');
five.SQL.Add('when 10 then d10');
five.SQL.Add('when 11 then d11');
five.SQL.Add('when 12 then d12');
five.SQL.Add('when 13 then d13');
five.SQL.Add('when 14 then d14');
five.SQL.Add('when 15 then d15');
five.SQL.Add('when 16 then d16');
five.SQL.Add('when 17 then d17');
five.SQL.Add('when 18 then d18');
five.SQL.Add('when 19 then d19');
five.SQL.Add('when 20 then d20');
five.SQL.Add('when 21 then d21');
five.SQL.Add('when 22 then d22');
five.SQL.Add('when 23 then d23');
five.SQL.Add('else d24 end d,');
five.SQL.Add('idobject,');
five.SQL.Add('data,');
five.SQL.Add('case x.n when 1 then 1');
five.SQL.Add('when 2 then 2');
five.SQL.Add('when 3 then 3');
five.SQL.Add('when 4 then 4');
five.SQL.Add('when 5 then 5');
five.SQL.Add('when 6 then 6');
five.SQL.Add('when 7 then 7');
five.SQL.Add('when 8 then 8');
five.SQL.Add('when 9 then 9');
five.SQL.Add('when 10 then 10');
five.SQL.Add('when 11 then 11');
five.SQL.Add('when 12 then 12');
five.SQL.Add('when 13 then 13');
five.SQL.Add('when 14 then 14');
five.SQL.Add('when 15 then 15');
five.SQL.Add('when 16 then 16');
five.SQL.Add('when 17 then 17');
five.SQL.Add('when 18 then 18');
five.SQL.Add('when 19 then 19');
five.SQL.Add('when 20 then 20');
five.SQL.Add('when 21 then 21');
five.SQL.Add('when 22 then 22');
five.SQL.Add('when 23 then 23');
five.SQL.Add('else 24 end hours');
five.SQL.Add('from secondtable');
five.SQL.Add('inner join (select 1 n union all select 2 union all select 3 union all select 4 union all select 5 union all');
five.SQL.Add('select 6 union all select 7 union all select 8 union all select 9 union all select 10 union all');
five.SQL.Add('select 11 union all select 12 union all select 13 union all select 14 union all');
five.SQL.Add('select 15 union all select 16 union all select 17 union all select 18 union all select 19 union all');
five.SQL.Add('select 19 union all select 20 union all select 21 union all select 22 union all  select 23 union all select 24) x on 1=1' );
five.SQL.Add('where 0=0');
five.SQL.Add('and DATA=:g');
five.SQL.Add('and idobject =''Объект 1'' or idobject =''Объект 2'' or idobject =''Объект 3'' or idobject =''Объект  4''');
five.SQL.Add('or idobject =''Объект 5''  or idobject =''Объект 6' or idobject =''Объект 7'' or idobject =''Объект 8''');
five.SQL.Add('or idobject =''Объект 9'' or idobject =''Объект 10'' or idobject =''Объект 11'' or idobject =''Объект 12''');
five.SQL.Add('or idobject =''Объект 13'' or idobject =''Объект 14'' or idobject =''Объект 15'' or idobject =''Объект 16'' or idobject =''Объект 17''');
five.SQL.Add('or idobject =''Объект 18'' or idobject =''Объект 19'' or idobject =''Объект 20'' or idobject =''Объект 21''');
five.SQL.Add('or idobject =''Объект 22'' or idobject =''Объект 23'' or idobject =''Объект 24''');
five.Parameters.ParamByName('g').Value:= FormatDateTime( 'dd.mm.yyyy', Present);
five.Open;
edit6.Text:=inttostr(DBGrid6.DataSource.DataSet.RecordCount);
end;

может, кому-нибудь пригодится. I feel happy