bom dia, meu Banco de dados tá dando erro de memoria insufuciente na hora que eu carrego uma imagem do banco dados, alguém pode me ajudar ?
Meu código salvar :
Private Sub Salvar2()
Using con As MySqlConnection = conectar()
Try
Dim fs As FileStream
fs = New FileStream(strImagem, FileMode.Open, FileAccess.Read)
Dim picbyte As Byte() = New Byte(fs.Length - 1) {}
fs.Read(picbyte, 0, System.Convert.ToUInt32(fs.Length))
con.Open()
Dim sql As String = "INSERT INTO testeimagem(imagem)VALUES('" + strImagem + "')"
Dim cmd As MySqlCommand = New MySqlCommand(sql, con)
cmd.ExecuteNonQuery()
MsgBox("dEU ceRTO", MsgBoxStyle.Information, "Salvo com Sucesso")
Catch ex As Exception
MsgBox(ex.Message)
Finally
End Try
End Using
End Sub
Meu codigo de ler a imagem :
Private Sub Carregar()
Using con As MySqlConnection = conectar()
Try
con.Open()
Dim sql As String = "SELECT * FROM testeimagem"
Dim cmd As MySqlCommand = New MySqlCommand(sql, con)
Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable
da.Fill(dt)
ComboBox1.DisplayMember = "id"
ComboBox1.DataSource = dt
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Using
End Sub
Private Sub LER2()
Dim dr As MySqlDataReader = Nothing
Using con As MySqlConnection = conectar()
Try
con.Open()
Dim sql As String = "Select id,imagem from testeimagem where id='" & ComboBox1.Text & "'"
Dim cmd As MySqlCommand = New MySqlCommand(sql, con)
dr = cmd.ExecuteReader(CommandBehavior.SingleRow)
If dr.HasRows Then
dr.Read()
TextBox1.Text = dr.Item("id")
Dim fsimagem As New FileStream("image.jpg", FileMode.Create)
Dim blob As Byte() = DirectCast(dr.Item("imagem"), Byte())
fsimagem.Write(blob, 0, blob.Length)
fsimagem.Close()
fsimagem = Nothing
End If
PictureBox2.Image = Image.FromFile("image.jpg")
PictureBox2.Refresh()
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Using
End Sub
meu banco de dados está com o campo imagem , como mediumblob;
