創(chuàng)建關(guān)鍵字范例

創(chuàng)建關(guān)鍵字范例

如下代碼演示如何創(chuàng)建新的外部關(guān)鍵字。假定已存在兩個(gè)表（Customers 和 Orders）。

Sub CreateKey()

   Dim kyForeign As New ADOX.Key

   Dim cat As New ADOX.Catalog

   cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

      "Data Source=c:\Program Files\Microsoft Office\" & _

      "Office\Samples\Northwind.mdb;"

   kyForeign.Name = "CustOrder"

   kyForeign.Type = adKeyForeign

   kyForeign.RelatedTable = "Customers"

   kyForeign.Columns.Append "CustomerId"

   kyForeign.Columns("CustomerId").RelatedColumn = "CustomerId"

   kyForeign.UpdateRule = adRICascade

   cat.Tables("Orders").Keys.Append kyForeign

End Sub