程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Access數據庫 >> 關於Access數據庫 >> ACCESS數據庫中Field對象的caption屬性讀寫

ACCESS數據庫中Field對象的caption屬性讀寫

編輯:關於Access數據庫

本文章說明如何用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中游蕩

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved