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

ACCESS中Field對象的標題屬性

編輯:關於Access數據庫

Access數據庫中FIEld對象的caption屬性(也就是標題)是用來設置數據字段的標題,在正常的數據庫設計中為了保持維護的便利性,許多開發者都將字段名與標題做了分別設置,標題往往比字段名更友好,更能說明字段的用途。本篇從另一個角度來說明如何用VBA讀寫該屬性。

Field對象的CAPTION屬性並不是ADO原生對象,而是“可由ADO訪問的ACCESS屬性”,在幫助文檔中介紹了兩種訪問這個屬性的方法,一種利用ADO,一種利用DAO,由於在ACCESS2003及以前的版本中FIEld對象並不是ACCESSObject對象,因而也就沒有AccessObjectPropertIEs 屬性,所以我們也就不能在ADO中去解決這個問題,現在用另一種方式來解決DAO的代碼。


以下為引用的內容:
Sub SetProperty(dbsTemp As DAO.FIEld, strName As String, _
  booTemp As String)
  Dim prpNew As DAO.Property
  Dim errLoop As Error
  ' Attempt to set the specifIEd property.
  On Error GoTo Err_Property
  dbsTemp.PropertIEs(strName) = booTemp
  On Error GoTo 0
  Exit Sub
Err_Property:
  ' Error 3270 means that the property was not found.
  If DBEngine.Errors(0).Number = 3270 Then
   ' Create property, set its value, and append it to the
   ' PropertIEs collection.
   Set prpNew = dbsTemp.CreateProperty(strName, _
     dbText, booTemp)
   dbsTemp.PropertIEs.Append prpNew
   Resume Next
  Else
   ' If different error has occurred, display message.
   For Each errLoop In DBEngine.Errors
     MsgBox "Error number: " & errLoop.Number & vbCr & _
      errLoop.Description
   Next errLoop
   End
  End If
End Sub
Sub DisplayClumCaption(ByVal tbname As String,
ByVal fldIndex As Integer)
Dim dset As DAO.TableDef) //*****必須使用TableDef對象
Dim i As Integer
Dim tmpProp As DAO.Property  //強制使用DAO類型
Dim fld As DAO.FIEld  //強制使用DAO類型
Dim tmpTxt As String
'On Error Resume Next
Dim msg As String
Dim cdb As DAO.Database //*****強制使用DAO類型
Set cdb = CurrentDb //****關鍵,確定對當前數據庫的靜態引用
Set dset = cdb.TableDefs(tbname)//*****必須使用TableDef對象
For Each fld In dset.FIElds
  tmpTxt = fld.Name
  SetProperty fld, "Caption", tmpTxt
  msg = msg + fld.PropertIEs("Caption")
  msg = msg + Chr(10) + Chr(13)
Next fld
MsgBox msg
End Sub 


在以上部分的代碼中有兩個SUB,一個是SetProperty ,用來判斷一個字段是否有指定的屬性,如果沒有設置,就將相應的數值賦給該屬性。另一個是DisplayClumCaption,這是對指定表中的字段按字段名設置其CAPTION屬性的演示代碼。如果有需要,大家可以對SetProperty進行修改,使他變成一個只讀的函數,用來枚舉指定表中每個字段的CAPTION屬性。DisplayClumCaption代碼中,打“星號”的地方是要重點注意的,不然可能會在MSDN中多走彎路。

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