繁體中文当前位置: 首页 > 图文教程 > 数据库 > Access > ACCESS数据库中Field对象的caption属性读写
- Access
- 数据库应用程序需注意的问题
- 用Access分析网站实例
- 一个ACCESS数据库数据传递的方法
- 服务器架站应用：打造安全mdb数据库
- Access数据库安全的几个问题
- 以前流行的4种Access数据库安全方式
- 三招设置数据库安全 保障网站安全运营
- 解决用Access数据库建站维护不便的问题
- 十万条Access数据表分页的两个解决方法
- PHP高级技巧：使用PHP模拟HTTP认证
- Access数据库成功导入Oracle库方法
- 使用access数据库时可能用到的数据转换
- 疑难解答：怎样使用Access数据库压缩文件
- 堵住电脑中的Access漏洞 拒绝恶意网站
- 在Access中模拟sql server存储过程翻页
- 如何将文本文件转换为ACCESS数据库
- Access创建一个简单MIS管理系统
- 将mysql数据导入access数据库
- Access数据库用另一种方式管理密码
- Access如何制作复杂报表
Access 中的 ACCESS数据库中Field对象的caption属性读写
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-17 浏览: 57 ::
收藏到网摘: n/a
本文章说明如何用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中游荡。
评论 (0) All
