sql设置access默认值的详细教程

　　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默认值的详细教程了，想必都了解了吧，更多相关内容请继续关注错新技术频道。