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:     [ Jetzt bewerten ]	Views:  21.676
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 27 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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