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

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

Как переиндексировать таблицы [D7, dBase, FoxPro]

Страницы:   < 1 2 >

чайник1 ©   (2004-02-16 12:09:00) 

Уважаемые мастера, делаю восстановление файлов из архива, как мне переиндексировать таблицы.Спасибо.

---

чайник1   (2004-02-16 12:32:00) [21]

спасибо, теперь при запуске ругает что не может открыть таблицу.
делаю так:
Table1.Exclusive := True;
Table1.Open;
Check(dbiRegenIndexes(Table1.Handle));

---

Семен Сорокин   (2004-02-16 12:27:00) [22]

2чайник1
Это для парадокса, найди и исправь для Dbf.
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-02-16 12:24:00) [23]

Check объявлена в Dbtables

---

чайник1   (2004-02-16 12:23:00) [24]

Check(DbiRegenIndexes(Tablel.Handle)); ругает, что Check не декларированная переменная, я включил в uses  модуль DbiProcs, все равно ругает, в чем может быть дело?

---

Anatoly Podgoretsky   (2004-02-16 12:20:00) [25]

Лучше так   Check(DbiRegenIndexes(Tbl.Handle));

---

чайник1   (2004-02-16 12:13:00) [26]

dbiRegenIndexes(Table1.Handle)???

---

Anatoly Podgoretsky   (2004-02-16 12:11:00) [27]

dbiRegenIndexes

---

Страницы:   < 1 2 >

Наверх