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

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

Чем вылечить DB-файлы? [D5]

RavenD ©   (2004-04-16 12:18:00) 

Привет, All!

есть ли чтонибудь помимо DataBase Desktop'а для востановления таблиц формата PARADOX и DBASE

Спасибо.

---

LaidBack   (2004-04-16 13:04:00) [1]

AbiDesktop
http://www.degisy.com/abidesktop.php

---

Mery   (2004-04-16 12:44:00) [2]

Поищи в инете программки DBDOCTOR и AbiDesktop.
А так можно выполнить переиндексацию из программы:
procedure ReindexTable(Table: TTable);
var
WasActive: Boolean;
WasExclusive: Boolean;
begin
with Table do begin
 WasActive := Active;
 WasExclusive := Exclusive;
 DisableControls;
 try
   if not (WasActive and WasExclusive) then Close;
   try
     Exclusive := True;
     Open;
     Check(dbiRegenIndexes(Handle));
   finally
     if not (WasActive and WasExclusive) then begin
       Close;
       Exclusive := WasExclusive;
       Active := WasActive;
     end;
   end;
 finally
   EnableControls;
 end;
end;
end;

---

Наверх