Index zuweisen

[Werwurm]

Hallo,

hänge mal wieder an einem Problem. Ich möchte während der Laufzeit eine Paradox Tabelle erstellen, was aúch geklappt hat.
Jetzt muss ich nur noch einen Index zuweisen, der 3 Felder beinhaltet.
Ich habe es aber nicht geschafft mehr als ein Feld zuzuweisen.

Bisher siehts folgendermaßen aus:

Delphi-Quellcode:

  with Form1.Table1.IndexDefs do begin
    clear;
    Add('Primary', 'Nummer', [ixPrimary, ixUnique]);
    Add('Sort', 'Interpret', [ixCaseInsensitive]);
    end;

Ich wäre für eine Hilfe sehr dankbar!!

[hacki]

Hallo WerWurm,

habe das Erstellen und Handling mit Paradox-Tabellen über SQL gelöst. Dazu habe ich folgende Funktion geschrieben und mit einem TQuery-Objekt (keißt hier im Quelltext DB_CreateQuery) verknüpft:

Code:

procedure TMainForm.ExecSQLStatement( SQLStatement : String );
begin
 DB_CreateQuery.Active := FALSE;
 DB_CreateQuery.SQL.Clear;

 DB_CreateQuery.SQL.Add( SQLStatement );

  try
   DB_CreateQuery.Prepare;
   try
    DB_CreateQuery.ExecSQL;
   except
    DB_CreateQuery.SQL.Clear;
    MessageDlg('Problem bei der SQL-Ausführung  (Error by ExecSQL), Routine ExecSQLStatement in Main.pas' +#13+#13+
               '"'+ SQLStatement + '"', mtError, [mbOK], 0);
   end;
  except
   DB_CreateQuery.SQL.Clear;
   MessageDlg('Problem bei der SQL-Ausführung  (Error by Prepare), Routine ExecSQLStatement in Main.pas' +#13+#13+
               '"'+ SQLStatement + '"', mtError, [mbOK], 0);
  end;

 DB_CreateQuery.Active := FALSE;
end;

Dann kann ich das Erstellen der Tabellen und Indexe als SQL-Befehl folgendermaßen im Programm los werden:

Tabelle anlegen:

Code:

ExecSQLStatement('CREATE TABLE Uebungen' +
       '( '+
          'UebClient              INTEGER, '+
          'UebNummerManuell       INTEGER, '+
          'UebBibliothek          CHARACTER(1), '+
          'UebBereich             CHARACTER(30), '+
          'UebBereichNummer       SMALLINT, '+
          'UebAnzahlMin           SMALLINT, '+
          'UebAnzahlMax           SMALLINT, '+
          'UebTrainingsPhase      SMALLINT, '+
          'UebTPhaseString        CHARACTER(16), '+
          'UebSchwierigkeit       SMALLINT, '+
          'UebDauer               NUMERIC(10,2), '+
          'UebBezeichnung         CHARACTER(60), '+
          'UebZiel                BLOB(240,1), '+
          'UebBeschreibung        BLOB(240,1), '+
          'UebVariation           BLOB(240,1), '+
          'UebFeldDaten           BLOB(50,1), '+
          'PRIMARY KEY (UebClient)'+
       ' )' );

und das Anlegen von Sekundär Indizes:

Code:

ExecSQLStatement('CREATE INDEX'+
                   ' UBereich ON ''Uebungen.db'' (UebBereichNummer)' );

Ich hoffe, das hilft Dir und Du kannst das verwenden. :witch:

Grüsse
Hacki

[MrSpock]

Hallo Werwurm,

ich denke, es liegt daran, dass du nur Sekundärindices erzeugen kannst, wenn es auch einen Primary Key gibt. Der Primary Key hat aber keinen Namen, er muss mit:

Delphi-Quellcode:

 with Form1.Table1.IndexDefs do begin
    clear;
    Add('', 'Nummer', [ixPrimary, ixUnique]);
    Add('Sort', 'Interpret', [ixCaseInsensitive]);
    end;

definiert werden. Dann sollte es klappen!?

[Werwurm]

Hallo Hacki,

danke für Deine Antwort.
Der SQL-Code hat geklappt!!