sql是一種特殊目的的編程語言，下面是小編給大家分享的一篇sql設置access默認值的詳細教程，感興趣的朋友跟小編一起來了解一下吧!
簡述：
如何定義字段默認值
問題：
如何設定表的某字段默認值?
方法一：
用JETSQL來完成
ALTERTABLETABLENAMEALTERCOLUMNFIELDNAMETEXT(40)DEFAULT默認值
請注意，上述語句要用ADODB.CONNECTION.EXECUTE等方法來執行，直接用上述代碼建立一個查詢無法保存或者運行，會得到ACCESS的錯誤提示。
方法二：
ADOX可以。
FunctionChengTableFieldPro_ADO()
DimMyTableNameAsString
DimMyFieldNameAsString
DimGetFieldDesc_ADO
DimGetFieldDescription
MyTableName="ke_hu"
MyFieldName="dw_name"
DimMyDBAsNewADOX.Catalog
DimMyTableAsADOX.Table
DimMyFieldAsADOX.Column
OnErrorGoToErr_GetFieldDescription
MyDB.ActiveConnection=CurrentProject.Connection
SetMyTable=MyDB.Tables(MyTableName)
GetFieldDesc_ADO=MyTable.Columns(MyFieldName).Properties("Description")
DimproAsADODB.Property
ForEachproInMyTable.Columns(MyFieldName).Properties
Debug.Printpro.Name&":"&pro.Value&"----type:"&pro.Type
Next
WithMyTable.Columns(MyFieldName)
'.Properties("nullable")=True'必填
'必填無法用上述代碼設置，出錯提示為：
'多步OLEDB操作產生錯誤。如果可能，請檢查每個OLEDB狀態值。沒有工作被完成。
'目前可以用以下語句設置：
'CurrentDb.TableDefs("ke_hu").Fields("DW_NAME").Properties("Required")=False
.Properties("JetOLEDB:AllowZeroLength")=True'允許空
.Properties("default")="默默默默認認認認"'默認值
EndWith
SetMyDB=Nothing
Bye_GetFieldDescription:
ExitFunction
Err_GetFieldDescription:
Beep
Debug.PrintErr.Description
MsgBoxErr.Description,vbExclamation
GetFieldDescription=Null
ResumeBye_GetFieldDescription
EndFunction
關於“多步錯誤”的一些參考：
SubChangeUnicode()
DimtdfAsTableDef
DimfldAsField
DimdbAsDatabase
DimproAsProperty
Setdb=CurrentDb
ForEachtdfIndb.TableDefs
ForEachfldIntdf.Fields
Iffld.Type=dbTextThen
IfDBEngine.Errors(0).Number=3270Then
Setpro=fld.CreateProperty("UnicodeCompression",1,0)
fld.Properties.Appendp
EndIf
fld.Properties("UnicodeCompression")=True
EndIf
Nextfld
Nexttdf
EndSub
以上就是關於sql設置access默認值的詳細教程了，想必都了解了吧，更多相關內容請繼續關注錯新技術頻道。