Hola!, tengo la siguiente funcion para saber si la cedula ingresada de un usuario nuevo ya esta ingresada en la base de datos:
Código:
Public Function ExisteCI(ByVal inCI As Double) As Boolean
Dim unaC As OleDbConnection = Me.Conectar()
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT Cedula FROM Personal WHERE Cedula=" & inCI, unaC)
Dim unDS As DataSet = New DataSet
adapter.Fill(unDS, "Personal")
unaC.Close()
If unDS.Tables(0).Rows.Count > 0 Then
Return True
Else
Return False
End If
End Function
El tema es que me señana esta parte del texto: adapter.Fill(unDS, "Personal") y me dice "No coinciden los tipos de datos en la expresión de criterios".
Alguien sabe porque es?