Sicherlich kennen Sie das von MS-Access: In der Tabellen-Entwurfsansicht lässt sich zu jedem Datenbankfeld eine zusätzliche Beschreibung festlegen. Erstellt man die Tabelle aber nicht mit MS-Access, sondern direkt in VB, fehlt eine solche "Description"-Eigenschaft. Wie man die Felder einer Datenbanktabelle nachträglich mit einer Description-Eigenschaft ausstattet, das zeigen wir Ihnen heute. Hierzu muss man lediglich der Properties-Auflistung des Field-Objektes eine neue Eigenschaft namens "Description" spendieren. Wichtig: Die Properties-Auflistung eines Feldes lässt sich erst erweitern, wenn das Feld bereits in der Tabelle existiert, d.h. beim Erstellen einer neuen Tabelle / eines neues Feldes muss das Feld zunächst der Tabelle hinzugefügt werden, ehe man die neue Description-Eigenschaft hinzufügen kann! Dim oDB As DAO.Database Dim oTabDef As New DAO.TableDef Dim oField As New DAO.Field Dim oProp As DAO.Property ' Datenbank erstellen (Access 2000) Set oDB = DBEngine.CreateDatabase("test.mdb", dbLangGeneral, dbEncrypt + dbVersion40) ' Neue Tabelle oTabDef.Name = "Artikel" ' Neues Feld With oField .Name = "ArtBez" .Type = dbText .AllowZeroLength = True .DefaultValue = "" End With ' Feld der Tabelle hinzufügen oTabDef.Fields.Append oField ' Tabelle der Datenbank hinzufügen ' Tabellendefinition in DB schreiben oDB.TableDefs.Append oTabDef ' Jetzt zusätzliche Field-Properties erstellen With oDB.TableDefs("Artikel") With .Fields("ArtBez") Set oProp = .CreateProperty("Description", dbText, _ "Geben Sie hier die Artikelbezeichnung ein") .Properties.Append oProp End With ' ... End With oDB.Close Wenn Sie diese Datenbank nun in MS-Access öffnen, sehen Sie rechts in der Tabellen-Entwurfsansicht neben dem Feld "ArtBez" die Beschreibung Geben Sie hier die Artikelbezeichnung ein. Möchten Sie den Text ändern, gehen Sie wie folgt vor: With oDB.TableDefs("Artikel").Fields("ArtBez") .Properties("Description") = "Neuer Beschreibungstext" End With Dieser Tipp wurde bereits 16.101 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |