FOREIGN KEY ausgeben?

[AlexII]

Hab alles laut Doku gemacht, aber irgendwie funktioniert das Cascaden nicht.

[Sir Rufo]

Dann zeig doch mal die Code Stelle aus deiner Anwendung wo du das Einschaltest.

Oder sollen wir vorbeikommen und deinen Kühlschrank leerfuttern?

[DeddyH]

[OT]

Zitat von Sir Rufo:

Oder sollen wir vorbeikommen und deinen Kühlschrank leerfuttern?

Deal, bin dabei, ich hab Hunger [/OT]

[AlexII]

Wie gesagt ich aktiviere den FK, siehe Bild, aber die Leser mit ausgeliehenen Büchern werden trotzdem Gelöscht.

FOREIGN KEY(fk_leser_id) REFERENCES leser(id) ON DELETE CASCADE);

[Sir Rufo]

Darum sagte ich ja auch RTFM

Und Augen auf, wenn es da heißt

Zitat von sqlite.org - Enabling Foreign Key Support:

Assuming the library is compiled with foreign key constraints enabled, it must still be enabled by the application at runtime, using the PRAGMA foreign_keys command.

Also, wo schaltest du von deiner Anwendung aus dieses Verhalten ein?

[AlexII]

Hier

Delphi-Quellcode:

procedure TForm1.DBErstellenMMClick(Sender: TObject);
var dbFile: String;
    db: TSQLiteDatabase;
    sSQL, sSQL1: String;
begin
  dbFile := ExtractFilePath(Application.ExeName) + 'Database.db';
  db := TSQLiteDatabase.Create(dbFile);
  try

    // Tabelle leser wird, sofern sie existiert, gelöscht
    if db.TableExists('leser') then
    begin
      sSQL1 := 'DROP TABLE leser';
      db.execSQL(sSQL1);
    end;

    // Tabelle buch wird, sofern sie existiert, gelöscht
    if db.TableExists('buch') then
    begin
      sSQL := 'DROP TABLE buch';
      db.execSQL(sSQL);
    end;

    // Enable foreign key constraints
    db.execSQL('PRAGMA foreign_keys = ON;');  <---- HIER

    // Tabelle leser wird angelegt
    sSQL1 := 'CREATE TABLE leser ..... usw;

    // Tabelle buch wird angelegt
    sSQL := 'CREATE TABLE buecher ([id] INTEGER PRIMARY KEY NOT NULL, [titel] VARCHAR (255) NOT NULL,';
    sSQL := sSQL + '[fk_leser_id] INTEGER, FOREIGN KEY(fk_leser_id) REFERENCES leser(id) ON DELETE RESTRICTED);';

    // Create Befehl wird ausgeführt
    db.execSQL(sSQL1);
    db.execSQL(sSQL);

    // Transaktion beginnt
    db.BeginTransaction;

    // leser Tabelle füllen
    sSQL1 := 'INSERT INTO leser ... usw.;

    // buch Tabelle füllen
    sSQL := 'INSERT INTO buch ... usw.;

    // Insert Befehl wird ausgeführt
    db.ExecSQL(sSQL1);
    db.ExecSQL(sSQL);

    // Transaktion endet
    db.Commit;

  finally
    db.Free;
  end;

  ShowData();
end;

[Sir Rufo]

Laut Doku muss das aber auch "RESTRICT" und nicht "RESTRICTED" lauten.

[AlexII]

Zitat von Sir Rufo:

Laut Doku muss das aber auch "RESTRICT" und nicht "RESTRICTED" lauten.

Hab mich verschrieben, aber die Stelle wo ich es aktiviere ist richtig, oder?

[AlexII]

Es hat geklappt

Lösung: man muss den FK immer wieder aktivieren, in diesem Fall in der DELETE Funktion.

[Sir Rufo]

Obwohl ich ja eher statt Restrict Cascade nehmen würde, denn Restrict verhindert eigentlich das löschen und Cascade verbreitet das löschen