ACCESS数据库中Field对象的caption属性读写
本文章说明如何用VBA读写该属性。 可惜Field对象的CAPTION属性并不是ADO原生对象,而是“可由ADO访问的ACCESS属性”,在帮助文档中介绍了两种访问这个属性的方法,一种利用ADO,一种利用DAO,在这里我直接说出结果,由于在ACCESS2003及以前的版本中Field对象并不是ACCESSObject对象,因而也就没有AccessObjectProperties属性,所以我们也就别想在ADO中去解决这个问题吧,现在给出DAO的代码解决办法
SubSetProperty(dbsTempAsDAO.Field,strNameAsString,_ booTempAsString) DimprpNewAsDAO.Property DimerrLoopAsError 'Attempttosetthespecifiedproperty.
OnErrorGoToErr_Property dbsTemp.Properties(strName)=booTemp OnErrorGoTo0 ExitSub Err_Property:
'Error3270meansthatthepropertywasnotfound. IfDBEngine.Errors(0).Number=3270Then
'Createproperty,setitsvalue,andappendittothe 'Propertiescollection.
SetprpNew=dbsTemp.CreateProperty(strName,_ dbText,booTemp)
dbsTemp.Properties.AppendprpNew ResumeNext Else
'Ifdifferenterrorhasoccurred,displaymessage. ForEacherrLoopInDBEngine.Errors
MsgBox"Errornumber:"&errLoop.Number&VBCr&_ errLoop.Description NexterrLoop End EndIf
EndSub SubDisplayClumCaption(ByValtbnameAsString,ByValfldIndexAsInteger)
DimdsetAsDAO.TableDef) //*****必须使用TableDef对象
DimiAsIntegerDimtmpPropAsDAO.Property //强制使用DAO类型
DimfldAsDAO.Field //强制使用DAO类型DimtmpTxtAsString'OnErrorResumeNext
DimmsgAsStringDimcdbAsDAO.Database //*****强制使用DAO类型
Setcdb=CurrentDb //****关键,确定对当前数据库的静态引用
Setdset=cdb.TableDefs(tbname)//*****必须使用TableDef对象
ForEachfldIndset.Fields tmpTxt=fld.Name SetPropertyfld,"Caption",tmpTxt msg=msg fld.Properties("Caption")
msg=msg Chr(10) Chr(13) Nextfld MsgBoxmsgEndSub
这里代码中有两个SUB,一个是SetProperty,用来判断一个字段是否有指定的属性,如果没有设置,有就将相应的数值赋给该属性,这段代码几乎完全是照搬MS的帮助文档。另一个是DisplayClumCaption,这是对指定表中的字段按字段名设置其CAPTION属性的演示代码。如果有需要,大家可以对SetProperty进行修改,使他变成一个只读的函数,用来枚举指定表中每个字段的CAPTION属性。DisplayClumCaption代码中,我打“星号”的地方是要重点注意的,因为我在这里曾走过弯路,浪费了一个下午的时间在MSDN中游荡。
关键词:ACCESS,数据库
相关阅读
- 05-05Windows2008 64位IIS7+ACCESS数据库无法打开Asp页面
- 04-08access数据库提示未在本地计算机上注册“Microsoft.ACE.OLEDB.12.0”提供程序解决办法
- 08-02提示access violation at address解决办法
- 07-21nginx支持.htaccess伪静态rewrite的方法
- 04-09APACHE支持.htaccess方法
- 09-25.htaccess是什么?.htaccess几个简单应用
- 04-26apache .htaccess 重定向
- 03-10Windows下创建.htaccess文件的4种方法
- 12-25八步解决ACCESS自动编号问题,自己用的SQL SERVER 2000数据库,转换为ACCESS数据库
- 08-28XP安装IIS时提示 “Failed to access IIS metabase”解决办法
阅读本文后您有什么感想? 已有 人给出评价!
用户评论
热门评论
最新评论
相关软件
热点图文
- 04-08access数据库提示未在本地计算机上注册“Microsoft.ACE.OLEDB.12.0”提供程序解决办法
- 04-06通过ASP与ACCESS数据库建立连接(附源码)(1)
- 04-06设置和取消ACCESS数据库密码
- 06-07ACCESS数据库中Field对象的caption属性读写
- 01-10ACCESS数据库没有写入权限导致ADODB.Recordset 错误 '800a0cb3'的解决办法
- 04-06通过ASP与ACCESS数据库建立连接(附源码)(2)
- 04-06用asp处理access数据库
- 04-06通过ASP与ACCESS数据库建立连接(附源码)(3)
- 04-06Access数据库安全的几个问题
- 01-10Access数据库被损坏的修复方法