解析ACCESS數據庫中Field對象的caption屬性讀寫_Access數據庫教程
推薦:關于Access 2003開發者擴展工具集的概述許可和分發權限 Access 2003 Developer Extensions隨附的許可協議簡化了解決方案或代碼段的分發過程。這些協議包括免版稅的Access運行時,您可以分發Access解決方案和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 ,用來判定一個字段是否有指定的屬性,假如沒有設置,有就將相應的數值賦給該屬性,這段代碼幾乎完全是照搬MS的幫助文檔。另一個是DisplayClumCaption,這是對指定表中的字段按字段名設置其CAPTION屬性的演示代碼。假如有需要,大家可以對SetProperty進行修改,使他變成一個只讀的函數,用來枚舉指定表中每個字段的CAPTION屬性。DisplayClumCaption代碼中,我打“星號”的地方是要重點注重的,因為我在這里曾走過彎路,浪費了一個下午的時間在MSDN中游蕩
分享:如何防治Access宏病毒本文介紹利用Access的安全特性及良好習慣防治Access宏病毒的技巧。 防病毒通用技巧 保持防病毒軟件隨時更新非常重要。新病毒每天出現,防病毒廠商也通過網絡、BBS等載體不斷推出最新的病毒資料庫和軟件,所以一個重視安全的用戶,應當保證一個合適的頻率不斷
- 相關鏈接:
- 教程說明:
Access數據庫教程-解析ACCESS數據庫中Field對象的caption屬性讀寫
。