从ORACLE中获取图片

  '照片如果有
            If Not dr Is Nothing Then dr.Close()
            dr = xclsywcl.drv_photo_drbysfzhm(sfzmhm)
            If dr.Read Then
                Dim buffer() As Byte = CType(dr("zp"), Byte())
                Dim stream As MemoryStream = New MemoryStream(buffer)
                PictureBox1.Image = Image.FromStream(stream)
                stream.Close()
                stream = Nothing
            Else
                PictureBox1.Image = Nothing
            End If