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

数据库
随着社会的发展进步,ACCESS数据库也渐渐走进了人们的生活,如今数据库已经成为必不可少的,本文中将为大家主要介绍数据库中的文件对象caption属性读写。

大家都知道,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中游荡。

【编辑推荐】

  1. Access数据库技巧汇集
  2. 两种方法完成Access数据库转Excel工作簿
  3. 计算机等级考试二级ACCESS数据库基本使用方法

 

责任编辑:迎迎 来源: IT专家网论坛
相关推荐

2011-05-13 13:38:49

数据库对象

2011-03-22 16:31:35

Access数据库

2010-09-30 08:27:48

2011-08-24 13:49:45

Access数据库转化

2011-03-07 17:35:09

JavaACCESS数据库

2011-04-06 17:35:17

Access数据库空记录

2011-04-08 10:43:08

mysql数据access数据库

2011-04-01 12:58:46

ASPACCESS数据库

2012-06-08 09:30:51

Access

2010-06-02 16:14:14

导入MySQL

2010-08-26 10:48:51

CSScaption-sid

2019-07-05 11:20:31

PythonMySQL数据库

2011-04-08 09:07:25

Access数据库Oracle库

2009-06-10 22:11:28

javascript连

2011-08-25 17:15:04

2011-04-11 15:19:53

Access 2007数据库附件

2011-03-29 16:11:43

2011-08-10 15:38:12

ConstraintOracle

2010-05-17 10:11:11

导入Mysql

2009-12-21 15:07:41

ADO Access数
点赞
收藏

51CTO技术栈公众号