| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Переиндексация [D7, Paradox]

www ©   (2003-06-20 15:09:00) 

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

---

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

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

---

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

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;

---

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

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

---

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

bde32.hlp

---

Наверх