Tabellen - Feld vorhanden

Existiert ein Feld?

Bevor man neues Feld anlegt bzw. ein vorhandenes ändert, sollte man prüfen, ob dieses bereits vorhanden ist. Mit der folgenden Funktion erhalten Sie ein True zurück, wenn es das Feld in der angegebenen Datenbank und Tabelle gibt.

DAO-Variante

Beispiel:

Public Function DAO_FieldExists(pdbs As DAO.Database, _
                                ByVal psTable As String, _
                                ByVal psField As String) As Boolean
    Dim S As String
    On Error Resume Next
    S = pdbs.TableDefs(psTable).Fields(psField).Name
    DAO_FieldExists = (Err.Number = 0)
 
End Function
ADOX-Variante

Beispiel:

Public Function ADO_FieldExists(pcnn As ADODB.Connection, _
                                ByVal psTable As String, _
                                ByVal psField As String) As Boolean
    Dim S As String
    Dim cat As New ADOX.Catalog
 
    On Error Resume Next
    cat.ActiveConnection = pcnn
    S = cat.Tables(psTable).Columns(psField).Name
    ADO_FieldExists = (Err.Number = 0)
    If Not cat Is Nothing Then Set cat = Nothing
 
End Function


Zurück Tabellen - Löschen | Inhalt | Tabellen - Feldgröße Weiter