Главная страница
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.013 c
1-44701
dimon1979
2003-06-30 12:49
2003.07.14
Встроенный ассемблер


3-44547
kati
2003-06-19 16:46
2003.07.14
Стек переполнен


8-44771
Ильдар
2003-03-24 16:09
2003.07.14
mp3


3-44564
Kostja
2003-06-19 00:22
2003.07.14
Вывод содержония


7-44919
mike.dld
2003-04-29 18:26
2003.07.14
RasEnumConnections