[Ravennt]

Здравствуйте, направьте пожалуйста на путь истинный.

База данных FireBird есть таблица с ключевым полем. Нужно перенести курсор в dbgrid на строку с определенным id
обычно выполняю это так:

dtmdlMain.ibqryViewUsluga.Locate('USLUGA_ID',uslID ,[]);
frmMain.dbgrdhMain.SetFocus;

при таблице в среднем в 400 записей locate проводится до 3 секунд на слабой машине. (проблема в том что база быстро увеличивается, соответственно время так же).

Есть ли альтернатива данному методу?

delphi xe2

[Страдалецъ]

Попробуйте Seek использовать.

[Ravennt]

Seek для работы с бинарными файлами как я понял а не с бд

[lmikle]

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

Seek для работы с бинарными файлами как я понял а не с бд

попробуй отключать DB Aware компоненты на момент поиска - TIBQuery.DisableControls/TIBQuery.EnableControls.

Хотя это сильно не должно влиять. Что-то странное, поиск в 400 записях - не самая сложная задача. 3 сек на нее - очень долго...

[Freeman]

Как вариант -- перестать использовать TIBTable и написать, наконец, нормальную программу.

[Ravennt]

Я не использую ibtable, для подключения к firebird base использую такие компоненты
TIBDatabase - TIBquery - TIBTransaction - TDateSource.

TIBQuery.DisableControls/TIBQuery.EnableControls эффекта не дает, проблемма с медленным Locate имеет место быть, но так в интернете метода решения проблемы не нашел. Только лишь переход на FIBPlus компоненты, но переписывать всю программу сомнительный вариант.

может еще кто знает как возможно в дбгриде перенести курсор на определенную запись не используя Locate?

[Freeman]

Тогда, скорее всего, у TIBQuery есть какие-то события, выполняющиеся для каждой записи, они и тормозят. Попробуй для начала выполнить Locate на чистом запросе.

[Страдалецъ]

Да, действитеьно в IB нет Seek. Как-то и не знал об этом.
Я предположу, что у вас индексы не определены, хотя даже без индекса и для 4000 записей не должно быть такой задержки.

[Freeman]

Сообщение от Страдалецъ

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

Причем тут индексы и где они на клиенте? Это же не dBase и не Clipper тебе. Хоть бы в реализацию TIBCustomDataSet.Locate посмотрел.

[Ravennt]

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

Тогда, скорее всего, у TIBQuery есть какие-то события, выполняющиеся для каждой записи, они и тормозят. Попробуй для начала выполнить Locate на чистом запросе.

вот сам текст запроса

Код:

select 
    clients_table.fio,
    clients_table.fdate,
    usluga_table.pdate,
    usluga_table.time_start,
    clients_table.address,
    usluga_table.time_end,
    usluga_table.target_name,
    status_table.fstatus,
    usluga_table.kolvo_uslug,
    usluga_table.group_usluga,
    usluga_table.usluga_id,
    usluga_table.client
from usluga_table
   inner join status_table on (usluga_table.status_usluga = status_table.status_id)
   inner join clients_table on (usluga_table.client = clients_table.clients_id)
   where usluga_table.group_usluga = 0
   order by usluga_table.pdate, usluga_table.time_start, clients_table.fio

по этому запросу делаю Locate по полю usluga_table.usluga_id

usluga_table.usluga_id это одно поле из главной таблицы, и на ibquery событий не навешано.

[Yurk@]

может всё-таки есть смысл не выводить все данные, а изначально отобрать нужные и потом бегать по Locate?
ps. а вообще перейди на компоненты FIB+ ... они пошустрее будут.
ps2. и да, как подсказал lmikle: перед началом locate делать DisableControls и после него EnableControls

[Aristarh Dark]

Locate, если мне не изменяет мой склероз, это простой перебор записей сверху вниз до тех пор пока не найдем нужную. Напиши сам такой перебор, возможно он будет работать быстрее потому как в "родном" скорее всего учитываются типы полей и т.п. из-за чего происходит замедление процесса.

Сообщение от Yurk@

ps2. и да, как подсказал lmikle: перед началом locate делать DisableControls и после него EnableControls

Locate сам это делает.

[Ravennt]

я формирую уже конкретно таблицу с необходимыми данными для просмотра.

DisableControls и после него EnableControls -- эффекта не дает.

[Ravennt]

Сообщение от Aristarh Dark

Locate, если мне не изменяет мой склероз, это простой перебор записей сверху вниз до тех пор пока не найдем нужную. Напиши сам такой перебор, возможно он будет работать быстрее потому как в "родном" скорее всего учитываются типы полей и т.п. из-за чего происходит замедление процесса.

писал вот такое эффекта не дало

Код:

//поиск по полю
procedure LocateTable(w:TIBQuery; Pole:String;Znachen:Integer);
begin
  try
    w.Close;
    w.Open;
    w.FetchAll;
    w.First;
    while not w.Eof do begin
      if w.FieldByName(''+Pole+'').AsInteger=Znachen then
        Exit;
      w.Next;
    end;
  except
    on E: Exception do
      begin
        Application.MessageBox(PChar(E.Message), 'Ошибка', MB_ICONERROR);
        w.Close;
        Halt;
      end;
  end;
end;

[Freeman]

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

usluga_table.usluga_id это одно поле из главной таблицы, и на ibquery событий не навешано.

Тогда могу предложить лишь следующее:

• Попробовать вызвать FetchAll после открытия запроса.
• Пройтись отладчиком, чтобы убедиться, что тормозит именно на Locate. Если это именно так, пройтись отладчиком, входя в исходники TIBCustomDataSet, чтобы выяснить, какая строчка выполняется дольше всего.

Я посмотрел в исходниках TIBCustomDataSet.Locate и ничего крамольного не нашел. Записей точно 400, а не 400000, например?

Возможно, существуют какие-то профилировщики под Delphi, но пользоваться не приходилось. Тут, скорее, дело именно в вызывающем коде, а не самом компоненте TIBQuery.

Покажите заодно строчку с вызовом Locate.