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)