Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.04.03;
Скачать: [xml.tar.bz2];

Вниз

Как программно выполнить переиндексацию (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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.009 c
1-6507
Женя
2003-03-24 17:23
2003.04.03
функция


14-6709
Феликс
2003-03-12 00:04
2003.04.03
Средний вес.


14-6662
Егорычев Михаил
2003-03-17 18:39
2003.04.03
Browser на API - окне


14-6707
michael_b
2003-03-15 17:56
2003.04.03
Кто решит СУПЕР задачу по алгебре?


1-6474
Лосось в сметане
2003-03-23 19:41
2003.04.03
<<< Проблемы интерфейса в Windows XP >>>





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский