Tabellen - Feldname ändern

Wie kann ich einen Feldnamen ändern?

Die Funktion, einen Feldnamen zu ändern, dürfte man eigentlich fast nie benötigen, da in diesem Fall der Name in der gesamten Anwendung geändert werden muss. Der Vollständigkeit halber möchten wir jedoch auch aufzeigen, wie ein Feldname geändert werden kann.

DAO-Variante

Beispiel:

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

Beispiel:

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


Zurück Tabellen - Feld löschen | Inhalt | Tabellen - Feldgröße/-typ ändern Weiter