SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: lore123 en Lunes 10 de Diciembre de 2007, 19:28

Título: Visual Basci Y Base De Datos.
Publicado por: lore123 en Lunes 10 de Diciembre de 2007, 19:28

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: Text

1.  
2. Public Function ExisteCI(ByVal inCI As Double) As Boolean
3.             Dim unaC As OleDbConnection = Me.Conectar()
4.             Dim adapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT Cedula FROM Personal WHERE Cedula=" & inCI, unaC)
5.             Dim unDS As DataSet = New DataSet
6.             adapter.Fill(unDS, "Personal")
7.             unaC.Close()
8.             If unDS.Tables(0).Rows.Count > 0 Then
9.                 Return True
10.             Else
11.                 Return False
12.             End If
13.         End Function
14.  
15.  

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?  :(