Форум: "Базы";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Внизиндексация бызы FoxPro Найти похожие ветки
← →
Dick Gonsales (2001-12-06 07:09) [4]Это описано в help BDE а не в справке Delphi, (dbiAddIndex, IDXDesc)
Там написано какие параметры надо использовать (их там много,
но реально тебе нужны штуки 4-5 типа формат базы, уникальность, тэг ...)
if TQurey - CREATE INDEX then
Он для dbf создаст индекс *.mdx а не *.cdx т.к. считает
его dBase а не Fox. Если индекс есть он его не грохнет
а выдаст ошибку
А вообще тут есть определенная лажа. Delphi создает старый cdx индекс,
(если через TTable)
который чуть ли ни в два раза больше чем родной fox 2.0 & >. И если его
reindex из Delphi он его тоже превратить в старый формат.
Возможно будет лучше написать реиндексацию или создание индекса
в fox и запускать отдельно это приложение из Delphi?
Эта процедура создает индекс, в uses прибавить BDE
==========================
procedure fDbiAddIndex4(Tbl: TTable);
var
NewIndex: IDXDesc;
begin
NewIndex.szTagName := "NewIndex1";
NewIndex.bPrimary := False;
NewIndex.bUnique := True;
NewIndex.bDescending := False;
NewIndex.bMaintained := True;
NewIndex.bSubset := False;
NewIndex.bExpIdx := False;
NewIndex.iFldsInKey := 1;
NewIndex.aiKeyFld[0] := 2;
NewIndex.szKeyExp := "";
NewIndex.szKeyCond := "";
NewIndex.bCaseInsensitive := False;
NewIndex.iBlockSize := 0;
Check(DbiAddIndex(Tbl.dbhandle, Tbl.handle, PChar(Tbl.TableName),
szFoxPro, NewIndex, nil));
end;
==============================
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c