| 如何设置表的字段默认值 |
|
| 作者：cg1『文章… 文章来源：Access911 点击数： 本日：{$DayHits} 更新时间：2005-2-4 16:29:27 |
|
原文：http://access911.net/74FAB01E15DC.htm
问题：
方法一：
|
用 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 | |
| 文章录入：tm 责任编辑：tm |
|
上一篇文章： 如何将数据表导出备份到excel表格
下一篇文章： 如何用代码设置表中字段的输入法模式 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
