Ir para conteúdo
Fórum Script Brasil
  • 0

Erro ao carregar dados pelo datagrideview


TobiasFranca

Pergunta

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 para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

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

Editado por TobiasFranca
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...