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
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