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

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

Помогите с восстановлением рухнувшего индекса БД средствами Delph [Delphi, Windows]

Ander ©   (2004-07-08 12:21:00) 

Проблема такая:
Небольшая база данных формата Paradox (10 столбцов, 400-500 строк). Есть автоинкрементное поле, по которому построен первичные индекс, а также вторичный индекс построенный по трем полям.
При некорректном завершении работы программы постоянно рушиться индекс базы данных.
Как можно переиндексировать базу для восстановления индекса.
Люди добрые, помогите пожалуйста, или подскажите, где про это можно прочитать.
Заранее благодарен.

---

Ander   (2004-07-13 06:00:00) [1]

Спасибо, сейчас попробую.

---

Семен Сорокин   (2004-07-08 18:04: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;

---

Anatoly Podgoretsky   (2004-07-08 12:27:00) [3]

В рамках КОЛ?

---

Наверх