none
Fotos banco de dados Mysql dando erro RRS feed

  • Pergunta

  • 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;

    domingo, 5 de julho de 2015 13:53

Respostas

  • Boa tarde,

    Por falta de retorno do usuário, esta thread será encerrada.

    Caso seja necessário, por gentileza, abra uma thread nova.

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Marcado como Resposta Marcos SJ quinta-feira, 23 de julho de 2015 17:11
    quinta-feira, 23 de julho de 2015 17:11

Todas as Respostas

  • Bom dia Mateus,

    Tudo bem?

    Poderia copiar aqui o código do erro?

    Atenciosamente

    Marcos Robertto


    Link
    • Editado Mr. Morello segunda-feira, 6 de julho de 2015 13:26
    segunda-feira, 6 de julho de 2015 13:25
  • boa noite, e sim Tudo com vc ?

    a mensagem q dá é de "memoria insuficiente" e quando vou ver a imagem criada está com 1 kb. 

    terça-feira, 7 de julho de 2015 05:23
  • Olá Mateus,

    Poderia por gentileza informar mais detalhes sobre este erro, como por exemplo o código do erro e a mensagem completa emitida pelo sistema no momento em que o erro é gerado?

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 17 de julho de 2015 14:29
  • Boa tarde,

    Por falta de retorno do usuário, esta thread será encerrada.

    Caso seja necessário, por gentileza, abra uma thread nova.

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Marcado como Resposta Marcos SJ quinta-feira, 23 de julho de 2015 17:11
    quinta-feira, 23 de julho de 2015 17:11