![]() |
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:
Ich wäre für eine Hilfe sehr dankbar!!
with Form1.Table1.IndexDefs do begin
clear; Add('Primary', 'Nummer', [ixPrimary, ixUnique]); Add('Sort', 'Interpret', [ixCaseInsensitive]); end; |
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:
Dann kann ich das Erstellen der Tabellen und Indexe als SQL-Befehl folgendermaßen im Programm los werden:
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; Tabelle anlegen:
Code:
und das Anlegen von Sekundär Indizes:
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)'+ ' )' );
Code:
Ich hoffe, das hilft Dir und Du kannst das verwenden. :witch:
ExecSQLStatement('CREATE INDEX'+
' UBereich ON ''Uebungen.db'' (UebBereichNummer)' ); Grüsse Hacki |
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:
definiert werden. Dann sollte es klappen!?
with Form1.Table1.IndexDefs do begin
clear; Add('', 'Nummer', [ixPrimary, ixUnique]); Add('Sort', 'Interpret', [ixCaseInsensitive]); end; |
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