Увеличение быстродействия

[chui]

Здраствуйте. Нужна помощь.

IBQuery18.Close;
IBQuery18.SQL.Clear;
IBQuery18.SQL.Add('SELECT Field1 from Table1 left join Table2 on (Field3 = Field4) where (Field5 = '''+X1+''')  and (Field6 = '''+X2+''');');
IBQuery18.Open;
Y:= StrToFloat(IBQuery18.Fields[0].Value);

Данный запрос используется в цикле и таких запросов несколько. Это очень сильно тормозит выполнение необходимой задачи. Что можно сделать для увеличения быстродействия? Спасибо!

Читаем правила раздела.
Там вполне доступно описано, как следует оформлять код, чтобы не навлечь на себя гнев администрации

[BARNEY]

почитайте про параметеризированные запросы и будет вам счастье.

[chui]

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

почитайте про параметеризированные запросы и будет вам счастье.

Думал об этом. Хотя с параметрезированными запросами почти не знаком. Когда-то в запросе использовал параметры, но там это были не изменяемые значения, а в моем примере Х1 и Х2 изменяются с каждой итерацией цикла. Это мне не поешает?

Читаем правила раздела.
Там вполне доступно описано, что следует цитировать и что бывает за оверквотинг...

[Surgeon]

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

Думал об этом. Хотя с параметрезированными запросами почти не знаком. ... а в моем примере Х1 и Х2 изменяются с каждой итерацией цикла. Это мне не поешает?

Нет, параметры для этого используются чтобы не изменять текст запроса каждый раз.
В тексте запроса, в разделе условий (where) объявляется ИМЯ_ПОЛЯ УСЛОВИЕ ИМЯ_ПАРАМЕТРА, причем имя параметра начинается с двоеточия.
Кроме того советую указвать имя поля в виде ИМЯ_ТАБЛИЦЫ.ИМЯ_ПОЛЯ.

SELECT Table1.Field1 
from Table1 left join Table2 on (Table1.Field3 = Table2.Field4) 
where (Table1.Field5 =:PARAMFLD5)  and (Table1.Field6 =:PRMFLD6 )

Да и еще запросы выполняемые в цикле могут сильно, очень сильно ускорится благодаря созданию составных индексов для полей по которым используются параметры.

Мое замечание насчет оверквотинга к вам тоже относится.
И, поскольку вы уже не новичок, получите заслуженный штраф за флуд.

[chui]

Видимо в моем случае запрос с параметрами не поможет.

for i:= 1 to max do begin
       cdtmp.First;
       for j:=0 to cdtmp.RecordCount-1 do  begin
         MATCOUNT:= trim(cdtmp.FieldByName('TCOUNT').AsString);
         GTDRAZR:= trim(cdtmp.FieldByName('GTDRAZR').AsString);
         GTDRAZROSN:= trim(cdtmp.FieldByName('GTDRAZROSN').AsString);
         IMPGTDNO:= trim(cdtmp.FieldByName('IMPGTDNO').AsString);
         IMPGTDNOOSN:= trim(cdtmp.FieldByName('IMPGTDNOOSN').AsString);
          if StrToInt(IMPGTDNO) = i then
            begin
              IMPGTDNO2:= IMPGTDNO;
              GTDRAZR2:= GTDRAZR;
               with IBQuery18 do begin
                Close;
                Params[0].AsString:=IMPGTDNOOSN;
                Params[1].AsString:=GTDRAZROSN;
                Open;
                FetchAll;
               end;
              mat_costone:= ((StrToFloat(IBQuery18.Fields[1].Value))/(StrToFloat(IBQuery18.Fields[0].Value)))*StrToFloat(MATCOUNT);
              matprod:= matprod + mat_costone;
            end;
         cdtmp.Next;
       end;

В этом случае запрос остается в цикле всеравно и быстродействие не меняется. При попытке вынести за пределы цикла возвращает неверные значения. Я так понимаю, что это происходит из-за того, что я вначале присваиваю значения. Но мне нужно это делать в любом случае.
Что еще можно сделать?

[mihali4]

Тему закрыл, т.к. топикстартер вызывающе не желает соблюдать наши правила.
Если повторится, ТС (несмотря на гордое звание "новичок") получит положенный штраф.
А там, при желании, и до бана сам догребет...