SQL ist eine Programmiersprache mit besonderem Zweck. Im Folgenden finden Sie ein detailliertes Tutorial zum Festlegen des Standardwerts des SQL -Zugriffs, den der Editor mit Ihnen geteilt hat. Interessierte Freunde, lasst uns mit dem Herausgeber erfahren!
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 & "----- type:" & 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 "
Endwith
SetMydb = nichts
Bye_getfieldDescription:
Ausgangsfunktion
Err_getfieldDescription:
Piep
Debug.printerr.description
Msgboxerr.description, vBexclamation
GetfieldDescription = NULL
ResumeBye_GetfieldDescription
Endfunktion
Einige Verweise auf "Multi-Step-Fehler":
Subchangeunicode ()
DimtdfastableFablef
Dimfldasfield
Dimdbasdatabase
Dimproasproperty
Setdb = currentDB
ForeActdfindb.Tabledefs
Foreachfldintdf.fields
Ifffld.type = dbTextThen
Ifdbengine.Erors (0) .number = 3270Then
SetPro = fld.createprperty ("unicodeCompression", 1,0)
fld.properties.appendp
Endif
fld.Properties ("unicodeCompression") = true
Endif
Weiterfld
NEXTTDF
Ende
Das obige ist ein detailliertes Tutorial zum Einstellen des Standardzugriffswerts von SQL. Ich glaube, Sie haben es gelernt. Für mehr verwandte Inhalte achten Sie bitte weiterhin auf den falschen neuen Technologiekanal.