Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Не создается "убывающий" индекс во время работы программы [D7, Paradox]

_Dragon © (2004-12-05 13:45:00)
Проблема заключается в следующем: пытаюсь создать программно индекс с опцией [ixDescending], на что BDE страшно ругается следующим: "Higher level table required".Как создать такой индекс?

Код создания индекса:
procedure TForm1.Button1Click(Sender: TObject);
var
bActive, bExclusive: Boolean;
begin
bActive := Table1.Active;
bExclusive := Table1.Exclusive;
Table1.IndexDefs.Update;
with Table1 do
begin
Close;
{таблица dBASE должна быть открыта в монопольном (exclusive) режиме}
Exclusive := TRUE;
Open;
if Table1.IndexDefs.IndexOf('FNAME') <> 0 then
Table1.AddIndex('FNAME', 'FNAME', []);
Close;
Exclusive := bExclusive;
Active := bActive;
end;
end;

sniknik (2004-12-06 08:44:00) [1]
Database Desktop кстати сразу говорит уровень таблицы для которого возможны Descending индексы (предлагает апгрейд таблицы).

Fay (2004-12-06 08:37:00) [2]
А что он говорит на
create index ix_table1_fname on table1 (fname)
?

sniknik (2004-12-06 08:30:00) [3]
попробуй для начала в Database Desktop сделать, програмно после если получится. и посмотри хелп как там индекс создается.

_Dragon (2004-12-06 00:38:00) [4]
Чего-ж делать-то тогды?

Anatoly Podgoretsky (2004-12-06 00:30:00) [5]
Уровень таблиц недостаточный. Но вопрос и код не соответствуют друг другу.

Cobalt (2004-12-06 00:24:00) [6]
Попробуй пройтись по процедуре с "use debug dcu" - может, выяснишь причину ругательства БДЕ?

Наверх

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