Keys Append メソッド、Key Type、RelatedColumn、RelatedTable、UpdateRule プロパティの例 (VB)

次のコードでは、Customers と Orders という名前の 2 つの既存のテーブル間に新しい外部キー リレーションシップを作成する方法を示しています。

' BeginCreateKeyVB  
Sub Main()  
    On Error GoTo CreateKeyError  
  
    Dim kyForeign As New ADOX.Key  
    Dim cat As New ADOX.Catalog  
  
    ' Connect to the catalog.  
    cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _  
        "Data Source='Northwind.mdb';"  
  
    ' Define the foreign key.  
    kyForeign.Name = "CustOrder"  
    kyForeign.Type = adKeyForeign  
    kyForeign.RelatedTable = "Customers"  
    kyForeign.Columns.Append "CustomerId"  
    kyForeign.Columns("CustomerId").RelatedColumn = "CustomerId"  
    kyForeign.UpdateRule = adRICascade  
  
    ' Append the foreign key to the keys collection.  
    cat.Tables("Orders").Keys.Append kyForeign  
  
    'Delete the key t demonstrate the Delete method.  
    cat.Tables("Orders").Keys.Delete kyForeign.Name  
  
    'Clean up.  
    Set cat.ActiveConnection = Nothing  
    Set cat = Nothing  
    Set kyForeign = Nothing  
    Exit Sub  
  
CreateKeyError:  
    Set cat = Nothing  
    Set kyForeign = Nothing  
  
    If Err <> 0 Then  
        MsgBox Err.Source & "-->" & Err.Description, , "Error"  
    End If  
  
End Sub  
' EndCreateKeyVB  

参照

Append メソッド (ADOX Columns)
Append メソッド (ADOX Keys)
Catalog オブジェクト (ADOX)
Column オブジェクト (ADOX)
Columns コレクション (ADOX)
Key オブジェクト (ADOX)
Keys コレクション (ADOX)
Name プロパティ (ADOX)
RelatedColumn プロパティ (ADOX)
RelatedTable プロパティ (ADOX)
Table オブジェクト (ADOX)
Tables コレクション (ADOX)
Type プロパティ (キー) (ADOX)
UpdateRule プロパティ (ADOX)