Rubrik: Datenbanken · DAO | VB-Versionen: VB4, VB5, VB6 | 21.09.01 |
Datenbankfelder nachträglich hinzufügen (DAO) Dieser Tipp zeigt, wie sich Datenbankfelder auch nachträglich noch zu einer Datenbank-Tabelle hinzufügen lassen. | ||
Autor: Dieter Otter | Bewertung: | Views: 21.078 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Bereits mehrfach wurde in unseren Diskussionsforen die Frage gestellt: "Kann man noch nachträglich ein oder mehrere Datenbankfelder zu einer bereits existierenden Datenbank-Tabelle hinzufügen - und wenn ja, wie?"
Das nachträgliche Hinzufügen von Felder ist kein Problem und geht auch recht einfach vonstatten. Wichtig ist hierbei nur, dass die Tabelle geschlossen ist, und kein weiterer User die Datenbank geöffnet hat, da für Sie die Datenbank für diese Aufgabe exklusiv öffnen müssen.
Das nachfolgende Beispiel öffnet eine Datenbank "ADRESSEN.MDB" und fügt der Tabelle "Adressen" zwei neue Felder hinzu: EMail und Homepage.
Dim Db As Database Dim dbFile As String Dim Feld As New Field ' Datenbankpfad dbFile = App.Path & "\ADRESSEN.MDB" ' Datenbank exklusiv öffnen Set Db = OpenDatabase(dbFile, True, False) With Db.TableDefs("Adressen").Fields ' Feld "EMail" definieren Feld.Name = "EMail" Feld.Type = dbText Feld.Size = 50 Feld.AllowZeroLength = True ' Feld hinzufügen .Append Feld Set Feld = Nothing ' Feld "Internet" definieren Feld.Name = "Internet" Feld.Type = dbText Feld.Size = 100 Feld.AllowZeroLength = True ' Feld hinzufügen .Append Feld Set Feld = Nothing End With ' Datenbank schliessen Db.Close Set Db = Nothing