FoxPro/Visual FoxPro - Busqueda

 
Vista:

Busqueda

Publicado por FOIL (1 intervención) el 29/11/2004 18:02:56
Como puedo hacer una busqueda en mi base de datos, de modo que me busque una palabra, en cualquier campo del registro y en todos los registros de la tabla, asi como si hiciera la busqueda en la ventana de fox pro, abriendo la tabla con browse y haciendo la busqueda con Edicion- buscar.

Gracias, estoy empezando con esto.
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:Busqueda

Publicado por Roman Suazo (2723 intervenciones) el 29/11/2004 18:12:39
USa el $ para hacer la comparacion y listo. Puedes usar para usar la busqueda el LOCATE o el SELEC (el SEEK no funciona en estos casos). Ojo, este tipo de busquedas no son optimizables en Fox asi que se podra tardar mucho....
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:Busqueda

Publicado por Raul (30 intervenciones) el 01/12/2004 01:39:20
Podrias poner un textbox en el que ingresas la palabara a buscar y luego un query mas o menos asi:

LOCAL z
lcbusca='%'+ALLTRIM(UPPER(lcbusca))+'%'
SET TALK ON
SELECT CODIGO,estableci,ciudad,propietar;
FROM clientes WHERE estableci LIKE lcbusca OR ;
propietar LIKE lcbusca ;
INTO TABLE c:\barra\algo.DBF
SET TALK OFF
SELE algo
USE
SELE lcbusca
ZAP
APPEND FROM c:\barra\algo.DBF
z=RECCOUNT()
IF z=0
WAIT 'No se encontró ninguna coincidencia... Presione cualquier tecla' WINDOW NOWAIT
WITH THISFORM
.container1.grid1.VISIBLE=.F.
.container1.text1.SETFOCUS
ENDWITH
ELSE
GO TOP
WITH THISFORM
.container1.grid1.VISIBLE=.T.
.container1.grid1.REFRESH
.container1.grid1.column1.SETFOCUS
ENDWITH
ENDIF

En esta parte:
WHERE estableci LIKE lcbusca OR ;
propietar LIKE lcbusca .....
puedes determinar en que campos debe buscar

Espero te sirva

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