请问如何能打开在sql server数据库中存储的tif文件,并在页面上显示?谢谢!

解决方案 »

  1.   

    给你两个function
    Private Sub ShowImage(ByVal s As String)
            cn = New SqlClient.SqlConnection(connectionstring)
            cn.Open()
            Dim str As String = "SELECT photo FROM Photos WHERE name='" & s & "'"
            Dim cmd As New SqlClient.SqlCommand(str, cn)
            Dim b() As Byte
            b = cmd.ExecuteScalar()
            If (b.Length > 0) Then
                Dim stream As New MemoryStream(b, True)
                stream.Write(b, 0, b.Length)
                DrawToScale(New Bitmap(stream))
                stream.Close()
            End If
            cn.Close()
        End Sub Private Sub DrawToScale(ByVal bmp As Image)
            PictureBox1.Image = New Bitmap(bmp)
        End Sub