テーブル間のリレーション設定を行うには？ (ID:86405)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは、すぐると申します。。 現在VB4→VB.NETへのコンバージョン作業をしています。 その中で下記のような処理の置換えに困っています。 開発環境 コンバージョン前：VB4/Access コンバージョン後：VB.NET/MSDE アクセスでは、下記のような設定で、 データベースの更新・削除などをテーブル間で連鎖的に行うことが可能だったかと思います。 *********ソース***************************************************** Dim dbs As Database Dim rel As Relation Dim fld As Field Set rel = dbs.CreateRelation("A−B", "Atable", "Btable") rel.Attributes = dbRelationUnique _ + dbRelationUpdateCascade + dbRelationDeleteCascade Set fld = rel.CreateField("コード１") fld.ForeignName = "コード１" rel.Fields.Append fld Set fld = rel.CreateField("コード２") fld.ForeignName = "コード２" rel.Fields.Append fld dbs.Relations.Append rel **********ソース終わり******************************************** これを現在の環境ではどのように実現すればよいのでしょうか？ VBというより、MSDEの問題かもしれません・・。 随分調べてみたのですが、解決することができませんでした。 よろしければご教授ください。。