SALVAR FIGURAS
Oi galera,
estou fazendo um programa e necessito gravar em um banco de dados figuras JPEG, só que ao pedir para salva esa figuras me retorna o seguinte erro:
MySql.Data.MySqlCliente.MySqlException {[Ô]Fatal error encountered during command execution.[Ô]}
Abaixo está o código que utilizo para salvar esta imagens:
Dim Conn As New MySqlConnection(StrServCad01)
Conn.Open()
[ô]
Dim Campos As String
Dim Valores As String
[ô]
Campos = [Ô](Codigo_Empresa, FigFrente_Empresa, FigVerso_Empresa, Status_Empresa, User_Name, User_Date, User_Time, User_Work, User_Node, User_Trav)[Ô]
[ô]
Valores = [Ô](@Codigo_Empresa, @FigFrente_Empresa, @FigVersos_Empresa, @Status_Empresa, @User_Name, @User_Date, @User_Time, @User_Work, @User_Node, @User_Trav)[Ô]
Dim cSQL As String = [Ô]INSERT INTO tab_carteira[Ô] & Campos & [Ô] VALUES [Ô] & Valores
Dim Cmd As New MySqlCommand(cSQL, Conn)
Cmd.Parameters.AddWithValue([Ô]@Codigo_Empresa[Ô], Me.Txt_EmpCod.Text)
Cmd.Parameters.AddWithValue([Ô]@FigFrente_Empresa[Ô], Me.PictureBox1.Image)
Cmd.Parameters.AddWithValue([Ô]@FigVerso_Empresa[Ô], Me.PictureBox2.Image)
Cmd.Parameters.AddWithValue([Ô]@Status_Empresa[Ô], [Ô]V[Ô])
Cmd.Parameters.AddWithValue([Ô]@User_Name[Ô], NewUsuario)
Cmd.Parameters.AddWithValue([Ô]@User_Date[Ô], Date.Now)
Cmd.Parameters.AddWithValue([Ô]@User_Time[Ô], TimeString)
Cmd.Parameters.AddWithValue([Ô]@User_Work[Ô], [Ô]INCLUSÃO[Ô])
Cmd.Parameters.AddWithValue([Ô]@User_Node[Ô], [Ô]V[Ô])
Cmd.Parameters.AddWithValue([Ô]@User_Trav[Ô], NewUsuario)
Cmd.ExecuteNonQuery()
Conn.Close()
O erro se dá nesta linha Cmd.ExecuteNonQuery().
Estas variáveis FigFrente_Empresa e FigVerso_Empresa são do tipo BLOB.
Se alguém poder me ajudar a retirar este erro, ficarei grato.
Obrigado.
estou fazendo um programa e necessito gravar em um banco de dados figuras JPEG, só que ao pedir para salva esa figuras me retorna o seguinte erro:
MySql.Data.MySqlCliente.MySqlException {[Ô]Fatal error encountered during command execution.[Ô]}
Abaixo está o código que utilizo para salvar esta imagens:
Dim Conn As New MySqlConnection(StrServCad01)
Conn.Open()
[ô]
Dim Campos As String
Dim Valores As String
[ô]
Campos = [Ô](Codigo_Empresa, FigFrente_Empresa, FigVerso_Empresa, Status_Empresa, User_Name, User_Date, User_Time, User_Work, User_Node, User_Trav)[Ô]
[ô]
Valores = [Ô](@Codigo_Empresa, @FigFrente_Empresa, @FigVersos_Empresa, @Status_Empresa, @User_Name, @User_Date, @User_Time, @User_Work, @User_Node, @User_Trav)[Ô]
Dim cSQL As String = [Ô]INSERT INTO tab_carteira[Ô] & Campos & [Ô] VALUES [Ô] & Valores
Dim Cmd As New MySqlCommand(cSQL, Conn)
Cmd.Parameters.AddWithValue([Ô]@Codigo_Empresa[Ô], Me.Txt_EmpCod.Text)
Cmd.Parameters.AddWithValue([Ô]@FigFrente_Empresa[Ô], Me.PictureBox1.Image)
Cmd.Parameters.AddWithValue([Ô]@FigVerso_Empresa[Ô], Me.PictureBox2.Image)
Cmd.Parameters.AddWithValue([Ô]@Status_Empresa[Ô], [Ô]V[Ô])
Cmd.Parameters.AddWithValue([Ô]@User_Name[Ô], NewUsuario)
Cmd.Parameters.AddWithValue([Ô]@User_Date[Ô], Date.Now)
Cmd.Parameters.AddWithValue([Ô]@User_Time[Ô], TimeString)
Cmd.Parameters.AddWithValue([Ô]@User_Work[Ô], [Ô]INCLUSÃO[Ô])
Cmd.Parameters.AddWithValue([Ô]@User_Node[Ô], [Ô]V[Ô])
Cmd.Parameters.AddWithValue([Ô]@User_Trav[Ô], NewUsuario)
Cmd.ExecuteNonQuery()
Conn.Close()
O erro se dá nesta linha Cmd.ExecuteNonQuery().
Estas variáveis FigFrente_Empresa e FigVerso_Empresa são do tipo BLOB.
Se alguém poder me ajudar a retirar este erro, ficarei grato.
Obrigado.
Visite,e lá tem mais.
Valeu.
http://www.macoratti.net/11/05/vbn_rsi1.htm
Valeu.
http://www.macoratti.net/11/05/vbn_rsi1.htm
Omar2011 - este exemplo é para que usa bando de dados do acess.
Ai maluco conseguiu.
é praticamente a mesma coisa do link passado, você não pode passar um objeto Image, você tem que ler o arquivo da imagem para um array de bytes e passar o array de bytes como valor do parâmetro
Tópico encerrado , respostas não são mais permitidas