vb 保存图片到数据库

最新推荐文章于 2021-02-22 06:23:28 发布

原创

最新推荐文章于 2021-02-22 06:23:28 发布 · 830 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #integer #access #string #byte #数据库

这篇博客介绍了如何使用VB与Access数据库交互，实现从数据库读取和保存图片到二进制字段。通过定义`ReadFromBLOB`和`SaveToBLOB`两个子程序，利用ADODB.Field对象的GetChunk和AppendChunk方法，实现了二进制数据的读写操作。

'读数据到二进制字段
Public Sub ReadFromBLOB(filed As ADODB.Field, Filen As String)

Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer
'传送块单位大小
Const ChunkSize As Integer = 16384

Dim MediaTemp As String
Dim lngOffset As Long
Dim lngTotalSize As Long
Dim strChunk As String
Dim MediaID As Long
On Error Resume Next

DataFile = FreeFile

Open Filen For Binary Access Write As DataFile

lngTotalSize = filed.ActualSize
Chunks = lngTotalSize / ChunkSize
Fragment = lngTotalSize Mod ChunkSize

'ReDim Chunk(ChunkSize)
ReDim Chunk(Fragment)

Chunk() = filed.GetChunk(ChunkSize)
Put DataFile, , Chunk()
lngOffset = lngOffset + ChunkSize
Do While lngOffset < lngTotalSize
   Chunk() = filed.GetChunk(ChunkSize)
   Put DataFile, , Chunk()
   lngOffset = lngOffset + ChunkSize
Loop
Close DataFi