Jump to content
Fórum Script Brasil
  • 0

Erro ao carregar dados pelo datagrideview


TobiasFranca
 Share

Question

Boa noite!!

Pessoal estou desenvolvendo uma aplicação no visual studio 2015 community e estou aprendendo os comandos nos videos do youtube, porém fiz um comando para carregar as caixas de texto de um formulário quando o usuário seleciona um registro no datagrideview e clica no botão "consultar", fiz como exemplo de um vídeo, "segue link: https://www.youtube.com/watch?v=s2Gb9pOUNU8", porém não funciona, quando clica no botão consultar aparece o seguinte erro: "Data type mismatch in criteria expression." e no visual studio fica marcado a linha 180 e uma janela conforme imagem em anexo. Grato pela ajuda.

Private Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
        Dim dr As OleDbDataReader = Nothing
        Using con As OleDbConnection = GetConnection()
            Try
                con.Open()
                Dim sql As String = "SELECT codigo, fantasia, razao, endereco, bairro, cidade, uf, cep, cnpj, telefone, email, logomarca FROM filiais WHERE codigo=" & DataGridView1.CurrentRow().Cells(0).Value
                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                dr = cmd.ExecuteReader(CommandBehavior.SingleRow)
                If dr.HasRows Then
                    dr.Read()
                    txtCodigo.Text = dr.Item("codigo")
                    txtFantasia.Text = dr.Item("fantasia")
                    txtRazao.Text = dr.Item("razao")
                    txtEndereco.Text = dr.Item("endereco")
                    txtBairro.Text = dr.Item("bairro")
                    txtCidade.Text = dr.Item("cidade")
                    txtUF.Text = dr.Item("uf")
                    txtCEP.Text = dr.Item("cep")
                    txtCNPJ.Text = dr.Item("cnpj")
                    txtTelefone.Text = dr.Item("telefone")
                    txtEmail.Text = dr.Item("email")
                    If txtImagem.Image IsNot Nothing Then
                        txtImagem.Image.Dispose()
                    End If
                    Dim fsImagem As New FileStream("image.jpg", FileMode.Create)
                    Dim blob As Byte() = DirectCast(dr.Item("logomarca"), Byte())
                    fsImagem.Write(blob, 0, blob.Length)
                    fsImagem.Close()
                    fsImagem = Nothing
                    txtImagem.Image = Image.FromFile("image.jpg")
                    txtImagem.Refresh()
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()
                dr.Close()
            End Try
        End Using
    End Sub
End Class

erro.png

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

txtImagem é uma Picture Box, a consulta e a connection string estão corretas(pelo menos fiz igual no vídeo e lá funcionou), não tenho muito conhecimento no assunto, coloquei o break point na linha e não obtive nenhum retorno que pudesse me ajudar com o problema.

Edited by TobiasFranca
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      149.9k
    • Total Posts
      646.8k
×
×
  • Create New...