ACCESS数据库中Field对象的caption属性读写

王朝other·作者佚名  2006-12-27
窄屏简体版  字體: |||超大  

ACCESS数据库中Field对象的caption属性(也就是标题)属性是用来设置数据字段的标题的,在正常的数据库设计中为了保持维护的便利性,许多开发者都将字段名与标题做了分别设置,标题往往比字段名更友好,更能说明字段的用途。本文章说明如何用VBA读写该属性。

可惜Field对象的CAPTION属性并不是ADO原生对象,而是“可由ADO访问的ACCESS属性”,在帮助文档中介绍了两种访问这个属性的方法,一种利用ADO,一种利用DAO,在这里我直接说出结果,由于在ACCESS2003及以前的版本中Field对象并不是ACCESSObject对象,因而也就没有AccessObjectProperties 属性,所以我们也就别想在ADO中去解决这个问题吧,现在给出DAO的代码解决办法

Sub SetProperty(dbsTemp As DAO.Field, strName As String, _

booTemp As String)

Dim prpNew As DAO.Property

Dim errLoop As Error

' Attempt to set the specified property.

On Error GoTo Err_Property

dbsTemp.Properties(strName) = booTemp

On Error GoTo 0

Exit Sub

Err_Property:

' Error 3270 means that the property was not found.

If DBEngine.Errors(0).Number = 3270 Then

' Create property, set its value, and append it to the

' Properties collection.

Set prpNew = dbsTemp.CreateProperty(strName, _

dbText, booTemp)

dbsTemp.Properties.Append prpNew

Resume Next

Else

' If different error has occurred, display message.

For Each errLoop In DBEngine.Errors

MsgBox "Error number: " & errLoop.Number & vbCr & _

errLoop.Description

Next errLoop

End

End If

End Sub

Sub DisplayClumCaption(ByVal tbname As String, ByVal fldIndex As Integer)

Dim dset As DAO.TableDef) //*****必须使用TableDef对象

Dim i As Integer

Dim tmpProp As DAO.Property //强制使用DAO类型

Dim fld As DAO.Field //强制使用DAO类型

Dim tmpTxt As String

'On Error Resume Next

Dim msg As String

Dim cdb As DAO.Database //*****强制使用DAO类型

Set cdb = CurrentDb //****关键,确定对当前数据库的静态引用

Set dset = cdb.TableDefs(tbname)//*****必须使用TableDef对象

For Each fld In dset.Fields

tmpTxt = fld.Name

SetProperty fld, "Caption", tmpTxt

msg = msg + fld.Properties("Caption")

msg = msg + Chr(10) + Chr(13)

Next fld

MsgBox msg

End Sub

这里代码中有两个SUB,一个是SetProperty ,用来判断一个字段是否有指定的属性,如果没有设置,有就将相应的数值赋给该属性,这段代码几乎完全是照搬MS的帮助文档。另一个是DisplayClumCaption,这是对指定表中的字段按字段名设置其CAPTION属性的演示代码。如果有需要,大家可以对SetProperty进行修改,使他变成一个只读的函数,用来枚举指定表中每个字段的CAPTION属性。DisplayClumCaption代码中,我打“星号”的地方是要重点注意的,因为我在这里曾走过弯路,浪费了一个下午的时间在MSDN中游荡。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航