| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как программно выполнить переиндексацию (Paradox)? [D5, Paradox]
zhizhko © (2003-03-13 09:03:00)Как программно выполнить переиндексацию всех имеющихся в базе таблиц?
гончий (2003-03-14 09:00:00) [1]Компонента TBdeTools упаковывает и реиндексирует таблицы указанной базы данных. http://www.dbwork.kuban.ru/download/degisydb.zip
Dred2k (2003-03-13 09:39:00) [2]uses BDE;
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.BDEUtils
Поставь RX - там много чего хорошего ...
Anatoly Podgoretsky (2003-03-13 09:07:00) [3]Добавь только цикл по таблицам
Anatoly Podgoretsky (2003-03-13 09:06:00) [4]В хедпе есть полный пример
| |
