Текущий архив: 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.014 c