Тема: Базы данных. Создание связи между таблицами.
Привет.
Есть БД созданная в Accesse.
Мне нужно програмно создать таблицу. И задать связь ее с другой таблицей в этой базе.
Делаю через ADOX.
Создал таблицу.
Задал составной ключ из полей Name+Obozn.
Теперь нужно связать поле Obozn новой таблицы c таблицей Альбомы.Obozn.
... Dim objKey As ADOX.key ... Dim objKey As New ADOX.key objKey.Name = "Составной" objKey.Columns.Append "Name" objKey.Columns.Append "Obozn" objKey.Type = adKeyPrimary objKey.UpdateRule = adRICascade objKey.DeleteRule = adRICascade [b]'задаю связь Альбомы.Obozn = Имя_узлы.Obozn objKey.RelatedTable = "Альбомы" objKey.Columns.Item("Obozn").RelatedColumn = "Obozn"[/b] 'добавляю ключ в таблицу objTable.Keys.Append objKey 'добавляю таблицу в базу dbNodes objCatalog.Tables.Append objTable ...
Вот какрас жирненьким выделил место, где я предпологал будет задана связь. А фиг.
Таблица создается, все нормально, составной ключ тоже, но связи нет.
Соединение через: "Provider=Microsoft.Jet.OLEDB.4.0;"