Добавление отношения в базу

Создаем объект Relation с помощью метода CreateRelation объекта Database и устанавливаем его свойства Table и ForeignTable (таблица и внешняя таблица)

Set stud_town_r = MyDB.CreateRelation("stud_town_r")

stud_town_r.Table = "town"

stud_town_r.ForeignTable = "stud"

Создаем поле для определения общего поля первичного ивнешнего ключей в отношении с помощью метода CreateField объекта Relation

Set TempFlds(0) = stud_town_r.CreateField("key_town")

TempFlds(0).ForeignName = "key_town"

Используя метод Append, добавляем объект Field к его объекту Relation и объект relation к Database

stud_town_r.Fields.Append TempFlds(0)

MyDB.Relations.Append stud_town_r