近视眼如何戴骑行眼镜:可以将Access数据库里的图片导出吗

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/05 08:22:56
我的数据库里有不少图片,现在想把它导出来,可以吗?要如何操作?
谢谢!

可以的,只要你是以二进制形式保存的数据,都可以保存出来。
以下是我原来写的VB一段代码,你可以调用:
假设 adoRt 是一个已经打开的记录,其他 fImages 字段中保存的是图片资料,现在要将他们完成保存到D:\Images\ 下,后缀统一使用GIF
intCount = adoRt.RecordCount
For i = 1 To intCount
Call SaveImageToFile(adoRt.Fields("fImages","D:\Images\" & i & ".gif")
adoRt.MoveNext
Next
'// 保存文件
Private Function SaveImageToFile(ByRef adoField As Object, _
ByVal strFileName As String) As Boolean
Dim lngByteSize As Long
Dim lngFileNum As Long
Dim byteImageBuffer() As Byte

On Error Next Next
lngFileNum = FreeFile

'// 以二进制形式打开一个文件
Open strFileName For Binary Access Write As #lngFileNum
'// 取得字段中的内容大小
lngByteSize = adoField.ActualSize
'// 重定义数组,以使其可以保存字段中的内容
ReDim byteImageBuffer(lngByteSize - 1) As Byte
'// 给数组赋值
byteImageBuffer = adoField.GetChunk(lngByteSize)
'// 将内容写入文件
Put #lngFileNum, , byteImageBuffer
Close #lngFileNum

If Err.Number <> 0 Then
Err.Clear
SaveImageToFile = False
Else
SaveImageToFile = True
End If
End Function