Создание индекса

← →
Andrey (2004-07-29 15:37) [0]

Здравствуйте. Мне необходимо создать индекс с базе данных в ходе выполнения программы, я нашел следующий код:

procedure TForm1.Button1Click(Sender: TObject);
var

bActive, bExclusive: Boolean ;
begin

bActive := Table1.Active ;
bExclusive := Table1.Exclusive ;
Table1.IndexDefs.Update ;
with Table1 do
begin
Close ;
Exclusive := TRUE ;
Open ;
if Table1.IndexDefs.IndexOf("FNAME") <> 0 then
Table1.AddIndex("FNAME", "FNAME", [] ) ;
Close ;
Exclusive := bExclusive ;
Active := bActive ;
end ;
end;

При выполнении выдается сообщение: Table level change. Подскажите, пожалуйста, почему, что за уровень изменяется и, что с ней делать?

← →
bushmen © (2004-07-29 15:42) [1]

Создавать индексы во время разработки.

← →
Andrey (2004-07-29 15:50) [2]

Создавать индексы во время разработки не получится т.к. старая БД заменяется новой (дополненной) раз в квартал. Необходимо сделать так, чтобы программа при обращении к БД проверила если есть индекс, то провела фильтрацию данных, если нет, то создала индекс и провела фильтрацию данных.

← →
bushmen © (2004-07-29 16:27) [3]

> чтобы программа при обращении к БД проверила если есть индекс,
> то провела фильтрацию данных, если нет, то создала индекс и
> провела фильтрацию данных.

Не проще ли сделать процедуру экспорта данных из новой версии файла в старый? Индексы при этом никуда не денутся

Странная проверка if Table1.IndexDefs.IndexOf("FNAME") <> 0

← →
Andrey (2004-07-29 18:03) [5]

Идея сделать экспорт мне нравится.Только как это сделать?

Создание индекса Найти похожие ветки