Скачать: CL | DM;

Реиндексацыя дазы!   Найти похожие ветки 

← →
-=Le][=- ©   (2007-10-03 14:21) [0]

Доброго время суток, почтенные мастера!
Есть локальная база данных Test.dbf в формате DBF4, используется драйвер BDE. В файле есть несколько ключевых полей!
Вопрос: как программно переиндексировать базу (файл)?

---

← →
Johnmen ©   (2007-10-03 14:28) [1]

procedure ReindexTable(Table: TTable);
var
 WasActive: Boolean;
 WasExclusive: Boolean;
begin
 with Table do begin
   WasActive := Active;
   WasExclusive := Exclusive;
   DisableControls;
   try
     if not (WasActive and WasExclusive) then Close;
     try
       Exclusive := True;
       Open;
       Check(dbiRegenIndexes(Handle));
     finally
       if not (WasActive and WasExclusive) then begin
         Close;
         Exclusive := WasExclusive;
         Active := WasActive;
       end;
     end;
   finally
     EnableControls;
   end;
 end;
end;

(с) RxLib

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c