テーブル間のリレーション設定を行うには？

すぐる 2004-11-02 01:57:04 No: 86405

こんにちは、すぐると申します。。
現在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の問題かもしれません・・。
随分調べてみたのですが、解決することができませんでした。
よろしければご教授ください。。

もう読んでないかな？ 2004-11-09 03:43:24 No: 86406

外部キー制約について勉強しましょう