|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
”由于MySQL已经是一个运行了众多知名Web2.0网站的数据,包括Craigslist、Digg、Wikipedia和Google等,或许我们可以说每一个Web2.0公司实质上是一个使用MySQL数据库的公司。ACCESS数据库中Field工具的caption属性(也就是题目)是用来设置数据字段的题目,在一般的数据库计划中为了坚持保护的便当性,很多开辟者都将字段名与题目做了分离设置,题目常常比字段名更友爱,更能申明字段的用处。本篇从另外一个角度来讲明怎样用VBA读写该属性。
Field工具的CAPTION属性并非ADO原生工具,而是“可由ADO会见的ACCESS属性”,在匡助文档中先容了两种会见这个属性的办法,一种使用ADO,一种使用DAO,因为在ACCESS2003及之前的版本中Field工具并非ACCESSObject工具,因此也就没有AccessObjectProperties属性,以是我们也就不克不及在ADO中往办理这个成绩,如今用另外一种体例来办理DAO的代码。[img=1style=,1src=]http://www.ckuyun.com/[/img]
以下为援用的内容:
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工具
DimiAsInteger
DimtmpPropAsDAO.Property//强迫利用DAO范例
DimfldAsDAO.Field//强迫利用DAO范例
DimtmpTxtAsString
OnErrorResumeNext
DimmsgAsString
DimcdbAsDAO.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
MsgBoxmsg
EndSub
在以上部分的代码中有两个SUB,一个是SetProperty,用来判别一个字段是不是有指定的属性,假如没有设置,就将响应的数值赋给该属性。另外一个是DisplayClumCaption,这是对指定表中的字段按字段名设置其CAPTION属性的演示代码。假如有必要,人人能够对SetProperty举行修正,使他酿成一个只读的函数,用来列举指定表中每一个字段的CAPTION属性。DisplayClumCaption代码中,打“星号”的中央是要重点注重的,否则大概会在MSDN中多走弯路。
当然,或许这并不是我们拒绝MySQL的一个有说服力的MySQL学习教程,但是对于一些比较守旧的IT经理来说,在为一些关键业务选择平台的时候,平台的成熟性却是必须要考虑的一个因素,在这一点上,MySQL无疑毫无优势。 |
|