Переиндексация

← →
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 смотри...

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