Visual Basic para Aplicaciones - Buscar datos ,,, Urgente!!

Life is soft - evento anual de software empresarial
 
Vista:

Buscar datos ,,, Urgente!!

Publicado por sandra (33 intervenciones) el 08/04/2008 13:07:42
HOla que tal:
estoy necesitando ayuda con este codigo de buscar.
Cuando filtro los datos por Apellido, Nombre, Localidad funciona perfectamente.
Notengo ningun problema pero cuando quiero buscar por DNI o CODIGO me tira un error porq el tipo de dato del campo DNI es Número.
probe de varias formas y no me sale!!! Si alguien puede ayudarme,, estoy necesitando urgentemente!!
osi hay alguna otra forma mas facil de hacer.......

Rs es mi recordet
rs.open "Select * from Personas"

If RS Is Nothing Then
MsgBox " No se ha creado el recordset", vbCritical
Exit Sub
End If
' verifica que el recordset se encuentre abierto
If Not RS.State = adStateOpen Then
MsgBox " El recordset no se encuentra abierto", vbCritical
Exit Sub
End If

If Me.txtBuscar <> "" Then
Select Case op1()
Case 0
RS.Filter = "Apellido" & " LIKE '*" + Me.txtBuscar.Text + "*'"
Case 1
RS.Filter = "Nombre" & " LIKE '*" + Me.txtBuscar.Text + "*'"
Case 2
RS.Filter = "Localidad" & " LIKE '*" + Me.txtBuscar.Text + "*'"
case 3
RS.Filter = "DNI" & " LIKE '*" + Me.txtBuscar.Text + "*'"
Case Else
End Select
Else
RS.Filter = ""
Call CargarDataGrid(DataGrid1)
RS.MoveFirst
End If

Desde ya muchisimas gracias! Saludos...
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:Buscar datos ,,, Urgente!!

Publicado por Luis Prieto (9 intervenciones) el 09/04/2008 18:11:56
Hola!, Sandra!!!

Solo quitale las comillas simples.

RS.Filter = "DNI" & " LIKE *" + Me.txtBuscar.Text + "*"

de esa manera.

Saludos!!

PDTA: Cualquier otra duda escribeme.
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:Buscar datos ,,, Urgente!!

Publicado por sandra (1 intervención) el 22/01/2009 18:26:41
disculpa tengo otro problema
quiero el comando buscar

tengo el formulario y datos al momento de darle click al comando quiero yo BUSCARLO por el nombre que necesito y me aparezca un el formulario
estoy usando visual foxpro 6.0

si me puedes ayudar
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