注册登录

另类读写：ACCESS中Field对象的标题属性

时间:2016-02-24 17:28 来源: 我爱IT技术网作者:佚名

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【另类读写：ACCESS中Field对象的标题属性】，下面是详细的分享！

另类读写：ACCESS中Field对象的标题属性

ACCESS数据库中Field对象的caption属性（也就是标题）是用来设置数据字段的标题，在正常的数据库设计中为了保持维护的便利性，许多开发者都将字段名与标题做了分别设置，标题往往比字段名更友好，更能说明字段的用途。本篇从另一个角度来说明如何用ＶＢＡ读写该属性。

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中多走弯路。

以上所分享的是关于另类读写：ACCESS中Field对象的标题属性，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：如何编程读取Access表的属性？如我新建了一个Acces...

　　答：给你一个操作access数据表的4个方法，供参考： ------------------------------------------------------------------------------ 1.insert public void NewData(String GroupNameSet) { String sql = "insert into mytable(GroupNameSet) valu... >>详细

　　相关问题：java中如何通过反射获取类的属性

　　答：简单的方法如下： Class cls=Class.forName(className);////////////////////////通过类的名称反射类 Object obj=cls.newInstance();//////////////////////对象实例化 Field field=cls.getField(fieldName);/////这个对应的是属性 fieldValue=f... >>详细

　　相关问题：access采用OLE对象数据类型时图片显示动态

　　答：如何从ACCESS数据库中读取Images ？ 1、ACCESS数据库中的图形格式当浏览器遇到一个标志时，它会根据你设定的src属性来下载文件。这可能是一个图形文件或则是一个ASP页面。如果是一个返回gif二进制的ASP页面，浏览器需要知道返回的是什么格式的... >>详细

评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）

另类读写：ACCESS中Field对象的标题属性

另类读写：ACCESS中Field对象的标题属性

以上所分享的是关于另类读写：ACCESS中Field对象的标题属性，下面是编辑为你推荐的有价值的用户互动：

最新教程

相关教程