Como Enviar Imagem pro banco de dados

06/11/2022

0

Alguem Tem uma ideia de Como faço pra enviar uma imagem pra um banco de dados postgree numa tabela que tem um campo Imagem do tipo "bytea" so que programando em visual basic?
ja tentei de diversas formas, mas nao consigo nem salvar ela no banco
Lukas Moreira

Lukas Moreira

Responder

Posts

07/11/2022

Lukas Moreira

Achei uma solução :D

Dim conn As New Npgsql.NpgsqlConnection
Dim cadastro As New Npgsql.NpgsqlCommand


conn.ConnectionString = "Seu banco de dados"
conn.Open()


cadastro.Connection = conn
cadastro.CommandText = ("INSERT INTO Produtos (Nome,Descricao,Valor,Peso,Quantidade,Imagem) values (@Nome,@Descricao,@Valor,@Peso,@Quantidade,@Imagem)")


cadastro.Parameters.Add("@Nome", NpgsqlTypes.NpgsqlDbType.Varchar).Value = txbNomPro.Text
cadastro.Parameters.Add("@Descricao", NpgsqlTypes.NpgsqlDbType.Varchar).Value = txbDesPro.Text
cadastro.Parameters.Add("@Valor", NpgsqlTypes.NpgsqlDbType.Varchar).Value = txbVal.Text
cadastro.Parameters.Add("@Peso", NpgsqlTypes.NpgsqlDbType.Varchar).Value = txbPeso.Text
cadastro.Parameters.Add("@Quantidade", NpgsqlTypes.NpgsqlDbType.Varchar).Value = txbQua.Text
Dim memstr As New MemoryStream
PictureBox1.Image.Save(memstr, PictureBox1.Image.RawFormat)
cadastro.Parameters.Add("@Imagem", NpgsqlTypes.NpgsqlDbType.Bytea).Value = memstr.ToArray
cadastro.ExecuteNonQuery()
MsgBox("Cadastrado Realizado Com Sucesso", vbInformation, "ATENÇÃO")
MessageBox.Show("image inserted")

conn.Close()
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar