Текущий архив: 2003.06.09;
Скачать: CL | DM;

Вниз

Подскажите, как в runtime создать индекс для таблицы paradox?   Найти похожие ветки 

← →
novill ©   (2003-05-21 15:46) [0]

---

← →
Max Zyuzin ©   (2003-05-21 16:16) [1]

Индексы - это весчь которую надо продумывать и создовать на этапе планирования, а ни как не в рантайме... ИМХО.

---

← →
Stas ©   (2003-05-21 16:32) [2]

Индекс создать можно. В Helpe BDE32.hlp есть пример.
Вот он:
rocedure fDbiAddIndex3(Tbl: TTable);

var
NewIndex: IDXDesc;
begin
if not Tbl.Exclusive then
raise EDatabaseError.Create
("TTable.Exclusive must be set to true in order to " +
"add an index to the table");
with NewIndex do begin
szName := "NewIndex";
iIndexId := 0;
bPrimary := False;
bUnique := TRUE;
bDescending := True;
bMaintained := True;
bSubset := False;
bExpIdx := False;
iFldsInKey := 1;

aiKeyFld[0]:= 2;
bCaseInsensitive := True;
end;
Check(DbiAddIndex(Tbl.dbhandle, Tbl.handle, PChar(Tbl.TableName), szParadox, NewIndex, nil));
end;
Подробнее смотри в BDE32.hlp

---

← →
Verg ©   (2003-05-21 21:29) [3]


with UpGSql.SQL do
begin
Clear;
Add("Create index "+IndexName+" on "+TabName+" ("+FieldNames+")");
end;
UpGSql.ExecSQL;


---

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

Текущий архив: 2003.06.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c