MS Access | ADO | Установить связь между таблицами

'установка связи между таблицами (Table1 и Table2) - ADO

Sub CreateRalation_ADO()

Dim db As ADOX.Catalog, tbl As ADOX.Table, key As ADOX.key

Set db = New ADOX.Catalog

db.ActiveConnection = CurrentProject.Connection

Set key = New ADOX.key

key.Name = "ggg"

key.UpdateRule = adRICascade

key.RelatedTable = "Table1"

key.Type = adKeyForeign

key.Columns.Append "F_1"

key.Columns("F_1").RelatedColumn = "F_1"

Set tbl = New ADOX.Table

Set tbl = db.Tables("Table2")

tbl.Keys.Append key

End Sub