Visual Basic Foro

Programación => Bases de Datos => Mensaje iniciado por: Bazooka en Noviembre 19, 2010, 02:20:12 pm

Título: PROBLEMAS con busqueda en base de datos
Publicado por: Bazooka en Noviembre 19, 2010, 02:20:12 pm
Hola estoy intentando verificar si un registro existe en una base de datos y para eso tengo que chequer 3 valores
EL ID el costo y la fecha que no sea coincidentes los 3  con los valores de busqueda pero no me funcionan juntos me dice que argumentos incorrectos. Aunque si pongo de uno por  separados los 4¡3 criterios funcionan de forma independiente.

Que estoy haciendo mal?

Aclaro que estoy utilizando ADO

esta es la funcion:

 Private Function VerificarSiExiste() As Boolean
Dim cri1 As String, cri2 As String, cri3 As String

    With pa
        .MoveFirst
        cri1 = "ID_PERSONA = " & CInt(txId)
        cri2 = "MONTO = " & txMonto.Text & ""
        cri3 = "fecha = #" & txfecha.Text & "#"
       
       .Find cri1 & " and " & cri2 & " and " & cri3
       
        If .Fields(1) = CInt(txId) Then
            'existe este dato
            VerificarSiExiste = True
        End If
    End With
End Function
Título: Re:PROBLEMAS con busqueda en base de datos
Publicado por: Bazooka en Noviembre 24, 2010, 11:37:13 pm
HAY ALGUIEN AHI??????
Título: Re:PROBLEMAS con busqueda en base de datos
Publicado por: YAcosta en Noviembre 25, 2010, 12:10:50 am
Cita de: MIKE en Noviembre 24, 2010, 11:37:13 pm
HAY ALGUIEN AHI??????

me gustaria ayudarte pero solo lo haria con SQL con ADO no, si te interesa me avisas.
Título: Re:PROBLEMAS con busqueda en base de datos
Publicado por: lucius en Noviembre 25, 2010, 01:52:45 am
Esta mal tu sintaxis intenta directamente espero no equivocarme coloca las comillas dependiendo el tipo de dato

Código: [Seleccionar]
.Find "ID_PERSONA= '" & CInt(txId) & "' AND MONTO = "" & txmonto.Text & "" AND fecha = #" & txfecha.Text & "#"
Título: Re:PROBLEMAS con busqueda en base de datos
Publicado por: wolf_kof en Noviembre 25, 2010, 11:37:58 am
te confundiste:

Código: [Seleccionar]
.Find "ID_PERSONA= '" & CInt(txId) & "' AND MONTO = '" & txmonto.Text & "' AND fecha = #" & txfecha.Text & "#"

asi esta bien.  ;)  :D