会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 技巧 > Access技巧 > 数据表 > 正文

如何设置表的字段默认值

时间:2005-02-04 00:00 来源:Access911 作者:cg1『文章… 阅读:

 

问题:
 

 
如何设定表的某字段默认值?

方法一:

 
用 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



更多关于ADO和DAO的信息,您可参见以下文档:

 

Porting DAO Code to ADO with the Microsoft Jet Provider:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dndao/html/daotoado.asp


(责任编辑:admin)

顶一下
(0)
0%
踩一下
(0)
0%
上一篇:创建表
下一篇:如何为两个表建立连接
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: