Форум: "Базы";
Текущий архив: 2008.02.17;
Скачать: [xml.tar.bz2];
ВнизРеиндексацыя дазы! Найти похожие ветки
← →
-=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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c