[Delphi] Paradox - indeksy

0

Witam!
Programowo tworzę bazę danych. No i napotykam na problemik jak programowo utworzyć indeksy. Moja tabela składa się załóżmy z trzech kodów identyfikujących towar AAA, BBB, CCC (przy cczym rzadko kiedy występują wszystkie) i NAZWY TOWARU. Jeżeli indeksy robię w Database Desktop to bez problemu wybieram te trzy pola i zakładam secondary index. Bazę nie robie przez polecenia SQL'a tylko przez polecenia DELPHI (FieldDefs, AddFieldDef, CreateTable), a do zakładani indeksów w pomocy znalazłem:

    with IndexDefs do begin
      Clear;
      { The 1st index has no name because it is
      { a Paradox primary key }
      with AddIndexDef do begin
        Name := '';
        Fields := 'Field1';
        Options := [ixPrimary];
      end;
      with AddIndexDef do begin

        Name := 'Fld2Indx';
        Fields := 'Field2';
        Options := [ixCaseInsensitive];
      end;
    end;

Tylko ni jak nie moge utworzyć indeksu dla tych trzech pól.

Może macie jakieś pomysły.
Dzięki za wszelkie uwagi. ;)

0

Gdybym nie miał z tym problemu to bym się nie pytał.

pojawia się błąd Number ist out range. Table does not exist..

0

a przeczytałeś to co w pierwszym linku jest? POwiedz mi jak przy

Table1.AddIndex('NewIndex','CustNo;CustName',[ixUnique,ixCaseInsensitive]);

może wyskoczyć
Table does not exist.

0

Jestem czystym amatorem więc gdybym wiedział skąd ten błąd to bym sie nie pytał :> , a poza tym to z angielskim nie jestem "za pan brat" - więc zrozum [green] .

jak wpisuje takie coś (indeks ułożony z tzrech pól - tylko nigdy te wszystkie pola nie są jednoczesnie wypełnione)
taPodmioty.AddIndex('ID','REGON;NIP;PESEL',[ixUnique,ixCaseInsensitive]);
to pojawia sie błąd.

aha tabela typu paradox podłaczona za pomocą BDE.

Więc może coś innego doradzisz.
pzdr ;)

0

Doradzi mi ktos coś [green] [!!!]

1 użytkowników online, w tym zalogowanych: 0, gości: 1