FOREIGN KEY ausgeben?

[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

[Sir Rufo]

Zitat von AlexII:

Es hat geklappt

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

Kann es sein, dass deine ganzen Datenbank-Zugriffe ungefähr so gekapselt sind:

Delphi-Quellcode:

procedure IrgendeinBeliebigerZugriffAufDieDatenbank;
var 
  dbFile : String;
  db : TSQLiteDatabase;
begin
  dbFile := ExtractFilePath(Application.ExeName) + 'Database.db';
  db := TSQLiteDatabase.Create( dbFile );
  try

    { ganz viele Aktionen mit der DB }

  finally
    db.Free;
  end;
end;

Dann ist es auch nicht verwunderlich, warum du den Foreign Key Befehl vor dem DELETE ständig neu übergeben musst.
Diese Einstellung gilt nur solange, bis du die Verbindung zur DB wieder trennst, und das machst du bei jeder Methode.

Verbindung aufbauen
Sachen abarbeiten
Verbindung trennen (jetzt ist auf jeden Fall nicht mehr eingeschaltet)