title image


Smiley Beziehung herstellen mit ADO
Hallo!

Nachdem ich nun schon eine ganze Weile nach Möglichkeiten suche, per VBA die Beziehugen einer Access-Datenbank zu erstellen, bin ich auf folgende DAO-Lösung gestoßen:





Sub Beziehungen_herstellen()



Dim Arbeitsbereich As DAO.Workspace

Dim Datenbank As DAO.Database

Dim Beziehung1 As DAO.Relation

Dim Beziehung2 As DAO.Relation

Dim Feld1 As DAO.Field

Dim Feld2 As DAO.Field

Dim Pfad As String



Pfad = OpenFileName("C:\Eigene Dateien", "Master-Datenbank auswählen")

Set Arbeitsbereich = DBEngine.Workspaces(0)

Set Datenbank = Arbeitsbereich.OpenDatabase(Pfad)



Set Beziehung1 = Datenbank.CreateRelation("Beziehung1", _

"Tabelle1", "Tabelle2", dbRelationUdateCascade, dbRelationDelete Cascade)



Set Feld1 = Beziehung1.CreateField("VPO8")

Feld1.ForeignName = "VPO8"



Set Beziehung2 = Datenbank.CreateRelation("Beziehung2", _

"Tabelle1", "Tabelle3", dbRelationUdateCascade, dbRelationDelete Cascade)



Set Feld2 = Beziehung2.CreateField("Doku_NR")

Feld2.ForeignName = "Doku_NR"



Beziehung1.Fields.Append Feld1

Datenbank.Relations.Append Beziehung1

Beziehung2.Fields.Append Feld2

Datenbank.Relations.Append Beziehung2



Datenbank.Close



End Sub







Das funktioniert auch einwandfrei!

Allerdings konnte ich bisher alle anderen Datenbankzugriffe über ADO-Zugriffe bewerkstelligen. Mit ADO gibt es sicher auch eine Möglichkeit, Beziehungen zu erstellen/bearbeiten. Trotz langer Suche habe ich bisher nichts Brauchbares gefunden.



Hat jemand eine Idee?

Bin für jede Hilfe dankbar



Gruß Philipp

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: