建站
咨詢
售后
建站咨詢
新聞中心
大家都知道，Field對(duì)象的CAPTION屬性并不是ADO原生對(duì)象，而是“可由ADO訪問(wèn)的ACCESS屬性”，在幫助文檔中介紹了兩種訪問(wèn)這個(gè)屬性的方法，一種利用ADO，一種利用DAO，在這里我直接說(shuō)出結(jié)果，由于在ACCESS2003及以前的版本中Field對(duì)象并不是ACCESSObject對(duì)象，因而也就沒有AccessObjectProperties屬性，所以我們也就別想在ADO中去解決這個(gè)問(wèn)題吧，現(xiàn)在給出DAO的代碼解決辦法。
我們提供的服務(wù)有：成都做網(wǎng)站、成都網(wǎng)站制作、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、岳陽(yáng)ssl等。為上千家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的岳陽(yáng)網(wǎng)站制作公司
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對(duì)象
DimiAsIntegerDimtmpPropAsDAO.Property //強(qiáng)制使用DAO類型
DimfldAsDAO.Field //強(qiáng)制使用DAO類型DimtmpTxtAsString'OnErrorResumeNext
DimmsgAsStringDimcdbAsDAO.Database //*****強(qiáng)制使用DAO類型
Setcdb=CurrentDb //****關(guān)鍵，確定對(duì)當(dāng)前數(shù)據(jù)庫(kù)的靜態(tài)引用
Setdset=cdb.TableDefs(tbname)//*****必須使用TableDef對(duì)象
ForEachfldIndset.Fields tmpTxt=fld.Name SetPropertyfld,"Caption",tmpTxt msg=msg fld.Properties("Caption")
msg=msg Chr(10) Chr(13) Nextfld MsgBoxmsgEndSub
這里代碼中有兩個(gè)SUB，一個(gè)是SetProperty，用來(lái)判斷一個(gè)字段是否有指定的屬性，如果沒有設(shè)置，有就將相應(yīng)的數(shù)值賦給該屬性，這段代碼幾乎完全是照搬MS的幫助文檔。另一個(gè)是DisplayClumCaption，這是對(duì)指定表中的字段按字段名設(shè)置其CAPTION屬性的演示代碼。如果有需要，大家可以對(duì)SetProperty進(jìn)行修改，使他變成一個(gè)只讀的函數(shù)，用來(lái)枚舉指定表中每個(gè)字段的CAPTION屬性。DisplayClumCaption代碼中，我打“星號(hào)”的地方是要重點(diǎn)注意的，因?yàn)槲以谶@里曾走過(guò)彎路，浪費(fèi)了一個(gè)下午的時(shí)間在MSDN中游蕩。
網(wǎng)頁(yè)標(biāo)題：ACCESS數(shù)據(jù)庫(kù)中Field對(duì)象的caption屬性讀寫
瀏覽地址：http://www.fisionsoft.com.cn/article/cdsgosh.html
