Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Caio G Sa Silva

VB.NET Pesquisar Imagens pelo banco de dados mysql no vb.net

Recommended Posts

Boa Noite !

 

Estou com problemas ao pesquisar fotos armazenadas no banco de dados MYSQL no PHPADMIN no picturebox e no datagridview

 

Imports System.IO
Imports System.Data.Odbc
Imports System.Drawing.Imaging

 

Public Class FrmAlunos_Cadastrados


    Private Sub listar()

        filtrar("select * from aluno", "aluno")
        DataGridView1.DataSource = dados
        DataGridView1.DataMember = "aluno"
        olecon.Close()

    End Sub

    Private Sub btnpesquisar_Click(sender As Object, e As EventArgs) Handles btnpesquisar.Click
       
        Dim comando = "select * from aluno where cod_rm =" + txtra.Text

        pesquisar(comando)

        If guarda.Read() Then
            txtra.Text = guarda(1).ToString()
            Dim bytePicData() As Byte
            bytePicData = guarda.Item("foto")
            Dim PicMemStream As New System.IO.MemoryStream(bytePicData)
            PictureBox1.Image = Image.FromStream(PicMemStream)

        Else
            MsgBox("RM não localizado")
            txtra.Clear()
            PictureBox1.Image = Nothing
        End If


        guarda.Close()
        olecon.Close()

    End Sub

    Private Sub btnlistar_Click(sender As Object, e As EventArgs) Handles btnlistar.Click
       
        listar()
        olecon.Close()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnhome.Click
        FrmFuncionários.Show()
        Me.Close()
    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        Dim linha = DataGridView1.CurrentCellAddress.Y
        txtra.Text = DataGridView1(1, linha).Value.ToString()

        Dim comando = "select * from aluno where cod_rm =" + txtra.Text
        pesquisar(comando)

 

        If guarda.Read() Then

            Dim bytePicData() As Byte
            bytePicData = guarda.Item("foto") "o erro ocorre aqui 

erro:  "An unhandled exception of type 'System.OverflowException' occurred in System.Data.dll

Additional information: Operação aritmética resultou em um estouro."

 

            Dim PicMemStream As New System.IO.MemoryStream(bytePicData)
            PictureBox1.Image = Image.FromStream(PicMemStream)
        End If
        olecon.Close()
        guarda.Close()

    End Sub

    

End Class

 

gostaria de ajuda?

 

Obs: o banco de dados está armazenado no php admin atráves do programa vertrigo e da conexão mysql ODBC.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×