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