Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Firebird: Foreign Keys aus Metadaten auslesen (https://www.delphipraxis.net/49069-firebird-foreign-keys-aus-metadaten-auslesen.html)

dango 5. Jul 2005 06:38

Datenbank: Firebird • Version: 1.5 • Zugriff über: TCP/IP

Firebird: Foreign Keys aus Metadaten auslesen
 
Hallo !
Ich benutze Firebird 1.5 und müsste in einem Programm zur Laufzeit feststellen, welche Felder aus den verschiedenen Tabellen meiner Datenbank eine Fremdschlüsselbeziehung zu einem bestimmten Feld einer anderen Tabelle haben. Das müsste mit den Metadaten ja eigentlich auch kein Problem sein.
Bisher erkenne ich aus denen aber nicht, zu welcher Tabelle ein Foreign Key jeweils referenziert. Kann mir jemand sagen, wo das steht ?

Vielen Dank !

Gruß
Daniel

MrSpock 5. Jul 2005 07:27

Re: Firebird: Foreign Keys aus Metadaten auslesen
 
Hallo dango,

die Info steht in rdb$indices. Hier mal ein Beispiel:

SQL-Code:
SELECT RDB$INDEX_NAME, RDB$FOREIGN_KEY FROM rdb$indices
where (RDB$RELATION_NAME = 'ABTEILUNG') AND (RDB$FOREIGN_KEY is not NULL)

alex517 5. Jul 2005 07:42

Re: Firebird: Foreign Keys aus Metadaten auslesen
 
Damit kann man auch die beteiligten Felder sehen.

SQL-Code:
SELECT
  S.RDB$INDEX_NAME,
  S.RDB$RELATION_NAME,
  S.RDB$FOREIGN_KEY,
  SS.RDB$FIELD_NAME,
  M.RDB$INDEX_NAME,
  M.RDB$RELATION_NAME,
  MS.RDB$FIELD_NAME
FROM
  RDB$INDICES S
  JOIN RDB$INDICES M ON (M.RDB$INDEX_NAME = S.RDB$FOREIGN_KEY)
  JOIN RDB$INDEX_SEGMENTS SS ON (SS.RDB$INDEX_NAME=S.RDB$INDEX_NAME)
  JOIN RDB$INDEX_SEGMENTS MS ON (MS.RDB$INDEX_NAME=M.RDB$INDEX_NAME)

dango 5. Jul 2005 20:57

Re: Firebird: Foreign Keys aus Metadaten auslesen
 
Super ! Vielen Dank !

DP ist echt der Hammer - so schnell kann man die Frage kaum formulieren, wie sie hier beantwortet wird ! Da kommt Ursache und Wirkung beinahe ein wenig durcheinander ;-)

Viele Grüße
Daniel


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:43 Uhr.

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