Übersicht über alle Beziehungen in einer Datenbank

Sprache / Programm: SQL (Access)

Beschreibung

Diese SQL-Union-Abfrage basiert auf der Access-Systemtabelle 'MSysObjects' (in jeder Access-Datenbank vorhanden) und listet alle Beziehungen in einer Datenbank auf.

VBA-Quelltext

SELECT
"[" & szObject & "].[" & szColumn & "]" AS [QuellTab],
"[" & szReferencedObject & "].[" & szReferencedColumn & "]" AS [ZielTab]
FROM [MsysRelationships]
WHERE [szObject] > [szReferencedObject]
UNION
SELECT
"[" & szReferencedObject & "].[" & szReferencedColumn & "]" AS [QuellTab],
"[" & szObject & "].[" & szColumn & "]" AS [ZielTab]
FROM [MsysRelationships]
WHERE [szObject] <= [szReferencedObject]
ORDER BY [QuellTab], [ZielTab];

Rückgabewert

Die Abfrage gibt zwei Spalten zurück. Diese Spalten stellen die Felder auf beiden Seiten jeder Beziehung in der Form [Tabelle]![Spalte] dar.

Hinweis

Um diese Funktion als Abfrage in Access zu erstellen, geht man so vor:

Eine beliebige Abfrage in Access erstellen
In die SQL Ansicht umschalten
eventuell vorhandenen Text löschen (wenn es eine funktionsfähige Abfrage war, wird diese dadurch entfernt)
den hier unter Programmcode stehenden Text hineinkopieren