FOREIGN KEY ausgeben?

[Jumpy]

Naja es sollten in dem Beispiel ja keine Leser gelöscht werden, wenn die noch Bücher zuhause (oder Schulden auf'm Konto) haben. Genaugenommen, sollten Leser eigentlich nie gelöscht werden, weil das die Ausleihistorie der Bücher kaputt macht. Stattdessen werden Ausweise gesperrt oder Ausleihkonten deaktiviert.

Aber ich denke mal es geht eh nur um ein Übungsbeispiel...
...wobei auch bei Übungsbeispielen, sollte man es besser gleich richtig machen.

[AlexII]

Danke euch! Ihr habt mich gerettet.

[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)