Kurze Beschreibung:
So definieren Sie Feldausfallwerte
Frage:
Wie setzen Sie den Standardwert eines bestimmten Feldes in einer Tabelle fest?
Methode 1:
Verwenden Sie JetsQL, um abzuschließen
AlterTabletabLeAmeAmateColumnfieldnameText (40) Standardwertwert
Bitte beachten Sie, dass die obigen Anweisungen mit adodb.connection.execute und anderen Methoden ausgeführt werden sollten. Wenn Sie den oben genannten Code direkt verwenden, um eine Abfrage zu erstellen, die nicht gespeichert oder ausgeführt werden kann, erhalten Sie eine Zugriffsfehlermeldung.
Methode 2:
Adox ist in Ordnung.
FunctionChentablefieldpro_ado ()
DimmytablenameAsString
DimmyfieldnameAsString
Dimgetfielddesc_ado
DimgetfieldDescription
MytableName = "ke_hu"
Myfieldname = "dw_name"
Dimmydbasnewadox.catalog
DimmytableAsadox.table
Dimmyfieldasadox.Column
OnErorgotoerr_getfieldDescription
Mydb.activeConnection = currentProject.Connection
SetMytable = mydb.tables (mytableName)
GetfieldDesc_ado = mytable.columns (MyfieldName) .Properties ("Beschreibung")
Dimproasadodb.property
ForeachProinMytable.Columns (MyfieldName) .Properties
Debug.printpro.name & ":" & pro.value & "---- Typ:" & pro.type
Nächste
WithMyTable.Columns (MyfieldName)
'.Properties ("nullable") = true'required
'Der obige Code kann nicht festgelegt werden, die Fehlermeldung lautet:
'Multi-Step OLEDB-Operation erzeugt einen Fehler. Wenn möglich, überprüfen Sie jeden OLEDB -Statuswert. Es wurde keine Arbeit erledigt.
'Derzeit kann es mit der folgenden Erklärung festgelegt werden:
'CurrentDB.Tabledefs ("ke_hu")
.Properties ("Jetoledb: Degzerolength") = true'Anlable leer
.Properties ("Standard") = "stillschweigend Standarderkennung" 'Standardwert "