Tabellen - Beziehungen prüfen

Wie kann ich eine Beziehung prüfen?

Bevor Sie Beziehungen erstellen bzw. bearbeiten, sollten Sie vorab überprüfen, ob diese überhaupt vorhanden sind.

DAO-Variante

Beispiel:

Public Function DAO_RelationExists(pdbs As DAO.Database, _
                                   ByVal psRelName As String) As Boolean
    Dim S As String
    On Error Resume Next
    S = pdbs.Relations(psRelName).Name
    DAO_RelationExists = (Err.Number = 0)
 
End Function
ADOX-Variante

Beispiel:

Public Function ADO_RelationExists(pcnn As ADODB.Connection, _
                                   ByVal psRelName As String, _
                                   ByVal psFTable As String) As Boolean
    Dim S As String
    Dim cat As New ADOX.Catalog
 
    On Error Resume Next
    cat.ActiveConnection = pcnn
    ' Wichtig, hier muss die Sekundärtabelle
    ' angegeben werden
    S = cat.Tables(psFTable).Keys(psRelName).Name
 
    If Not cat Is Nothing Then Set cat = Nothing
    ADO_RelationExists = (Err.Number = 0)
 
End Function


Zurück Tabellen - Beziehungen erstellen | Inhalt | Tabellen - Beziehungen löschen Weiter