ADO如何才能把access中的图片字段读出到image控件中?只能用getchunk吗?附源码的一定给分!急!

Question

一般来说可以不用getchunk，直接给Byte()变量赋值即可，然后保存成临时文件，loadpicture()...

Answer 1

Dim sFilesize, c As Long
        Dim Filename As String
        Dim bdata1
        
        sFilesize = Rs("limage").ActualSize
        ReDim bdata(sFilesize) As Byte
        
        bdata1 = Rs("limage").GetChunk(sFilesize)
        If Not IsNull(bdata1) Then
            For c = 0 To sFilesize - 1
                bdata(c) = bdata1(c)
            Next
            
            Filename = App.Path & "\libimage_tmp.gif"
            
            Open Filename For Binary As #1
            Put #1, , bdata
            Close