Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.02.17;
Скачать: 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 вся ветка

Текущий архив: 2008.02.17;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.021 c
2-1201261361
Res
2008-01-25 14:42
2008.02.17
Округление


2-1201283604
AntonUSAnoV
2008-01-25 20:53
2008.02.17
удаление строки в dbmemo


3-1191406869
-=Le][=-
2007-10-03 14:21
2008.02.17
Реиндексацыя дазы!


2-1201086730
Guriev
2008-01-23 14:12
2008.02.17
Как расчитать количество рабочих дней между двумя датами?


15-1200468306
Kolan
2008-01-16 10:25
2008.02.17
А вы знали, что Vista User Experience гайдлайны отличная вещь?