Hi all,

ich stehe vor einem scheinbar unlösbaren und nirgens dokumentierten Problem:

Unter Verwendung von Delphi 7 arbeite ich an einer Datenbankanwendung, die die BDE verwendet. Ich lasse die notwendigen Tabellen und zugehörigen Indizes per Quellcode erstellen.

Bei den Master/Detail-Tabellen lässt sich zwar eine Relation erstellen, aber ich habe noch nicht herausgefunden, wie ich eine referentielle Integrität per Quellcode erzeugen kann.

Wie kann ich also einen Löschvorgang eines Datensatzes in der Mastertabelle an alle Detailtabellen weitergeben?

Mit der Datenbankoberfläche ist dies kein Problem - aber nur manuell und nicht dynamisch.

Es wäre schön, wenn mir irgendjemand einen Tipp geben könnte.

Funky.W

Welches DMBS verwendest du? Falls es dBase oder Paradox ist könnte ich mir vorstellen das Aufgrund der hoffnungslosen Veraltung dieser Desktopdatenbanken dies dort nicht möglich ist auf Datenbankebene zu definieren.

Bernhard Geyer hat folgendes geschrieben:

Welches DMBS verwendest du? Falls es dBase oder Paradox ist könnte ich mir vorstellen das Aufgrund der hoffnungslosen Veraltung dieser Desktopdatenbanken dies dort nicht möglich ist auf Datenbankebene zu definieren.

Es basiert auf Paradox 7 und das DBMS ist in diesem Fall durchaus dazu in der Lage, referentielle Integrität mit Löschweitergabe zu erzeugen. Es ist, wie schon erwähnt, mit der von Borland mitgelieferten Datenbankoberfläche manuell möglich. Das funktioniert nur nicht, wenn ich die Tabellen/Datenbank dynamisch zur Laufzeit erstelle.

...

Wäre da nicht ein einfacher SQL string im query angebracht:

Delete From Tabelle2 Where Tabelle2.ArtikelNummer=Tabelle1Artikelnummer

oder mit einem Table Artikelnummer aus Tabelle1 merken in LArt dann einen Find auf Artikelnummer in Tabelle2 und den Datensatz löschen, dann in einer Schleife mit Find solange suchen und löschen bis nichts mehr gefunden wird.

SmileySN hat folgendes geschrieben:

Wäre da nicht ein einfacher SQL string im query angebracht: Delete From Tabelle2 Where Tabelle2.ArtikelNummer=Tabelle1Artikelnummer oder mit einem Table Artikelnummer aus Tabelle1 merken in LArt dann einen Find auf Artikelnummer in Tabelle2 und den Datensatz löschen, dann in einer Schleife mit Find solange suchen und löschen bis nichts mehr gefunden wird.

Danke, sicherlich eine Möglichkeit, jedoch zu langsam.

Meine eigene Lösung ist dann doch deutlich schneller:

procedure TDatenModul.DB_1BeforeDelete(DataSet: TDataSet);
begin
DB_2.First;
While not DB_2.Eof do
begin
If DB_2.FieldValues['DB_1_Verkn'] = DB_1.FieldValues['Idx_DB_1'] then
begin
DB_2.Delete;
end;
end;
end;

Aber das ist ja nicht der Kern der Sache (meiner Frage):

Kann man referentielle Integrität zwischen Haupt- und Detailtabellen zur Laufzeit so erzeugen, wie es mit der Datenbankoberfläche von Borland manuell machbar ist?!

Damit ist es ja auch per Programm ralisierbar!

...