Exemplo das propriedades UpdateRule e RelatedTable, RelatedColumn, Key Type e do método Keys Append (VB)
O código a seguir demonstra como criar uma nova relação de chave estrangeira entre duas tabelas existentes denominadas Customers e 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
Consulte Também
Método Append (Colunas do ADOX)
Método Append (Chaves do ADOX)
Objeto Catalog (ADOX)
Objeto Column (ADOX)
Coleção Columns (ADOX)
Objeto Key (ADOX)
Coleção Keys (ADOX)
Propriedade Name (ADOX)
Propriedade RelatedColumn (ADOX)
Propriedade RelatedTable (ADOX)
Objeto Table (ADOX)
Coleção Tables (ADOX)
Propriedade Type (Key) (ADOX)
Propriedade UpdateRule (ADOX)
Comentários
https://aka.ms/ContentUserFeedback.
Brevemente: Ao longo de 2024, vamos descontinuar progressivamente o GitHub Issues como mecanismo de feedback para conteúdos e substituí-lo por um novo sistema de feedback. Para obter mais informações, veja:Submeter e ver comentários