¿Como hacer una consulta o query sobre un cursor en VFP?

207 views
Skip to first unread message

djav77...@gmail.com

unread,
Apr 4, 2024, 5:32:42 PM4/4/24
to Comunidad de Visual Foxpro en Español
Hola, soy nuevo en esto, y quería pedirle su ayuda.

Tengo la siguiente query que traigo desde base de datos:

          text to mycadena textmerge noshow
select
codigo,
    fecha
from librod
order by librod_copy.referencia desc
endtext      
    n=sqlexec(xconector,mycadena,'XLIBROD')

A medida que recorro un cursor x, quiero hacer una query o consulta sobre ese mismo cursor.

Por ejemplo:

    select codigo, fecha from XLIBROD where codigo=x.codigo

Algo así quisiera obtener, y despues recorrerlo con un do while !EOF() ese registro.


Lo que deseo, es que en primera instancia, guardo en un cursor llamado XLIBROD,
despues trabajar sobre ese cursor haciendole query o consultas para recorrerlo y obtener sus valores.

Desde ya, gracias.

RS “Ricardo de Stgo”

unread,
Apr 4, 2024, 6:23:14 PM4/4/24
to Comunidad de Visual Foxpro en Español
Si el cursor que creaste trae datos haces las siguientes select sobre ese cursor obtenido
ahora como eres Nuevo en esto te recomiendo una utilidad que esta propuesta en este mismo foro que se llama FoxyDb 
Tambien esta la SqlData (si es que deseas  ir migrando un sistema en dbf a Motor de BD)  www.levelvfp.com.ar
Te recomiendo usar estas porque  no solo es la conexion al servidor tambien hay que administrar las transacciones, las reconexiones y un sin numero de otras cosas que con estas funciones ya estan hechas y te dedicas solo al core de tu aplicacion

Zarlu

unread,
Apr 4, 2024, 6:53:11 PM4/4/24
to Comunidad de Visual Foxpro en Español
Buenas tardes djav777.nino !

Puedes recorrer un cursor con "Do While !Eof()" o con "Scan....EndScan"

Partiendo de lo que expones...
....
select codigo, fecha from XLIBROD where codigo=x.codigo Into Cursor misql
Select misql
Scan
? campo1
? campo2
EndScan

Suerte
zarlu
Chetumal, Quintana Roo, México

djav77...@gmail.com

unread,
Apr 4, 2024, 9:08:42 PM4/4/24
to Comunidad de Visual Foxpro en Español
Gracias
Reply all
Reply to author
Forward
0 new messages