从sql server的image字段中取出来的图片怎样用picturebox显示?

Question

怎样将一个image字段去出来存在一个临时的文件中啊?使用完了之后又该怎样释放呢?可否附上源码啊?各位大虾!

Answer 1

Dim sfilesize As Long
   sfilesize = Adodb.Recordset.Fields(i).ActualSize
ReDim Bdata(sfilesize) As Byte
    bdata1 = Adodb.Recordset.Fields(i).GetChunk(sfilesize)
      If Not IsNull(bdata1) Then
         For c = 0 To sfilesize - 1
           Bdata(c) = bdata1(c)
         Next
    filename = Path & "Temp.gif"--图象文件后缀名
         Open filename For Binary As #1
            Put #1, , Bdata
         Close #1
       End If