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