Append-Methode für Schlüssel, Key Type-, RelatedColumn-, RelatedTable- und UpdateRule-Eigenschaften – Beispiel (VB)
Im folgenden Code wird veranschaulicht, wie Sie eine neue Fremdschlüsselbeziehung zwischen zwei vorhandenen Tabellen mit den Namen Kunden und Bestellungen erstellen.
' 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
Weitere Informationen
Append-Methode (ADOX-Spalten)
Append-Methode (ADOX-Schlüssel)
Catalog-Objekt (ADOX)
Column-Objekt (ADOX)
Columns-Collection (ADOX)
Key-Objekt (ADOX)
Keys-Collection (ADOX)
Name-Eigenschaft (ADOX)
RelatedColumn-Eigenschaft (ADOX)
RelatedTable-Eigenschaft (ADOX)
Table-Objekt (ADOX)
Tables-Collection (ADOX)
Type-Eigenschaft (Schlüssel) (ADOX)
UpdateRule-Eigenschaft (ADOX)
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für