Delphi-PRAXiS
Seite 2 von 4     12 34      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi FOREIGN KEY ausgeben? (https://www.delphipraxis.net/171201-foreign-key-ausgeben.html)

DeddyH 25. Okt 2012 14:13

AW: FOREIGN KEY ausgeben?
 
Vielleicht als einführender Lesestoff: http://de.wikipedia.org/wiki/SQL#Abf...pften_Tabellen

Sir Rufo 25. Okt 2012 15:29

AW: FOREIGN KEY ausgeben?
 
Hier mal etwas zum anschauen http://sqlfiddle.com/#!2/25451/2/1

Such dir jetzt das aus, was das richtige Ergebnis für dich ist.

(ja ich weiß, ein externer Link ist doof, darum hier noch als Text reibkopiert ;))

Tabellen
Code:
CREATE TABLE Buch
   (`ID` int, `Leser_ID` int, `Titel` varchar(40) , `Autor` varchar(40) )
;
   
INSERT INTO Buch
   (`ID`, `Leser_ID`, `Titel`, `Autor`)
VALUES
   (1,null,'Liegen','The Foo'),
   (2,1,'Sitzen','The Foo'),
   (3,2,'Stehen','The Foo'),
   (4,null,'Fliegen','The Foo')
;

CREATE TABLE Leser
   (`ID` int, `Name` varchar(10) , `Vorname` varchar(10) )
;

INSERT INTO Leser
   (`ID`, `Name`, `Vorname`)
VALUES
   (1, 'Lustig', 'Peter'),
   (2, 'Klein', 'Erna')
;
Abfragen
Code:
SELECT
  Buch.Titel,
  Buch.Autor,
  Leser.Name,
  Leser.Vorname
FROM
  Buch
JOIN Leser
  ON Leser.ID = Buch.Leser_ID;

SELECT
  Buch.Titel,
  Buch.Autor,
  Leser.Name,
  Leser.Vorname
FROM
  Buch
LEFT JOIN Leser
  ON Leser.ID = Buch.Leser_ID;

Sir Rufo 25. Okt 2012 15:39

AW: FOREIGN KEY ausgeben?
 
und weil es so schön ist auch nochmal für die Ausgangsfrage http://sqlfiddle.com/#!2/45ebf/1/1

Tabellen
Code:
CREATE TABLE Buch
   (`ID` int, `Titel` varchar(40) , `Autor` varchar(40) )
;
   
INSERT INTO Buch
   (`ID`, `Titel`, `Autor`)
VALUES
   (1,'Liegen','The Foo'),
   (2,'Sitzen','The Foo'),
   (3,'Stehen','The Foo'),
   (4,'Fliegen','The Foo')
;

CREATE TABLE Leser
   (`ID` int, `Name` varchar(10) , `Vorname` varchar(10) )
;

INSERT INTO Leser
   (`ID`, `Name`, `Vorname`)
VALUES
   (1, 'Lustig', 'Peter'),
   (2, 'Klein', 'Erna')
;

CREATE TABLE Ausleihe
   (`Buch_ID` int, `Leser_ID` int, `AusleihDatum` date, `RueckgabeDatum` date)
;

INSERT INTO Ausleihe
   (`Buch_ID`,`Leser_ID`,`AusleihDatum`,`RueckgabeDatum`)
VALUES
   (2,1,'2012-10-01',null),
   (3,2,'2012-10-01',null)
;
Abfragen
Code:
SELECT
  Buch.Titel,
  Buch.Autor,
  Leser.Name,
  Leser.Vorname,
  Ausleihe.AusleihDatum,
  Ausleihe.RueckgabeDatum
FROM
  Buch
JOIN Ausleihe
  ON Buch.ID = Ausleihe.Buch_ID
JOIN Leser
  ON Leser.ID = Ausleihe.Leser_ID;

SELECT
  Buch.Titel,
  Buch.Autor,
  Leser.Name,
  Leser.Vorname,
  Ausleihe.AusleihDatum,
  Ausleihe.RueckgabeDatum
FROM
  Buch
LEFT JOIN Ausleihe
  ON Buch.ID = Ausleihe.Buch_ID
LEFT JOIN Leser
  ON Leser.ID = Ausleihe.Leser_ID;

DeddyH 25. Okt 2012 15:44

AW: FOREIGN KEY ausgeben?
 
Und wenn man Aliase verwendet, kann man Tabellen sogar mit sich selbst verknüpfen. Das gehört zwar nicht zu diesem konkreten Problem, ich wollte es aber der Vollständigkeit halber erwähnt haben.

AlexII 25. Okt 2012 15:57

AW: FOREIGN KEY ausgeben?
 
Was mache ich wenn ich den Leser lösche der mir noch Bücher schuldet. Bis jetzt wird er bei mir gelöscht, soll aber nicht so sein. Wie bilde ich die Abhängigkeit der Tabellen?

DeddyH 25. Okt 2012 16:01

AW: FOREIGN KEY ausgeben?
 
Kennt SQLite Löschregeln (ON DELETE SET NULL|CASCADE|NO ACTION)?

Sir Rufo 25. Okt 2012 16:06

AW: FOREIGN KEY ausgeben?
 
Zitat:

Zitat von DeddyH (Beitrag 1188393)
Kennt SQLite Löschregeln (ON DELETE SET NULL|CASCADE|NO ACTION)?

AFAIK nur über Trigger

AlexII 25. Okt 2012 16:17

AW: FOREIGN KEY ausgeben?
 
Zitat:

Zitat von DeddyH (Beitrag 1188393)
Kennt SQLite Löschregeln (ON DELETE SET NULL|CASCADE|NO ACTION)?

Ja, aber mein Befehl

Delphi-Quellcode:
FOREIGN KEY(fk_leser_id) REFERENCES leser(id) ON DELETE CASCADE);
wird nicht ausgeführt. Keine Ahnung wieso. Muss wohl Foreign Key aktivieren. Das geht mit der Kommandozeile, aber keine Ahnung wie ich auf meine *.db Datei gelange. Werd bald verrückt. :roteyes:

p80286 25. Okt 2012 16:20

AW: FOREIGN KEY ausgeben?
 
Man könnte ja auch einfach nachfragen, ob der zu löschende Leser (warum eigentlich löschen?) noch Ausleihen offen hat
Delphi-Quellcode:
Rueckgabedatum is null
Gruß
K-H

Sir Rufo 25. Okt 2012 16:30

AW: FOREIGN KEY ausgeben?
 
Zitat:

Zitat von AlexII (Beitrag 1188396)
Zitat:

Zitat von DeddyH (Beitrag 1188393)
Kennt SQLite Löschregeln (ON DELETE SET NULL|CASCADE|NO ACTION)?

Ja, aber mein Befehl

Delphi-Quellcode:
FOREIGN KEY(fk_leser_id) REFERENCES leser(id) ON DELETE CASCADE);
wird nicht ausgeführt. Keine Ahnung wieso. Muss wohl Foreign Key aktivieren. Das geht mit der Kommandozeile, aber keine Ahnung wie ich auf meine *.db Datei gelange. Werd bald verrückt. :roteyes:

Manchmal hilft es die Doku zu lesen
Und das einfach per SQL Statement an die DB


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:15 Uhr.
Seite 2 von 4     12 34      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz