脚本宝典收集整理的这篇文章主要介绍了用sql设置access的默认值，脚本宝典觉得挺不错的，现在分享给大家，也给大家做个参考。

简述：
如何定义字段默认值 

问题： 
如何设定表的某字段默认值？

方法一：

用 JET SQL 来完成
ALTER TABLE TABLENamE ALTER COLUMN FIELDNAME TEXT(40) DEFAULT 默认值 


请注意，上述语句要用 ADODB.CONNECTION.EXECUTE 等方法来执行，直接用上述代码建立一个查询无法保存或者运行，会得到 ACCESS 的错误提示。


方法二：

ADOX 可以。


Function ChengTableFieldPRo_ADO()

    Dim ;myTableName As String
    Dim MyFieldName As String
    Dim GetFieldDesc_ADO
    Dim GetFieldDescription
    MyTableName = "ke_hu"
    MyFieldName = "dw_name"

    Dim MyDB As New ADOX.CataLOG
    Dim MyTable As ADOX.Table
    Dim MyField As ADOX.Column

    On Error GoTo Err_GetFieldDescription

    MyDB.ActiveConnection = currentProject.Connection
    Set MyTable = MyDB.Tables(MyTableName)
    GetFieldDesc_ADO = MyTable.Columns(MyFieldName).ProPErties("Description")

      
    Dim pro As ADODB.Property
    For each pro In MyTable.Columns(MyFieldName).Properties
        Debug.Print pro.Name & " : " & pro.Value & " ---- type : " & pro.Type
    Next

    WITh MyTable.Columns(MyFieldName)

        '.Properties("nullable") = True    '必填
        '必填无法用上述代码设置，出错提示为：
        '多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。
        '目前可以用以下语句设置：
        'CurrentDb.TableDefs("ke_hu").Fields("DW_NAME").Properties("Required") = False
        .Properties("Jet OLEDB:Allow Zero Length") = True   '允许空
        .Properties("default") = "默默默默认认认认"      '默认值
    End With
    Set MyDB = Nothing

Bye_GetFieldDescription:
    Exit Function

Err_GetFieldDescription:
    Beep
    Debug.Print Err.Description
    MsgBox Err.Description, vbExclamation
    GetFieldDescription = Null
    Resume Bye_GetFieldDescription

End Function

 
关于“多步错误”的一些参考：

Sub ChangeUnicode()

   Dim tDF As TableDef
   Dim fld As Field
   Dim db As Database
   Dim pro As Property

   Set db = CurrentDb

   For Each tdf In db.TableDefs
       For Each fld In tdf.Fields
           If fld.Type = dBText Then
           If DBEngine.Errors(0).Number = 3270 Then
               Set pro = fld.CreateProperty("UnicodeComPression", 1, 0)
               fld.Properties.Append p
           End If
               fld.Properties("UnicodeCompression") = True
           End If
       Next fld
   Next tdf
End Sub

脚本宝典总结

以上是脚本宝典为你收集整理的用sql设置access的默认值全部内容，希望文章能够帮你解决用sql设置access的默认值所遇到的问题。

如果觉得脚本宝典网站内容还不错，欢迎将脚本宝典推荐好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。