在網(wǎng)上看到了不少介紹
VB
如何在
SQL SERVER
中存取圖片數(shù)據(jù)的文章。
經(jīng)自己實(shí)現(xiàn)后，最終把心得拿出來和大家分享。
?
經(jīng)
GOOGLE
搜索，網(wǎng)上的對數(shù)據(jù)庫圖片進(jìn)行存儲的文章，絕大部分是來自一篇。都是采用
ADO Stream
方法使用
field
對象的
AppendChunk
和
GetChunk
方法將大容量的二進(jìn)制數(shù)組通過
Update
存儲到數(shù)據(jù)庫中。
?
Dim Conn as ADODB.Connection???? '
聲明
Connection
對象
Dim Rs as ADODB.RecordSet??? '
聲明
RecordSet
對象
CONST BLOCKSIZE=4096??? '
定義緩沖區(qū)塊大小
?
Set Conn = New ADODB.Connection
Conn.ConnectionString = " DATA SOURCE = PUBS "??? 'ODBS
數(shù)據(jù)源名稱為
PUBS
Conn.Open
Set Rs = New ADODB.RecordSet
Rs.Open "test", Conn, adOpenKeyset, adLockOptimistic??? '
數(shù)據(jù)庫表為
"test"
?
Dim Data() as Byte???? '
聲明字節(jié)型數(shù)組，存放數(shù)據(jù)庫圖片信息
Dim FileLength as Integer??? '
文件長度變量
Dim BlockNum as Integer???? '
存放緩沖區(qū)塊的個(gè)數(shù)
Dim DataLeft as Integer????? '
存放取整塊后的遺留信息
?
Open "C:\TEST.BMP" for BINARY as #1??? '
假設(shè)圖片文件為
C:\TEST.BMP
Dim i as Integer
FileLength = LOF(1)
BlockNum = FileLength \ BLOCKSIZE????? '
整取塊大小，得緩沖區(qū)塊數(shù)
DataLeft = FileLength Mod BLOCKSIZE???? '
整塊取后的遺留
ReDim Data(BLOCKSIZE)??? '
重新定義緩沖區(qū)塊大小為
BLOCKSIZE
For i=1 to BlockNum
?????? Get #1,,Data()
?????? Rs(0).AppenChunk Data()??? '
將
Data()
復(fù)制至
Rs(0)
字段，假設(shè)
test
表中的
image
為第一字段
Next i
ReDim Data(DataLeft)??? '
重新定義塊大小取得遺留信息
Get #1,,Data()
Rs(0).AppendChunk Data()???? '
此時(shí)圖片信息已全部拷貝至當(dāng)前記錄
Rs(0)
字段
Close #1
...
Rs.UpDate
?
具體的存儲方法如上所述。
?
下面將簡單的介紹取出信息的方法：
???
介紹說，將圖片二進(jìn)制存儲信息用
GetChunk
方法取出，將其存儲為臨時(shí)文件即可。
REM??
設(shè)
Rs
為打開的數(shù)據(jù)庫表對應(yīng)的
RecordSet
對象，其中的
image
對象仍然為第一字段
REM??
接著上面的思路
?
Dim Data() as Byte??? ?'
聲明字節(jié)型數(shù)組，存放數(shù)據(jù)庫圖片信息
Dim FileLength as Integer??? '
文件長度變量
Dim BlockNum as Integer???? '
存放緩沖區(qū)塊的個(gè)數(shù)
Dim DataLeft as Integer????? '
存放取整塊后的遺留信息
Dim i as Integer
ReDim Data(BLOCKSIZE)
Open "C:\TMP.BMP" for BINARY as #1
FileLength = Rs(0).ActualSize
BlockNum = FileLength \ BLOCKSIZE
DataLeft = FileLength Mod BLOCKSIZE
ReDim Data(BLOCKSIZE)
For i = 1 to BlockNum
?????? Data() = Rs(0).GetChunk(BLOCKSIZE)??? 'GetChuk
方法有一個(gè)參數(shù)為
Size
Next i
Put #1,,Data()
ReDim Data(DataLeft)
Data() = Rs(0).GetChunk(DataLeft)
Put #1,,Data()
Close #1
?
關(guān)于存取的內(nèi)容全部于上面已經(jīng)列出，組織的方法還請各位網(wǎng)友自行去組織一下。
如果有什么缺乏說明或是不正確的地方，還請各位能夠指出。
?
對于此問題的實(shí)現(xiàn)，本人還有一個(gè)設(shè)想，打算利用
SQL SERVER
的服務(wù)器端來實(shí)現(xiàn)存儲過程，使得客戶端的存取數(shù)據(jù)庫圖片信息更加方便。
具體的實(shí)現(xiàn)可能還得努力等看書之后，期待中
......
后記：
在具體存儲過程中，遇到了一個(gè)關(guān)于Rs的屬性長度的問題，原先采用的是Len(Rs(0))[Rs(0)為image對象]，但測試時(shí)總是缺少一半的字符長度，后來查明對于Byte型數(shù)組進(jìn)行Len()求值時(shí)，只會取到一半的數(shù)值。如：
Dim?a(4096)?as Byte
Msgbox Len(a())
結(jié)果是：2048
原因分析：可能跟VB中Len函數(shù)的ANSI或是UniCODE有關(guān)。但是了準(zhǔn)確的原因還沒有查出，因?yàn)闀r(shí)間關(guān)系，暫時(shí)還不能去做，到時(shí)查出后再附上。