Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.03;
Скачать: CL | DM;

Вниз

Как программно выполнить переиндексацию (Paradox)?   Найти похожие ветки 

 
zhizhko   (2003-03-13 09:03) [0]

Как программно выполнить переиндексацию всех имеющихся в базе таблиц?


 
Anatoly Podgoretsky ©   (2003-03-13 09:06) [1]

В хедпе есть полный пример


 
Anatoly Podgoretsky ©   (2003-03-13 09:07) [2]

Добавь только цикл по таблицам


 
Dred2k ©   (2003-03-13 09:39) [3]

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 - там много чего хорошего ...


 
гончий   (2003-03-14 09:00) [4]

Компонента TBdeTools упаковывает и реиндексирует таблицы указанной базы данных. http://www.dbwork.kuban.ru/download/degisydb.zip



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
1-6556
Rus
2003-03-20 18:14
2003.04.03
Как заполнить произвольную фигуру картинкой?


14-6732
SuperMagic
2003-03-16 13:40
2003.04.03
Кривые второго порядка


1-6475
ruslan_as
2003-03-24 14:03
2003.04.03
Как определить выходные дни


3-6335
zhizhko
2003-03-13 09:03
2003.04.03
Как программно выполнить переиндексацию (Paradox)?


14-6701
ruben
2003-03-13 03:37
2003.04.03
Нужна программа, которая вычисляет и переводит в шестнадцатирич