access中field对象的标题属性--

《access中field对象的标题属性--》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、ACCESS中Field对象的标题属性>>　　ACCESS数据库中Field对象的caption属性（也就是标题）是用来设置数据字段的标题，在正常的数据库设计中为了保持维护的便利性，许多开发者都将字段名与标题做了分别设置，标题往往比字段名更友好，更能说明字段的用途。本篇从另一个角度来说明如何用ＶＢＡ读写该属性。　　Field对象的CAPTION属性并不是ADO原生对象，而是可由ADO访问的ACCESS属性，在帮助文档中介绍了两种访问这个属性的方法，一种利用ADO，一种利用DAO，由于在ACCESS2003及以前的

2、版本中Field对象并不是ACCESSObject对象，因而也就没有AccessObjectProperties属性，所以我们也就不能在ADO中去解决这个问题，现在用另一种方式来解决DAO的代码。SubSetProperty(dbsTempAsDAO.Field,strNameAsString,_　booTempAsString)　DimprpNeerrLoopAsError　'Attempttosetthespecifiedproperty.　OnErrorGoToErr_Property　dbsTem

3、p.Properties(strName)=booTemp　OnErrorGoTo0　ExitSubErr_Property:　'Error3270meansthatthepropertyber=3270Then　　　'Createproperty,setitsvalue,andappendittothe　　　'Propertiescollection.　　　SetprpNep.CreateProperty(strName,_　　　　dbText,booTemp)　　　dbsTemp.Pr

4、operties.AppendprpNeeNext　Else　　　'Ifdifferenterrorhasoccurred,displaymessage.　　　ForEacherrLoopInDBEngine.Errors　　　　MsgBoxErrornumber:errLoop.NumbervbCr_　　　　　　errLoop.Description　　　NexterrLoop　　　End　EndIfEndSubSubDisplayClumCaption(ByValtbnameAsString,ByVa

5、lfldIndexAsInteger)DimdsetAsDAO.TableDef)//*****必须使用TableDef对象DimiAsIntegerDimtmpPropAsDAO.Property　//强制使用DAO类型DimfldAsDAO.Field　　//强制使用DAO类型DimtmpTxtAsString'OnErrorResumeNextDimmsgAsStringDimcdbAsDAO.Database//*****强制使用DAO类型Setcdb=CurrentDb//****关键，确定对当

6、前数据库的静态引用Setdset=cdb.TableDefs(tbname)//*****必须使用TableDef对象ForEachfldIndset.Fields　　tmpTxt=fld.Name　　SetPropertyfld,Caption,tmpTxt　　msg=msg+fld.Properties(Caption)　　msg=msg+Chr(10)+Chr(13)NextfldMsgBoxmsgEndSub　　在以上部分的代码中有两个SUB，一个是SetProperty，用来判断一个字段是否有指定的属性

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