Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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.
Carregando comentários...