Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

индексация бызы FoxPro 


Серж   (2001-12-05 06:13) [0]

Как программно проиндексировать бызу данных формата FoxPro ничего не получается ни через TTable ни через SQL?



panov   (2001-12-05 07:02) [1]

Индексирую таблицы.
Если у тебя VFP - то можешь не напрягаться.

Если просто FOXPRO, то формируешь в TQuery.SQL
INDEX ON <имя индекса> ON <имя таблицы>(<имя поля>)



Серж   (2001-12-06 04:00) [2]

Просто FoxPro, но после выполнения того что Вы написали вылезает сообщение
Invalid use of keyword. Token INDEX

Если делать оператором
CREATE INDEX индекс ON база (поле,...)
вылазит сообщение
Invalid index descriptor
File or directory does not exist
File: база.CDX
Index does not exist
File база.MDX



Серж   (2001-12-06 04:07) [3]

Необходимо программно создать УНИКАЛЬНЫЙ индекс по нескольким полям!



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;
==============================




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.024 c
6-22280           rg                    2001-10-06 13:26  2002.01.08  
Как принять сообщение от Winpopup (Чат для локалки)?


1-22251           Dreamer               2001-12-17 14:17  2002.01.08  
Подскажите начсет TLIST


14-22397          dead                  2001-11-10 18:49  2002.01.08  
У кого- нибудь есть GIF или JPG контурной карты мира?


1-22216           Ghost_Old.            2001-12-16 14:43  2002.01.08  
Помогите..кто знает как получить завтрашнюю дату..


6-22316           dmur                  2001-09-24 20:58  2002.01.08  
Перехват ошибок при соединении с помощью сокетов