Private Sub Form_Load()
 
    dbFile = App.Path & "\Test.mdb"
    If Dir(dbFile) = "" Then
        DatenbankEinrichten
        IndexErstellen
        RelationErstellen
    End If
 
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
    sql = "SELECT * FROM Tabelle1 " & _
          "INNER JOIN Tabelle2 " & _
          "ON Tabelle1.IndexNr = Tabelle2.IndexNr"
 
    Set rs = Db.OpenRecordset(sql)
 
End Sub
 
 
Private Sub DatenbankEinrichten()
    Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, _
                                          dbEncrypt + dbVersion30)
 
 
    '--Tabelle 1
    Tabelle.Name = "Tabelle1"
 
    Feld.Name = "IndexNr"
    Feld.Type = dbLong
    Tabelle.Fields.Append Feld
    Set Feld = Nothing
 
    Feld.Name = "Tab1Feld1"
    Feld.Type = dbText
    Feld.Size = 20
    Feld.AllowZeroLength = True
    Tabelle.Fields.Append Feld
    Set Feld = Nothing
 
    Db.TableDefs.Append Tabelle
    Set Tabelle = Nothing
 
    '--Tabelle 2
    Tabelle.Name = "Tabelle2"
 
    Feld.Name = "IndexNr"
    Feld.Type = dbLong
    Tabelle.Fields.Append Feld
    Set Feld = Nothing
 
    Feld.Name = "Tab2Feld1"
    Feld.Type = dbText
    Feld.Size = 20
    Feld.AllowZeroLength = True
    Tabelle.Fields.Append Feld
    Set Feld = Nothing
 
    Db.TableDefs.Append Tabelle
    Db.Close
 
    Set Tabelle = Nothing
    Set Db = Nothing
End Sub
 
Private Sub IndexErstellen()
 
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
    '--Tabelle 1
    Index.Name = "IndexTab1"
    Index.Primary = True
    Index.Unique = True
    Index.Fields = "IndexNr"
    Db.TableDefs("Tabelle1").Indexes.Append Index
    Set Index = Nothing
 
    '--Tabelle 2
    Index.Name = "IndexTab2"
    Index.Primary = False
    Index.Unique = False
    Index.Fields = "IndexNr"
    Db.TableDefs("Tabelle2").Indexes.Append Index
    Set Index = Nothing
 
    Db.Close
    Set Db = Nothing
End Sub
 
Private Sub RelationErstellen()
 
    Set Db = Workspaces(0).OpenDatabase(dbFile, True, False)
 
    '--1: N - referentielle Integrität
    Set mRel = Db.CreateRelation("RelA")
 
    With mRel
        '--Primarytable einstellen
        .Table = "Tabelle1"
 
        '--Referenzierte Tabelle einstellen
        .ForeignTable = "Tabelle2"
 
        '--Verknüpfung als 1:N Beziehung deklarieren
        .Attributes = dbRelationUpdateCascade + dbRelationDeleteCascade
 
        '--Gemeinsames Datenfeld erzeugen
        Set Feld = .CreateField("IndexNr")
        Feld.ForeignName = "IndexNr"
        .Fields.Append Feld
    End With
 
    Db.Relations.Append mRel
    Set mRel = Nothing
 
    Db.Close
    Set Db = Nothing
End Sub