小弟有一个存图片的问题，请各位大哥帮忙！！

Question

读出：       Dim bit1() As Byte
        On Error GoTo Err1:
        bit1 = r("zp").GetChunk(r("zp").ActualSize)
        '然后将字节数组的内容拼装成文件即可
        Open App.Path & "\temp.jpg" For Binary As #1
        Put 1, 1, bit1
        Close 1
    Image1.Stretch = False
    Image1 = LoadPicture(App.Path & "\temp.jpg")
写入：        Open  图片路径和文件名  For Binary As #1
        ReDim bit(LOF(1)) As Byte
        Get 1, 1, bit
        Close 1
        r.Open "select * from byzl where kh='" & Trim(Txtkh) & "'", Cn, adOpenKeyset, adLockOptimistic
        r("zp").AppendChunk bit
        r.Update
        r.Close 

Answer 1

VARIANT变量不支持图片的，必须用OLE对象。
存到库里，只需合理配置ADO对象的属性，将PIC的DATAROUCE对应就可以了。