Скачать: CL | DM;

Не создается "убывающий" индекс во время работы программы   Найти похожие ветки 

← →
_Dragon ©   (2004-12-05 13:45) [0]

Проблема заключается в следующем: пытаюсь создать программно индекс с опцией [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;

---

← →
Cobalt ©   (2004-12-06 00:24) [1]

Попробуй пройтись по процедуре с "use debug dcu" - может, выяснишь причину ругательства БДЕ?

---

← →
Anatoly Podgoretsky ©   (2004-12-06 00:30) [2]

Уровень таблиц недостаточный. Но вопрос и код не соответствуют друг другу.

---

← →
_Dragon ©   (2004-12-06 00:38) [3]

Чего-ж делать-то тогды?

---

← →
sniknik ©   (2004-12-06 08:30) [4]

попробуй для начала в Database Desktop сделать, програмно после если получится. и посмотри хелп как там индекс создается.

---

← →
Fay ©   (2004-12-06 08:37) [5]

А что он говорит на
create index ix_table1_fname on table1 (fname)
?

---

← →
sniknik ©   (2004-12-06 08:44) [6]

Database Desktop кстати сразу говорит уровень таблицы для которого возможны Descending индексы (предлагает апгрейд таблицы).

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c