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
ja tentei de diversas formas, mas nao consigo nem salvar ela no banco
Lukas Moreira
Curtir tópico
+ 0
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()
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
Clique aqui para fazer login e interagir na Comunidade :)