当前位置:w88优德官网网文章中心网站开发Access → ACCESS数据库中Field对象的caption属性读写

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

减小字体 增大字体 作者:admin  来源:www.hack50.com  发布时间:2011-6-15 8:16:17
本文章说明如何用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.ErrorsMsgBox"Errornumber:"&errLoop.Number&VBCr&_ errLoop.Description NexterrLoop End EndIfEndSub 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数据库中Field对象的caption属性读写”的相关信息:
谷歌搜索 百度搜索 雅虎搜索 搜狗搜索 搜搜搜索 必应搜索 有道搜索
你可能还喜欢以下文章
  • 1雨后小故事 qq表情姐弟雨后小故...
  • 2洪立仪不雅视频下载 洪立仪不雅...
  • 3揭秘“招聘兼职打字员”骗局
  • 4香港中学生惊艳楼道门 90后楼道...
  • 5中关村“艳照门” 前妻群发老公...
  • 1如何分辨网站是否被百度、goog...
  • 2网站百度快照出现回档情况解析...
  • 3织梦CMS读取频道信息失败 无法...
  • 4dedecms wap - 国内免费(开源...
  • 5网站外链锐减应该如何解决?
  • 1我是一个极其讨厌AV和看AV的人...
  • 2一群色狼对着一个女的狂射 有图...
  • 3一个20岁小伙给未来儿子的信
  • 4把手伸进内衣里……
  • 5我在网吧里把一个mm搞疯了
  • 1Linux下如何同时启动多个Tomca...
  • 2让虚拟主机免受FSO威胁
  • 3如何设定一个安全的log服务器
  • 4Linux计划任务Crontab命令用法...
  • 5shell经典实例分享
  • 赞助商广告

    图片文章导读