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

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

Индекс для DBF-файла

zzzrrv ©   (2003-08-04 15:41:00) 

Знатоки помогите. Пытаюсь создать ndx-индекс для dbf-таблицы: Form1.Table2.Active:=False;
Form1.Table2.Exclusive:=True;
Form1.Table2.Active:=True;
with NewIndex do begin
szName := "bnkseek.ndx";
iIndexId := 0;
bPrimary := False;
bUnique := False;
bDescending := False;
bMaintained := False;
bSubset := False;
bExpIdx := True;
szKeyExp := "NEWNUM";
( Form1.Table2.dbhandle, Form1.Table2.handle, PChar(Form1.Table2.TableName)

Знатоки помогите. Пытаюсь создать ndx-индекс для dbf-таблицы: Form1.Table2.Active:=False;
Form1.Table2.Exclusive:=True;
Form1.Table2.Active:=True;
with NewIndex do begin
szName := "bnkseek.ndx";
iIndexId := 0;
bPrimary := False;
bUnique := False;
bDescending := False;
bMaintained := False;
bSubset := False;
bExpIdx := True;
szKeyExp := "NEWNUM";
bCaseInsensitive := False;
end;
DbiAddIndex(Form1.Table2.dbhandle, Form1.Table2.handle, PChar(Form1.Table2.TableName), szDBASE, NewIndex, nil);

Проходит без ошибок, но индекс не создается. В чем ошибка подскажите.

---

zzzrrv   (2003-08-04 16:48:00) [1]

Нет

---

AbrosimovA   (2003-08-04 16:46:00) [2]

C MDX-индексами не дружишь?

---

zzzrrv   (2003-08-04 16:43:00) [3]

Неужели никто не поможет!

---

zzzrrv   (2003-08-04 16:18:00) [4]

У меня уже стоит
Form1.Table2.Active:=False;
Не помогает.

---

AbrosimovA   (2003-08-04 16:04:00) [5]

Смею предположить, что необходимо сделать так:

Form1.Table2.Close;
Form1.Table2.Exclusive:=true;
***Здесь создаёшь свой индекс***
Form1.Table2.Exclusive:=false;
Form1.Table2.Open;

---

Наверх