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中游荡。
一、推荐使用迅雷或快车等多线程下载软件下载本站资源。
二、未登录会员无法下载,登录后可获得更多便利功能,若未注册,请先注册。
三、如果服务器暂不能下载请稍后重试!总是不能下载,请点我报错 ,谢谢合作!
四、本站大部分资源是网上搜集或私下交流学习之用,任何涉及商业盈利目的均不得使用,否则产生的一切后果将由您自己承担!本站将不对任何资源负法律责任.如果您发现本站有部分资源侵害了您的权益,请速与我们联系,我们将尽快处理.
五、如有其他问题,请加网站设计交流群(点击这里查看交流群 )进行交流。
六、如需转载本站资源,请注明转载来自并附带链接
七、本站部分资源为加密压缩文件,统一解压密码为:www.aizhanzhe.com
- 1CSS控制文字在Div最底部显示
- 2Thinkphp5如何配置IP+端口访问项目模块
- 3elementUI el-dialog弹框居中
- 4教你如何搭建及优化站点
- 5国内互联网视频行业运营分析
- 6service mysql start出错,mysql不能启动,解决mysql: unrecognized service错误
- 7CSS实现悬浮顶部的Div工具栏
- 8记一次Thinkphp5.1框架mysql数据库崩溃(SQLSTATE [08004] Too many connections)
- 9连接SQL Server数据库提示:Login failed for user 'sa'错误的解决方案
- 10Thinkphp3.2在centos7上设置计划任务的方法