FoxPro/Visual FoxPro - SEEK

   
Vista:

SEEK

Publicado por lucas jaramillo (1 intervención) el 16/10/2007 15:58:18
Tengo la siguiente consulta

select tabla1
While !EOF

select campo1 from tabla1 into cursor cur1

select tabla2
DoWhile !EOF
select campo1 from tabla2 into cursor cur2

if cur1.campo1 = cur2.campo1
messagebox("valores iguales",64"valores iguales")
endif
skip 1 in tabla2
EndDo

skip 1 in tabla1
EndDo

Como pueden ver es una busqueda secuencial que se hace entre dos tablas, para mirar
los valores iguales de cierto campo.
Quiero hacer esta misma consulta pero utlizando busqueda indexada, utilizando la fución seek,

Muchas gracias por la atención prestada
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:SEEK

Publicado por Plinio (7771 intervenciones) el 16/10/2007 18:46:37
Puedes hacer eso facil con un SELECT -SQL
select campo1 FROM tabla2,tabla1 where tabla1.campo1= tabla2.campo1
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:SEEK

Publicado por francisco lopez (9 intervenciones) el 16/10/2007 20:55:52
Select Tabla1
go top

Do While !Eof()
If Seek(Tabla1.Campo1,'Tabla2','Campo2') && Campo2 es el indice
wait window 'valores iguales'
EndIf

Select Tabla1
Skip
EndDo
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