Keys Append 方法、Key Type、RelatedColumn、RelatedTable 和 UpdateRule 屬性範例 (VB)

下列程式碼示範如何在兩個名為 Customers 和 Orders 的現有資料表之間建立新的外部索引鍵關聯性。

' 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 屬性 (Key) (ADOX)
UpdateRule 屬性 (ADOX)