Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

Tabellen verknüpfen (Relationen)

Durch das Verknüpfen von Tabellen mit Hilfe von Relationen bietet sich die Möglichkeit, der jeweiligen

Datenbank-Engine mitzuteilen, welche Beziehungen zwischen den einzelnen Tabellen bestehen. Damit

wird die Datenbank-Engine in die Lage versetzt, Löschweitergaben und Integritätsprüfungen zu realisieren.

Als Beispiel wollen wir eine Beziehung zwischen einer Tabelle

Personen

und einer Tabelle

Raeume

herstellen.

Die folgende Abbildung zeigt das gewünschte Ergebnis.

Abbildung 9.3 Verknüpfung zwischen den Tabellen

Jedem Raum sind

n

Mitarbeiter zugeordnet.

Mit Hilfe der ADOX wird ein neuer Schlüssel (Key) für die Tabelle

Personen

erzeugt. Dieser Fremdschlüssel

(

ForeignKey

) zeigt auf den Primärindex der Tabelle

Raeume

:

Dim MyKey As New ADOX.Key

Dim cat As New ADOX.Catalog

cat.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Kunden.accdb;"

MyKey.Name = "RaumPerson"

MyKey.Type = adKeyForeign

MyKey.RelatedTable = "Raeume"

MyKey.Columns.Append "Raum-ID"

MyKey.Columns("Raum-Id").RelatedColumn = "Id"

MyKey.DeleteRule = adRICascade

cat.Tables("Personen").Keys.Append MyKey

Das Resultat in Microsoft Access:

Abbildung 9.4 Dialog »Beziehungen bearbeiten«

521

Datenbankverwaltung mit ADOX