منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "القواعد";
الأرشيف الحالي: 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);

فار
NewIndex: IDXDesc;
بدأ
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));
الغاية؛
==============================



صفحات: 1 فرع كامل

المنتدى: "القواعد";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

الطابق العلوي









الذاكرة: 0.56 ميغابايت
الوقت: 0.038 ج
3-21960
Alenka
2001-12-05 12:53
2002.01.08
مساعدة من فضلك!


1-22201
T2
2001-12-16 07:13
2002.01.08
الصوت الطيفي


1-22071
KAA
2001-12-19 10:48
2002.01.08
تتداخل خدمتان مع بعضهما البعض.


4-22488
Arick
2001-10-31 09:20
2002.01.08
كيفية العثور على اسم دلل محملة


7-22446
المفارقة
2001-09-25 19:12
2002.01.08
لا تفوت ، حسنا ، ضروري جدا.





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch أنجليزي الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский