vb 保存图片到数据库

最新推荐文章于 2013-07-13 22:33:52 发布

sc02051201

最新推荐文章于 2013-07-13 22:33:52 发布

阅读量716

点赞数

分类专栏： Database VB 文章标签： vb integer access string byte 数据库

本文链接：https://blog.csdn.net/sc02051201/article/details/5182029

版权

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

摘要由CSDN通过智能技术生成

'读数据到二进制字段
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()
   lngOf