DruckversionDatenzugriffsobjekte
Ändern der Tabellenstruktur
Wie kann ich in einer Tabelle Felder hinzufügen und löschen? Wie kann ich neue Tabellen hinzufügen oder bestehende löschen?
Eine neue Tabelle wird erstellt
SubNewTable()
DimdbsAs Database, tdfAs TableDef, fldAs Field
' Return reference to current database.
Set dbs= CurrentDb
' Return TableDefobjectvariable thatpointsto newtable.
Set tdf= dbs.CreateTableDef("Contacts")
' Definenewfieldin table.
Set fld= tdf.CreateField("ContactName", dbText, 40)
' AppendFieldobjectto Fields collectionof TableDefobject.
tdf.Fields.Appendfld
tdf.Fields.Refresh
' AppendTableDefobjectto TableDefscollectionof database
.dbs.TableDefs.Append tdf
dbs.TableDefs.Refresh
Set dbs= Nothing
End SubAlle Tabellen einer Datenbank sind in ihrer TableDefs-Auflistung enthalten. Um eine neue Tabelle zu erstellen, führt man die Methode CreateTableDef des Database-Objekts aus:
Diese Seite ist für Mitglieder von akademie.de reserviert.
Möchten Sie die Mitgliedschaft 14 Tage kostenlos testen und den Beitrag komplett lesen?
Oder möchten Sie zunächst mehr über diesen Beitrag erfahren und die Leseproben sehen?
Ich bin bereits Mitglied