vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Datenbanken · DAO   |   VB-Versionen: VB4, VB5, VB621.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 OtterBewertung:     [ Jetzt bewerten ]Views:  21.048 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11kein 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

Dieser Tipp wurde bereits 21.048 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel