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

Вниз

Переиндексация   Найти похожие ветки 

 
www   (2003-06-20 15:09) [0]

Народ доброе время суток!
Подскажите как переиндексировать таблицу Paradox?


 
Соловьев ©   (2003-06-20 15:11) [1]

bde32.hlp


 
www   (2003-06-20 15:13) [2]

Не вышло, говорит нет такой команды. :(


 
Семен Сорокин ©   (2003-06-20 15:16) [3]

function ReindexBase(aDB: TDatabase): boolean;
var
_i : integer;
_list: tStrings;
begin
Result := true;
aDB.CloseDataSets;
_list := tStringList.Create;
try
Session.GetTableNames(aDB.DatabaseName, "*.db", false, false, _list);
for _i := 0 to _list.Count - 1 do
with TTable.Create(nil) do
try
DatabaseName := aDB.DatabaseName;
TableType := ttParadox;
Exclusive := true;
TableName := _list[_i];
try
Active := true;
Check(dbiRegenIndexes(Handle));
except
on E: Exception do begin
MessageDlg(Ошибка переиндексации:" + E.Message, mtError, [mbOk], 0);
Result := false
end
end
finally
Close;
Free
end
finally
_list.Free
end
end;


 
Соловьев ©   (2003-06-20 15:17) [4]

выбрось свой хелп...
DbiRegenIndex смотри...



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

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

Наверх




Память: 0.47 MB
Время: 0.043 c
6-44790
ArtAlex
2003-05-09 00:31
2003.07.14
web-формы


14-44887
Ru
2003-06-27 09:29
2003.07.14
Будьмо!


14-44807
kaif
2003-06-12 23:34
2003.07.14
---|Ветка была без названия|---


3-44594
Валентина_
2003-06-21 09:41
2003.07.14
Немецкий в Delphi


9-44528
Esc
2003-01-21 22:18
2003.07.14
Лайтмэп для ландшафта.