我该如何从数据库中取数据！

Question

Public Sub show_picture()
Dim REC As Recordset
Dim sSql As String
Dim I As Integer
Set REC = New Recordset
Dim bit1() As Byte
Dim sa As String
sSql = "SELECT * FROM 表 WHERE 关键字 ='" & 关键值 & "'"
   REC.Open sSql, Conn, adOpenStatic, adLockOptimistic, adCmdText
     If REC.EOF Or REC.BOF Then
        Exit Sub
     Else
            image1.Picture = Nothing
            If REC("INFO_PICT").ActualSize > 0 Then
                bit1 = REC.Fields("图片").GetChunk(REC("图片").ActualSize)
                '然后将字节数组的内容拼装成文件即可
                Open "c:\1.bmp" For Binary As #1
              
                Put 1, 1, bit1
                Close 1
                image1.Picture = LoadPicture("c:\1.bmp")  
            End If
    End If
    rec.close
    Set REC = Nothing
Exit Sub
Err:
   MsgBox "读取图片出错!", OKOnly, "系统提示"
End Sub

Answer 1

用向oracle中写图片的逆过程生成图片文件（再loadpicture)或Picture对象或其他

Answer 2

请问lincanwen(海),这样是直接调用图片吗？还是先生成了一个临时文件，而后再调用临时文件的内容？

Answer 3

先生成了一个临时文件，而后再调用临时文件的内容,
image1.Picture = LoadPicture("c:\1.bmp")  后面可以加一句：
kill("c:\1.bmp")  '将临时文件删除！