none
Exibir imagem salva no banco de dados em PictureBox Visual Basic 2008 RRS feed

  • Discussão Geral

  • Olá! estou começando em visual basic agora e gostaria de saber como posso exibir uma imagem que esta salva no Banco de Dados em uma Picture Box

    meu codigo dos botoes para abrir e gravar a imagem no banco

    Private Sub B_Abrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Abrir.Click

            OpenFileDialog1.ShowDialog()
            TextBox1.Text = OpenFileDialog1.FileName

        End Sub

        Private Sub B_Gravar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Gravar.Click
            Dim arqIma As FileStream
            Dim rImag As StreamReader
            If Len(TextBox1.Text) <> 0 Then
                arqIma = New FileStream(TextBox1.Text, FileMode.Open, FileAccess.Read, FileShare.Read)
                rImag = New StreamReader(arqIma)
            Else
                MsgBox("Informe um nome para a Imagem", MsgBoxStyle.Critical, "Erro")
                Exit Sub
            End If
            strcon = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\PROGRANS\imagem\imagem\Database1.mdf;Integrated Security=True;User Instance=True"
            sql = "INSERT INTO Table1 (imagem) VALUES (@imagem)"
            Dim conexao As New SqlClient.SqlConnection(strcon)
            Dim comando As New SqlClient.SqlCommand(sql, conexao)

            Try
                Dim arqByteArray(arqIma.Length - 1) As Byte
                arqIma.Read(arqByteArray, 0, arqIma.Length)
                comando.Parameters.Add("@imagem", SqlDbType.Binary, arqIma.Length).Value = arqByteArray
                conexao.Open()
                comando.ExecuteNonQuery()
                conexao.Close()
                MsgBox("Imagem Incluida com Sucesso", MsgBoxStyle.Information, "OK")
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "ERRO")
            End Try
            TextBox1.Text = ""
        End Sub

    sexta-feira, 30 de novembro de 2012 03:38