在网上看到了不少介绍 VB 如何在 SQL SERVER 中存取图片数据的文章。

经自己实现后，最终把心得拿出来和大家分享。

 

经 GOOGLE 搜索，网上的对数据库图片进行存储的文章，绝大部分是来自一篇。都是采用 ADO Stream 方法使用 field 对象的 AppendChunk 和 GetChunk 方法将大容量的二进制数组通过 Update 存储到数据库中。

 

Dim Conn as ADODB.Connection     ' 声明 Connection 对象

Dim Rs as ADODB.RecordSet    ' 声明 RecordSet 对象

CONST BLOCKSIZE=4096    ' 定义缓冲区块大小

 

Set Conn = New ADODB.Connection

Conn.ConnectionString = " DATA SOURCE = PUBS "    'ODBS 数据源名称为 PUBS

Conn.Open

Set Rs = New ADODB.RecordSet

Rs.Open "test", Conn, adOpenKeyset, adLockOptimistic    ' 数据库表为 "test"

 

Dim Data() as Byte     ' 声明字节型数组，存放数据库图片信息

Dim FileLength as Integer    ' 文件长度变量

Dim BlockNum as Integer     ' 存放缓冲区块的个数

Dim DataLeft as Integer      ' 存放取整块后的遗留信息

 

Open "C:\TEST.BMP" for BINARY as #1    ' 假设图片文件为 C:\TEST.BMP

Dim i as Integer

FileLength = LOF(1)

BlockNum = FileLength \ BLOCKSIZE      ' 整取块大小，得缓冲区块数

DataLeft = FileLength Mod BLOCKSIZE     ' 整块取后的遗留

ReDim Data(BLOCKSIZE)    ' 重新定义缓冲区块大小为 BLOCKSIZE

For i=1 to BlockNum

       Get #1,,Data()

       Rs(0).AppenChunk Data()    ' 将 Data() 复制至 Rs(0) 字段，假设 test 表中的 image 为第一字段

Next i

ReDim Data(DataLeft)    ' 重新定义块大小取得遗留信息

Get #1,,Data()

Rs(0).AppendChunk Data()     ' 此时图片信息已全部拷贝至当前记录 Rs(0) 字段

Close #1

...

Rs.UpDate

 

具体的存储方法如上所述。

 

下面将简单的介绍取出信息的方法：

    介绍说，将图片二进制存储信息用 GetChunk 方法取出，将其存储为临时文件即可。

REM   设 Rs 为打开的数据库表对应的 RecordSet 对象，其中的 image 对象仍然为第一字段

REM   接着上面的思路

 

Dim Data() as Byte     ' 声明字节型数组，存放数据库图片信息

Dim FileLength as Integer    ' 文件长度变量

Dim BlockNum as Integer     ' 存放缓冲区块的个数

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 方法有一个参数为 Size

Next i

Put #1,,Data()

ReDim Data(DataLeft)
Data() = Rs(0).GetChunk(DataLeft)

Put #1,,Data()

Close #1

 

关于存取的内容全部于上面已经列出，组织的方法还请各位网友自行去组织一下。

如果有什么缺乏说明或是不正确的地方，还请各位能够指出。

 

对于此问题的实现，本人还有一个设想，打算利用 SQL SERVER 的服务器端来实现存储过程，使得客户端的存取数据库图片信息更加方便。

具体的实现可能还得努力等看书之后，期待中 ......


后记：
在具体存储过程中，遇到了一个关于Rs的属性长度的问题，原先采用的是Len(Rs(0))[Rs(0)为image对象]，但测试时总是缺少一半的字符长度，后来查明对于Byte型数组进行Len()求值时，只会取到一半的数值。如：
Dim a(4096) as Byte
Msgbox Len(a())
结果是：2048

原因分析：可能跟VB中Len函数的ANSI或是UniCODE有关。但是了准确的原因还没有查出，因为时间关系，暂时还不能去做，到时查出后再附上。