Visual Basic - ayuda por favor con esta busqueda

Life is soft - evento anual de software empresarial
   
Vista:

ayuda por favor con esta busqueda

Publicado por MATIAS BELINGHERI (3 intervenciones) el 31/10/2008 22:45:14
Private Sub CmdBuscar_Click()
Dim No_producto As String
DataEnvironment1.rsCommand2.MoveFirst
No_producto = InputBox("Escriba la Obra social a buscar")
If No_producto <> "" Then
DataEnvironment1.rsCommand2.Find "OBRA SOCIAL=" & No_producto
If DataEnvironment1.rsCommand2.EOF Then
MsgBox "No se encontró el pedido"
DataEnvironment1.rsCommand2.MoveFirst
End If
End If
End Sub

ALGUIEN ME PODRIA AYUDAR???? NOSE POR QUE ESTA BUSQUEDA NO ME ANDA PARA LOS String y si para los numeros...

Private Sub CmdBuscar_Click()
Dim No_producto As String
DataEnvironment1.rsCommand1.MoveFirst
No_producto = InputBox("Escriba el Nro de DNI del paciente a buscar")
If No_producto <> "" Then
DataEnvironment1.rsCommand1.Find "[DNI]=" & No_producto
If DataEnvironment1.rsCommand1.EOF Then
MsgBox "No se encontró el paciente"
DataEnvironment1.rsCommand1.MoveFirst
End If
End If
End Sub

eso si anda pero el de arriva no .... me dice:argumentos incorrectos, fuera del intervalo permitido o en conflictos con otros..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda por favor con esta busqueda

Publicado por Enrique Veliz (5 intervenciones) el 04/11/2008 19:28:07
Utiliza el filter en vez del find
DataEnvironment1.rsCommand2.Filter= "OBRA SOCIAL=" & No_producto
if rsCommand2.Recordcount>0 then
has lo que quieras aca
else
msgbox "No se encuentra nada"
end if

set DataEnvironment1.rsCommand2.Filter=adfilternone
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda por favor con esta busqueda

Publicado por Matias belingheri  (3 intervenciones) el 05/11/2008 01:49:20
el error estaba en que faltaba los apostrofes....



Dim No_producto As String
DataEnvironment1.rsCommand2.MoveFirst
No_producto = InputBox("Escriba la Obra social a buscar")
If No_producto <> "" Then
DataEnvironment1.rsCommand2.Find "[OBRA SOCIAL]=' " & No_producto & " ' "
If DataEnvironment1.rsCommand2.EOF Then
MsgBox "No se encontró el pedido"
DataEnvironment1.rsCommand2.MoveFirst
End If
End If


muchas gracias por ayudarme la verdad que nose lo que es el filter ni como trabaja pero ya me pondre en accion para saberlo....

los apostrofes que le faltaban estan despues de el igual, y despues de no producto entre comillas por si a alguien le sirve....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar