Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Index zuweisen (https://www.delphipraxis.net/4456-index-zuweisen.html)

Werwurm 29. Apr 2003 21:35


Index zuweisen
 
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 2. Mai 2003 16:36

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 2. Mai 2003 17:28

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 2. Mai 2003 23:22

Hallo Hacki,

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:29 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz