Rubrik: Datenbanken · ADO | VB-Versionen: VB6 | 29.10.10 |
Standardwert für ein Datenbankfeld festlegen (ADO) Mit diesem Code lässt sich der Standardwert eines Access-Datenbankfeldes im Nachhinein ändern / festlegen. | ||
Autor: Dieter Otter | Bewertung: | Views: 7.721 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Nachdem wir Ihnen im letzten Tipp gezeigt haben, wie man mittels DAO den Standardwert eines Access-Datenbankfeldes ändern bzw. neu festlegen kann, zeigen wir diesmal die Möglichkeit, wie man das bei Verwendung von ADO erledigen kann.
Fügen Sie Ihrem Projekt zunächst noch einen Verweis auf die Bibliothek Microsoft ADO Ext. 2.x for DDL and Security hinzu (falls noch nicht vorhanden).
' Datenbank öffnen Dim oConn As ADODB.Connection Set oConn = New ADODB.Connection With oConn .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = "..." .Properties("Persist Security Info") = False .CursorLocation = adUseServer .Open End With
Der Standardwert wird über die Properties-Auflistung der jeweiligen Tabelle festgelegt:
' Standardwert des Datenbankfeldes festlegen Dim oCat As ADOX.Catalog Set oCat = New ADOX.Catalog oCat.ActiveConnection = oConn With oCat.Tables("Tabellenname") .Columns("Feldname").Properties("Default") = ... End With Set oCat = Nothing
Das war's dann auch schon.