Форум: "Базы";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];

Вниз

Помогите с восстановлением рухнувшего индекса БД средствами Delph   Найти похожие ветки 

← →
Ander   (2004-07-08 12:21) [0]

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

---

← →
Anatoly Podgoretsky ©   (2004-07-08 12:27) [1]

В рамках КОЛ?

---

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

---

← →
Ander   (2004-07-13 06:00) [3]

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

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.03 c