用二进制存储。
用get函数获取图片的二进制信息并保存。
用ADODB.Stream对象从数据库读取数据并保存为图片文件。并在image控件加载显示。
追问不好意思,还是个新手,可以在具体点么,主要是不知道该怎样编代码
追答Sub ChangePictureData(PictureByteData() As Byte, PicturePath As String)
'使用方法:在调用此过程前,需提前定义好存放二进制数据的byte数组。
Dim FileLength As Long '定义字节长度
Dim SourceFile As Long '定义只读文件号
SourceFile = FreeFile()
Open Trim(PicturePath) For Binary Access Read As SourceFile
FileLength = LOF(SourceFile)
If FileLength = 0 Then
Close SourceFile
Else
ReDim PictureByteData(FileLength) '重新定义数据块的大小
Get SourceFile, , PictureByteData() '读到内存块中
Close SourceFile '关闭源文件
End If
End Sub
Sub ReadPictureData(RS As ADODB.Recordset, ColName As String, PicturePath As String, PictureName As String)
'说明:从数据库读取图片二进制数据、转换成图片文件并存储;返回存储路径
Dim Stm As ADODB.Stream
Set Stm = New ADODB.Stream
Stm.Type = adTypeBinary
Stm.Open
Stm.Write RS.Fields(ColName).Value
Stm.SaveToFile PicturePath & "\" & PictureName & ".jpg", adSaveCreateOverWrite
Stm.Close
Set Stm = Nothing
End Sub
我自己的模块,你要自己改下才方便你自己用。
追问嗯,这是在Visual Studio环境下的?
追答不是的,VB6环境的。