Como Enviar Imagem pro banco de dados
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
ja tentei de diversas formas, mas nao consigo nem salvar ela no banco
Lukas Moreira
Curtidas 0
Respostas
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()
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