急！！VB中怎样实现显示Access中OLE类型的图片文件

Question

谢谢！

Answer 1

Public Sub ShowPic()
    On Error Resume Next
    Open "pictemp" For Binary Access Write As lngDataFile
        lngLengh = rsImage!picImage.ActualSize
        intChunks = lngLengh \ ChunkSize
        intFragment = lngLengh Mod ChunkSize
        ReDim Chunk(intFragment)
        Chunk() = rsImage!picImage.GetChunk(intFragment)
        Put lngDataFile, , Chunk()
        For I = 1 To intChunks
           ReDim Buffer(ChunkSize)
           Chunk() = rsImage!picImage.GetChunk(ChunkSize)
          
           Put lngDataFile, , Chunk()
        Next I
    Close lngDataFile
    FileName = "pictemp"
    Picture1.Picture = LoadPicture(FileName)
End Sub

Answer 2

http://expert.csdn.net/Expert/topic/1789/1789659.xml?temp=.7613184