Como Enviar Imagem pro banco de dados

PostgreSQL

VB

VB.NET

06/11/2022

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

Curtidas 0

Respostas

Lukas Moreira

Lukas Moreira

06/11/2022

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()
GOSTEI 0
POSTAR