日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

ACCESS中Field對象的標(biāo)題屬性_Access數(shù)據(jù)庫教程

編輯Tag賺U幣
教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：ACCESS復(fù)合承載性能超越MYSQL
由于眾所周知的原因，ACCESS在大型站點應(yīng)用中都靠不上邊，主要問題就是數(shù)據(jù)量大了以后幾乎無法索引。當(dāng)ACCESS里數(shù)據(jù)過萬后，明顯可以感覺到速度變慢，過2萬條數(shù)據(jù)后，慢的可以跟蝸牛相提并論了。但是由于某人靈光突現(xiàn)，想到了一個解決ACCESS數(shù)據(jù)庫承載問題的

ACCESS數(shù)據(jù)庫中Field對象的caption屬性（也就是標(biāo)題）是用來設(shè)置數(shù)據(jù)字段的標(biāo)題，在正常的數(shù)據(jù)庫設(shè)計中為了保持維護的便利性，許多開發(fā)者都將字段名與標(biāo)題做了分別設(shè)置，標(biāo)題往往比字段名更友好，更能說明字段的用途。本篇從另一個角度來說明如何用ＶＢＡ讀寫該屬性。

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

以下為引用的內(nèi)容：
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 //****關(guān)鍵，確定對當(dāng)前數(shù)據(jù)庫的靜態(tài)引用
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 ，用來判斷一個字段是否有指定的屬性，如果沒有設(shè)置，就將相應(yīng)的數(shù)值賦給該屬性。另一個是DisplayClumCaption，這是對指定表中的字段按字段名設(shè)置其CAPTION屬性的演示代碼。如果有需要，大家可以對SetProperty進行修改，使他變成一個只讀的函數(shù)，用來枚舉指定表中每個字段的CAPTION屬性。DisplayClumCaption代碼中，打“星號”的地方是要重點注意的，不然可能會在MSDN中多走彎路。

分享：向Access數(shù)據(jù)庫上傳且顯示圖片
本文從多個角度來講解如何在Access數(shù)據(jù)庫上如何上傳并且顯示上所上傳圖片。 在動態(tài)網(wǎng)站制做過程中，需要上傳圖片、顯示圖片，上傳的圖片要能夠保存在數(shù)據(jù)庫中，一般小型網(wǎng)站只支持Access數(shù)據(jù)庫，如何上傳圖片，將其保存在數(shù)據(jù)庫中并將其顯示出來，是數(shù)據(jù)庫 A

來源：模板無憂//所屬分類：Access數(shù)據(jù)庫教程/更新時間：2009-05-19
相關(guān)Access數(shù)據(jù)庫教程：