Рефакторинг Excel в ADOQuery, DBGrid

[evg_m]

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

adoquery.SQL.text:='SELECT t1.*, t2.*,  t3.*, t4.*  
FROM ( ( [Лист1$] as t1 
         left join [Лист1$] as t2 on t1.[#] +:st1 =t2.[#]
       ) left join [Лист1$] as t3 on t1.[#] +:st2 =t3.[#]
     )   left join [Лист1$] as t4 on t1.[#] +:st3 =t4.[#]

where t1.[#] between 1 and :st4';

adoquery1.Parameterbyname('st1').value:=15000 *1;
adoquery1.Parameterbyname('st2').value:=15000 *2;
adoquery1.Parameterbyname('st3').value:=15000* 3;
adoquery1.Parameterbyname('st4').value:=15000;

хотя если немножко покумекать с вложенными запросами то может быть...
и удастся обойтись ровно одним параметром.

[evg_m]

а может и вовсе без них

select t1.*, t2.*, t3.*, t4.*
from ( ( ( t as t1 inner join ( select count(*)/4 as q from t ) as q on q.q =q.q
         ) left join t as t2 on t2.n =t1.n +q.q *1
       ) left join t as t3 on t3.n =t1.n +q.q *2
     ) left join t as t4 on t4.n =t1.n +q.q *3

where t1.n <=q.q

[Serega_SS]

Я сделал так

row:=ADOQuery2.RecordCount div 4;

ADOQuery1.SQL.Add('SELECT t1.*, t2.*,  t3.*, t4.* FROM ( ( [Лист1$] as t1' + char(10) +
           'LEFT JOIN [Лист1$] as t2 on t1.NUM + s =t2.NUM)' + char(10) +
           'LEFT JOIN [Лист1$] as t3 on t1.NUM +(s*2) =t3.NUM)' + char(10) +
           'LEFT JOIN [Лист1$] as t4 on t1.NUM +(s*3) =t4.NUM' + char(10) +
           'WHERE t1.NUM BETWEEN 1 and s');

ADOQuery1.Parameters.ParamByName('s').Value := row;

Все работает отлично, даже если количество строк меняется в файле.

[Serega_SS]

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

а может и вовсе без них

select t1.*, t2.*, t3.*, t4.*
from ( ( ( t as t1 inner join ( select count(*)/4 as q from t ) as q on q.q =q.q
         ) left join t as t2 on t2.n =t1.n +q.q *1
       ) left join t as t3 on t3.n =t1.n +q.q *2
     ) left join t as t4 on t4.n =t1.n +q.q *3

where t1.n <=q.q

Тут немного непонятно.

t это [Лист1$]
t1.n это t1.NUM
а что тогда такое q и q.q

[evg_m]

именование для ссылок (алиасы имен полей и представлений/запросов )
count(*)/4 as q -так будем называть вычисленное поле
( select ... ) as q -- так будем назвать набор

чтобы не путаться
q как набор
q как поле
можно дать разные имена
( select count(*) /4 as st from t ) as rec

q.q ==> rec.st

[Serega_SS]

Вот так я написал

ADOQuery1.SQL.Add('select t1.*, t2.*, t3.*, t4.*' + char(10) +
    'from ( ( ( [Лист1$] as t1 inner join ( select count(*)/4 as st from [Лист1$] ) as rec on rec.st = rec.st)'  + char(10) +
        'left join [Лист1$] as t2 on t2.NUM =t1.NUM +rec.st )'  + char(10) +
      'left join [Лист1$] as t3 on t3.NUM =t1.NUM +rec.st *2)'  + char(10) +
     'left join [Лист1$] as t4 on t4.NUM =t1.NUM +rec.st *3 ' + char(10) +
    'where t1.NUM <=rec.st');

Выходит ошибка "Не поддерживается выражение объединения Join"
Может я что-то не так написал.