Архив форумов ЦИТФорума

[Димас]

В парадокс 5.0 по мнению and3008 в таблице полетели индексы. Я работаю в Buider5, как мне програмно восстановить индексы, и ваще, какие могут быть причины их повреждения. Помогите, очень надо!!!

[and3008]

В BDE есть функции переиндексации. Лень искать, если честно.
Загляни на ib.demo.ru или поищи сайт "Королевство Дельфи". Там в примерах есть (было) пример кода на дельфях для переиндексации парадоксовской таблицы.
На Билдере пишется аналогично. Вызовы функций те же.

А лететь индексы могут по разным причинам. Самая распостраненная - завис клиента (Windows) при работе с базой.
Реже бывает, что диск помирает. Но это обычно сразу заметно.

[aster]

В delphi используя BDE - так:
========

uses BDE
.......
.......
var err: word;
.......
table1.Open;
err:=DbiPackTable(nil, table1.Handle, nil, nil, True);
if err0 then ShowMessage('Упаковать не получилось по причине ошибки: '+IntToStr(Err));
Table1.Close;

не думаю, что в билдере сильно отличается...