[Resolvido] Exibir dados access em um formulario através do datag

[Korma Silser 0]

Ola pessoal.

 

Estou com um problema... :) Eu estou fazendo uma agenda de contatos e quando eu seleciono um contato do meu datagridview as informações do mesmo não aparece no meu formulario.

 

Acontece o seguinte erro: Tipo de dados incompatível na expressão de critério.

 

Private Sub carrCampos()

       Dim conexao As New OleDbConnection
       Dim comando As New OleDbCommand
       Dim leitor As OleDbDataReader

       conexao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=G:\Curso_VB.Net\Projetos\Agenda\Agenda\BD_Agenda.accdb"
       conexao.Open()

       comando.CommandText = "Select * From TB_Ctto Where Cod_Ctto = '" & dgvContato.CurrentRow.Selected & "'"
       comando.CommandType = CommandType.Text

       comando.Connection = conexao
       leitor = comando.ExecuteReader
       leitor.Read()

       txtNome.Text = leitor("Nome")
       txtEmail.Text = leitor("Email")
       mskTelCel.Text = leitor("Tel_Cel")
       mskTelRes.Text = leitor("Tel_Res")
       cbxRefrencia.Text = leitor("Referencia")
       cbxSexo.Text = leitor("Sexo").
       dtpCad.Text = leitor("Dt_Cad")
       dtpNasc.Text = leitor("Dt_Nasc")

       leitor.Close()
       conexao.Close()

   End Sub

 

Desde ja obrigado.

[Korma Silser 0]

A string de comando SQL estava assim:

 

comando.CommandText = "Select * From TB_Ctto Where Cod_Ctto = '" & dgvContato.CurrentRow.Selected & "'"

 

E tinha que estar assim:

 

comando.CommandText = "Select * From TB_Ctto Where Nome = '" & dgvContato.CurrentRow.Cells(0).Value & "'"

 

Como o meu grid não tinha a coluna de codigo do contato acho que era onde dava o erro e tambem troquei a seleção ( currentrow.selected) da linha do grid pela a celula( Cells(0) ).