Главная страница
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.022 c
2-1201286076
__msaA
2008-01-25 21:34
2008.02.17
File of Integer


15-1200660668
Bless
2008-01-18 15:51
2008.02.17
Почему "тренЕр", но "тренИровка"


2-1200924371
zeroed
2008-01-21 17:06
2008.02.17
Коллекции объектов моего класса


2-1201165926
Mariya
2008-01-24 12:12
2008.02.17
Клик на DBGrid


1-1194723583
Max_
2007-11-10 22:39
2008.02.17
Окно