PrimärIndex wird nicht angelegt

[Klaus01]

...leider tut es das auch nicht
table.IndexDefs.Add('pkRow1', 'row1', [ixPrimary, ixUnique]); .. vielleicht sollte ich auf DDL umsteigen und das Script dann einlesen.

[Uwe Raabe]

Ich benutze z.B. folgende Methode zum Anlegen von Tables in Delphi mit SQLite. Der Primary Key wird dabei für alle Tables identisch angelegt.

Delphi-Quellcode:

procedure TdmCreateDB.InternalCreateDataSet(const AName: string; AddFields: TProc<TFieldDefs>; AddIndices: TProc<TAddIndicesProc>);
var
  tbl: TFDTable;
begin
  tbl := TFDTable.Create(nil);
  try
    tbl.Connection := Connection;
    tbl.TableName := AName;
    tbl.UpdateOptions.GeneratorName := 'GEN_' + AName.ToUpperInvariant;
    tbl.FieldDefs.Add('ID', ftAutoInc);
    AddFields(tbl.FieldDefs);
    tbl.IndexDefs.Add('PK_' + AName.ToUpperInvariant, 'ID', [ixPrimary]);
    if Assigned(AddIndices) then begin
      AddIndices(
        procedure(AName, AFields: string; AOptions: TIndexOptions)
        begin
          tbl.IndexDefs.Add('IX_' + tbl.TableName + '_' + AName, AFields, AOptions);
        end);
    end;
    tbl.CreateTable(tbl.Exists);
  finally
    tbl.Free;
  end;
end;

Ein Aufruf sieht dann in etwa so aus:

Delphi-Quellcode:

  InternalCreateDataSet('ZUGHH',
    procedure(FieldDefs: TFieldDefs)
    begin
      FieldDefs.Add('TANK', ftSmallInt, 0, False);
      FieldDefs.Add('SORTE', ftString, 4, False);
      FieldDefs.Add('SERIE', ftFloat, 0, False);
      FieldDefs.Add('INHALT', ftSmallInt, 0, False);
      FieldDefs.Add('BEMERKUNG', ftString, 12, False);
      FieldDefs.Add('DATUM', ftDate, 0, False);
    end,
    procedure(AddIndex: TAddIndicesProc)
    begin
      AddIndex('I_SERIE', 'SERIE', []);
    end);

Ich habe aber leider auch keine Idee, warum es bei dir nicht klappt.

[Klaus01]

Hallo Uwe,

danke - wenn das Feld auf den der primary key gelegt werden soll vom typ ftAutoInc ist,
dann wird auch der primary key angelegt.

Kann ich aber so dann nicht gebrauchen, da in die Tabelle Daten importiert werden müssen.
In den Daten ist das Feld (auf dem der primary key liegt) auch vorhanden.
Ich kann dann (leider) kein ftAutoInc verwenden.

Den Key kann ich dann vielleicht nach dem Datenimport setzen.

Grüße
Klaus

[Uwe Raabe]

Du kannst bei einem AutoInc-Field ja für den Import das Property IdentityInsert auf True setzen.

[Klaus01]

danke - gut zu wissen

[hoika]

Hallo,
hilft das hier?
Gerade der untere Bereich mit dem zusätzlichen CreateTable-Parametern.

https://stackoverflow.com/questions/...out-sql-script

[himitsu]

Wenn im Import für das AutoInc-Feld Daten vorhanden sind, dann werden Diese doch benutzt?
Das AutoInc sollte doch nur greifen, wenn man diesem Feld nichts zuweist, auch kein NULL (aber egal, da ja NOT NULL).