{"id":55000807,"date":"2011-12-01T00:00:00","date_gmt":"2020-05-22T21:59:12","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=807"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Beziehungen_per_DAO_verwalten","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Beziehungen_per_DAO_verwalten\/","title":{"rendered":"Beziehungen per DAO verwalten"},"content":{"rendered":"

\"\"<\/p>\n

Beziehungen legt man normalerweise über das Beziehungsfenster an – oder man bemüht den Nachschlage-Assistenten, der zusätzlich zum Nachschlagefeld auch noch die Beziehung erstellt. Manche Anforderungen verlangen jedoch, dass man Beziehungen per VBA erstellt oder diese ausliest. In diesem Beitrag finden Sie daher alles, was Sie zum Thema Beziehungen und DAO wissen müssen.<\/b><\/p>\n

Beziehungen<\/b><\/p>\n

Beziehungen dienen dazu, Datensätze verschiedener Tabellen zu verknüpfen. Dabei besitzt die eine Tabelle einen eindeutigen Wert im Primärschlüsselfeld. Die andere Tabelle besitzt ein Fremdschlüsselfeld, das im Normalfall nur Werte aufnehmen sollte, die im Primärschlüsselfeld der ersten Tabelle vorkommen. Die beiden Tabellen heißen Master- und Detailtabelle, wobei die Tabelle mit dem an der Beziehung beteiligten Primärschlüsselfeld die Mastertabelle und die mit dem Fremdschlüsselfeld die Detailtabelle ist.<\/p>\n

Beziehungen auslesen<\/b><\/p>\n

Wenn Sie per Code die Beziehungen einer Datenbank auslesen möchten, erledigen Sie dies beispielsweise mit dem Relation<\/b>-Objekt der DAO-Bibliothek. Es gibt für jede Beziehung, also für jeden Beziehungspfeil im Beziehungsfenster, ein Relation<\/b>-Objekt in der Datenbank. Die Relation<\/b>-Objekte referenzieren Sie entweder über die Relations<\/b>-Auflistung. Diese Auflistung ist wiederum ein Element des Database<\/b>-Objekts. Dies führt zu einer recht einfachen Prozedur, um die Anzahl der Beziehungen und deren Namen auszugeben – hier für die Beziehungen der Südsturm-Datenbank aus Bild 1:<\/p>\n

\"pic001.png\"<\/p>\n

Bild 1: Beziehungen in der Südsturm-Datenbank<\/span><\/b><\/p>\n

Public Sub BeziehungenAuflisten()\r\n    Dim db As DAO.Database\r\n    Dim rel As DAO.Relation\r\n    Set db = CurrentDb\r\n    Debug.Print "Anzahl Beziehungen: " _\r\n& db.Relations.Count\r\n    For Each rel In db.Relations\r\n        Debug.Print rel.Name\r\n    Next rel\r\nEnd Sub<\/pre>\n
Das Ergebnis sind die Anzahl und eine Liste der Namen der Beziehungen, die sich jeweils aus den in beiden Tabellen gespeicherten Elementen zusammensetzen:<\/p>\n
Anzahl Beziehungen: 7\r\nArtikelBestelldetails\r\nBestellungenBestelldetails\r\nKategorienArtikel\r\nLieferantenArtikel\r\nPersonalBestellungen\r\ntblKundentblBestellungen\r\nVersandfirmenBestellungen<\/pre>\n
Welche Informationen liefert ein solches Relation-Objekt Natürlich finden Sie dort zumindest die für eine Beziehung notwendigen Informationen, also die Namen der beteiligten Felder und Tabellen: der Mastertabelle mit dem Primärschlüsselfeld und der Detailtabelle mit dem Fremdschlüsselfeld.<\/p>\n
Diese Informationen liefert beispielsweise die folgende Prozedur:<\/p>\n
Public Sub BeziehungsdatenAusgeben()\r\n    Dim db As DAO.Database\r\n    Dim rel As DAO.Relation\r\n    Set db = CurrentDb\r\n    For Each rel In db.Relations\r\n        Debug.Print rel.Name\r\n        Debug.Print "=================="\r\n        Debug.Print "Mastertabelle:"\r\n        Debug.Print "  " & rel.Table\r\n        Debug.Print "  " & rel.Fields(0).Name\r\n        Debug.Print "Detailtabelle:"\r\n        Debug.Print "  " & rel.ForeignTable\r\n        Debug.Print "  " & rel.Fields(0).ForeignName\r\n        Debug.Print ""\r\n    Next rel\r\nEnd Sub<\/pre>\n
Für eine einzige Beziehung sieht das Ergebnis etwa wie folgt aus:<\/p>\n
tblKundentblBestellungen\r\n==================\r\nMastertabelle:\r\n  tblKunden\r\n  KundeID\r\nDetailtabelle:\r\n  tblBestellungen\r\n  KundeID<\/pre>\n
Dabei legen Sie im Fremdschlüsselfeld KundeID <\/b>der Detailtabelle tblBestellungen <\/b>fest, zu welchem Kunden aus der Tabelle tblKunden<\/b>, hier referenziert über einen der Werte des Primärschlüsselfeldes KundeID <\/b>der Mastertabelle, eine Bestellung gehört.<\/p>\n
Wichtig ist, dass Table <\/b>und Fields(0).Name <\/b>immer die Daten zur Mastertabelle und ForeignTable <\/b>und Fields(0).ForeignName <\/b>die Daten zur Detailtabelle liefern.<\/p>\n
Ach, und warum eigentlich der Bezug zum ersten Element der Fields<\/b>-Auflistung Kann es denn Beziehungen geben, die mehr als ein Feld enthalten Ja, das funktioniert, und zwar wie in Bild 3.<\/p>\n
\"pic009.png\"<\/p>\n
Bild 3: Beziehung über zwei Felder<\/span><\/b><\/p>\n
Dies macht in der Praxis nur wenig Sinn, aber für genau eine solche Definition können Sie mehr als ein Feld aus der Fields<\/b>-Auflistung des Relation<\/b>-Objekts auslesen. Im Modul mdlDAOBeziehungen <\/b>der Beispieldatenbank finden Sie unter BeziehungsdatenAusgeben_MehrereFelder <\/b>ein Beispiel, wie Sie auch die Felder solcher Beziehungen auslesen können (wir werden Ihnen nicht zeigen, wie Sie solche Beziehungen per VBA anlegen …).<\/p>\n
Attribute der Beziehung<\/b><\/p>\n
Weitere Informationen liefert die Eigenschaft Attributes<\/b>. Diese enthält einen Zahlenwert, der verschiedene Eigenschaftswerte verknüpft.<\/p>\n
Die möglichen Werte lauten wie folgt und sind etwa im Objektkatalog zu finden (s. Bild 2):<\/p>\n
\"pic002.png\"<\/p>\n
Bild 2: Attributes-Konstanten im Objektkatalog<\/span><\/b><\/p>\n