Public Function Load_Image_Text(xh As String)
'---------------从这开始是读取出图片---------------
Dim adoCnn As ADODB.Connection
Dim rstOra As ADODB.Recordset
Dim intI As Integer
Set adoCnn = New ADODB.Connection
Set rstOra = New ADODB.Recordset
adoCnn.ConnectionString = "Provider=OraOLEDB.Oracle;User ID=uid;password=upwd;Data Source=ora;"
adoCnn.CursorLocation = adUseClient
adoCnn.Open
rstOra.CursorLocation = adUseClient
rstOra.ActiveConnection = adoCnn
rstOra.Open "SELECT name FROM zl_bmbk WHERE xh = '" & xh & "' order by wfxx.rowid "
Set Image1.Picture = PictureFromByteStream(rstOra.Fields("zp").Value)
'---------------从这节结束是读取出图片---------------
'---------------从这开始是往本地文件生成图片---------------
Dim pic() As Byte
ReDim pic(rstOra.Fields("zp").ActualSize) '返回2进制图片的字节
pic = rstOra.Fields("zp").Value
Open "D:\temp.jpg" For Binary As #1
Put #1, , pic
Close #1
'---------------从这结束是往本地文件生成图片---------------
If Not rstOra.EOF Then
rstOra.Fields("name") '违法时间
End If
rstOra.Close '关闭记录集对象
Set rstOra = Nothing '释放记录集资源
End Function
黑色头发:http://heisetoufa.iteye.com/