<var id="jbqca"><ol id="jbqca"></ol></var>

    <meter id="jbqca"></meter>
    1. <acronym id="jbqca"></acronym>

      <acronym id="jbqca"><legend id="jbqca"></legend></acronym>
      <meter id="jbqca"></meter>
      <acronym id="jbqca"></acronym>
    2. 綠色資源網:您身邊最放心的安全下載站! 最新軟件|熱門排行|軟件分類|軟件專題|論壇轉帖|廠商大全

      技術教程
      您的位置:首頁數據庫類Access → ACCESS數據庫中Field對象的caption屬性讀寫

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

      我要評論2009/6/7 11:48:10來源:綠色資源網編輯:佚名 [ ] 評論:2

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

      關鍵詞:ACCESS,數據庫

      閱讀本文后您有什么感想? 已有 人給出評價!

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