簡述:
如何定義字段默認值
問題:
如何設定表的某字段默認值?
方法一:
用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")="默默默默認認認認"'默認值