Ускорение Update

[pirireys]

procedure Tfrm_obrabot.Button6Click(Sender: TObject);
label mvhol;
 var
kza,  kzv, i,  n, NCC : integer;
X1, stzapr: string;
begin
  FBDB.Connected:=true;
  FBDS_TX.Active:=true;
  kza:=FBDS_TX.RecordCount;

       if kza>0 then  //записи есть
        begin

        for i := 1 to kza do
           begin

   NCC:=FBDS_TX.FieldByName('NC').AsInteger;
   X1:=FBDS_TX.FieldByName('X1').AsString;

   if FBDS_TX2.Active then FBDS_TX2.Active:=false;
   stzapr:='select * from TX2 where X2 = '+''''+X1+'''';
   FBDS_TX2.SelectSQL.Clear;
   FBDS_TX2.SelectSQL.Add(stzapr);
   FBDS_TX2.Active:=true;
   kzv:=FBDS_TX2.RecordCount;
   if kzv=0 then goto mvhol
              else
                begin
                        for n := 1 to kzv do
                        begin
                        FBDS_TX2.Edit;
                        FBDS_TX2.FieldByName('NC').AsInteger:=NCC;
                        FBDS_TX2.Post;
                        FBDS_TX2.Next;
                        end;

                end;
             mvhol:
             FBDS_TX1.Next;
           end;
       end;

Вот так я делаю. Но это прямая переборка.
Индекс по полю я могу установить. Но как использовать его в Делфи. Покажите пример.


_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Аватар]

Ни как. Он будет использоваться при выполнении SQL команды, примерно такой, как в #3

[pirireys]

А в самом firebird-e можно с помощью индексов как то ускориться?

[evg_m]

именно для ускорения индексы и придуманы(используются).
Другое дело что если вы что-то делаете у СЕБЯ (в программе) то индексы при этот НЕ ИСПОЛЬЗУЮТСЯ.
Для того чтобы они использовались нужен SQL.

Вот чувствуется разница при 25000 записей между обработкой на клиенте - 2 часа и ХП - 30 сек!))

на клиенте (это у себя в программе).
XП это SQL в самом FB.

[pirireys]

Так в программе я пользуюсь SQL запросами, так что индексы по идее должны сработать. Разве не так?

[Serge_Bliznykov]

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

Так в программе я пользуюсь SQL запросами, так что индексы по идее должны сработать. Разве не так?

нет, не так.
вы читаете к себе ВСЮ таблицу и потом по ней делаете
for n := 1 to FBDS_TX2.RecordCount do
ни о каких индексах тут речи нет.

Поймите, что Вы делаете всё неверно.
Вам нужно отправить запрос на сервер (UPDATE ), который на сервере обработает ВСЕ ваши записи (хоть 25000, хоть 100000, хоть миллион).
А Вы вытягиваете все эти записи на клиента и там ПО ОДНОЙ обрабатываете.
А это медленнее в тысячи раз.

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

А проблема заключается в скорости. В SQL я знаю как это сделать, но это слишком медленно.

ОК. Покажите, как Вы это делаете в SQL ?

если Вы всё написали верно и это действительно медленно, то средствами управления БД нужно добавить индекс(ы), чтобы ускорить работу SQL запроса.

[Аватар]

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

MERGE
  INTO TX2 t2
  USING (SELECT * FROM TX) t
    ON (t2.x = t.x)
  WHEN MATCHED THEN
    UPDATE SET y = t.y

[pirireys]

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

Вам нужно отправить запрос на сервер (UPDATE ), который на сервере обработает ВСЕ ваши записи (хоть 25000, хоть 100000, хоть миллион).
А Вы вытягиваете все эти записи на клиента и там ПО ОДНОЙ обрабатываете.
А это медленнее в тысячи раз.

Напишите пожалуйста пример на основе моей задачи. Буду признателен. Голова не соображает уже.