天下网吧 >> 网吧天地 >> 网吧技术 >> 网吧软件 >> 正文

ACCESS中Field对象的标题属性

2008-11-21ddvip.com佚名

  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 ,用来判断一个字段是否有指定的属性,如果没有设置,就将相应的数值赋给该属性。另一个是DisplayClumCaption,这是对指定表中的字段按字段名设置其CAPTION属性的演示代码。如果有需要,大家可以对SetProperty进行修改,使他变成一个只读的函数,用来枚举指定表中每个字段的CAPTION属性。DisplayClumCaption代码中,打“星号”的地方是要重点注意的,不然可能会在MSDN中多走弯路。

本文来源:ddvip.com 作者:佚名

声明
声明:本站所发表的文章、评论及图片仅代表作者本人观点,与本站立场无关。文章是出于传递更多信息之目的。若有来源标注错误或侵犯了您的合法权益,请作者持权属证明与本网联系,我们将及时更正、删除,谢谢。 Email:support@txwb.com,系统开号,技术支持,服务联系微信:_WX_1_本站所有有注明来源为天下网吧或天下网吧论坛的原创作品,各位转载时请注明来源链接!
天下网吧·网吧天下
  • 本周热门
  • 本月热门
  • 阅读排行