该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
补充:这个例了中,读取图片用的是ADO控件,如果是ADO对象,就需要好多代码了,发网友问就再补充一下:
从数据库中读取图片:
该函数从二进制中读取图片文件
Private Sub SaveToFile(ByRef Fld As ADODB.Field, DiskFile As String)
'定义数据块数组
Dim byteData() As Byte
'定义数据块个数
Dim NumBlocks As Long
Dim FieldLength As Long
'定义剩余字节长度
Dim LeftOver As Long
Dim DesFile As Long
Dim i As Long
'取得字段中数据实际长度
FieldLength = Fld.ActualSize
DesFile = FreeFile
'打开二进制文件
Open DiskFile For Binary Access Write As DesFile
'得到数据块的个数
NumBlocks = FieldLength \ BLOCKSIZE
'得到剩余字节数
LeftOver = FieldLength Mod BLOCKSIZE
ReDim byteData(BLOCKSIZE)
For i = 1 To NumBlocks
'用GetChunck方法将FLD中二进制数据读出
byteData() = Fld.GetChunk(BLOCKSIZE)
Put DesFile, , byteData()
DoEvents
Next i
'将剩余数据写入FLD
ReDim byteData(LeftOver)
byteData() = Fld.GetChunk(LeftOver)
Put DesFile, , byteData()
Close DesFile
End Sub
然后:Picture2.Picture = LoadPicture(DiskFile)
该方法能读取bmp图像,其它的没试
参考实例:
http://www.vbzy.com/Software.asp?id=10