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

Geben Sie hier Ihre persönliche Bewertung ab! Bisher wurde noch keine Bewertung abgegeben.

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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.