日韩高清在线免费不卡性生活毛片,亚洲av综合第一页,亚洲美女被操,一级无遮挡理论片

綠色資源網(wǎng):您身邊最放心的安全下載站! 最新軟件|熱門(mén)排行|軟件分類(lèi)|軟件專(zhuān)題|論壇轉(zhuǎn)帖|廠商大全

綠色資源網(wǎng)

技術(shù)教程
您的位置:首頁(yè)數(shù)據(jù)庫(kù)類(lèi)Access → ACCESS數(shù)據(jù)庫(kù)中Field對(duì)象的caption屬性讀寫(xiě)

ACCESS數(shù)據(jù)庫(kù)中Field對(duì)象的caption屬性讀寫(xiě)

我要評(píng)論 2009/06/07 11:48:10 來(lái)源:綠色資源網(wǎng) 編輯:佚名 [ ] 評(píng)論:0 點(diǎn)擊:1312次

本文章說(shuō)明如何用VBA讀寫(xiě)該屬性。 可惜Field對(duì)象的CAPTION屬性并不是ADO原生對(duì)象,而是“可由ADO訪問(wèn)的ACCESS屬性”,在幫助文檔中介紹了兩種訪問(wèn)這個(gè)屬性的方法,一種利用ADO,一種利用DAO,在這里我直接說(shuō)出結(jié)果,由于在ACCESS2003及以前的版本中Field對(duì)象并不是ACCESSObject對(duì)象,因而也就沒(méi)有AccessObjectProperties屬性,所以我們也就別想在ADO中去解決這個(gè)問(wèn)題吧,現(xiàn)在給出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對(duì)象

DimiAsIntegerDimtmpPropAsDAO.Property //強(qiáng)制使用DAO類(lèi)型

DimfldAsDAO.Field //強(qiáng)制使用DAO類(lèi)型DimtmpTxtAsString'OnErrorResumeNext

DimmsgAsStringDimcdbAsDAO.Database //*****強(qiáng)制使用DAO類(lèi)型

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è)字段是否有指定的屬性,如果沒(méi)有設(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中游蕩。

關(guān)鍵詞:ACCESS,數(shù)據(jù)庫(kù)

閱讀本文后您有什么感想? 已有 人給出評(píng)價(jià)!

  • 1 歡迎喜歡
  • 1 白癡
  • 1 拜托
  • 1 哇
  • 1 加油
  • 1 鄙視