Problemas con skip de vfp 6.0
Intento pasar los revistros de una tabla de vfp a una vista remota de sql pero cuando los estoy pasando me marca el siguiente erro " se ha encontrado el final del archivo " anteriormente había utilizado ete código gon una bd pero solo manejaba un registro y ahora quiero pasar todo y me marca eso erro no entiendo pues que pero cuando trabaja con un solo registro no tengo problemas este es el código quisiera saber cual es mi error les agradezco su atención y espero sus respuestas gracias
select* from CODIGOP into cursor cuSum
select cuSum
IF RECCOUNT()>0
numREG= reccount()
for nReg=1 to numREG STEP 1
campo0=""
campo1=""
campo2=""
campo3=""
campo0=ALLTRIM(cuSum.CP)
campo1=ALLTRIM(cuSum.estado)
campo2=ALLTRIM(cuSum.pais)
campo3=ALLTRIM(cuSum.poblacion)
CREATE CURSOR prueba (cp c(11),estado c(40),pais c(8),poblacion c(170))
SET NULL ON
INSERT INTO sql_codigop (cp ,estado ,pais ,poblacion) VALUES (campo0, campo1 ,campo2 , campo3)
tableupdate(.t.,.t.,"sql_codigop") &&actualiza la base
SKIP && cuando llega aquí me marca el error " se ha encontrado el final del archivo " cuando avanza al siguiente registro
NEXT
MESSAGEBOX('LOS DATOS HAN SIDO CARGADOS',64,'MENSAGE')
ELSE
MESSAGEBOX('EL ARCHIVO ESTA VACIÓ O NO SE ENCUENTRAN LOS DATOS ',64,'MENSAGE')
ENDIF
select* from CODIGOP into cursor cuSum
select cuSum
IF RECCOUNT()>0
numREG= reccount()
for nReg=1 to numREG STEP 1
campo0=""
campo1=""
campo2=""
campo3=""
campo0=ALLTRIM(cuSum.CP)
campo1=ALLTRIM(cuSum.estado)
campo2=ALLTRIM(cuSum.pais)
campo3=ALLTRIM(cuSum.poblacion)
CREATE CURSOR prueba (cp c(11),estado c(40),pais c(8),poblacion c(170))
SET NULL ON
INSERT INTO sql_codigop (cp ,estado ,pais ,poblacion) VALUES (campo0, campo1 ,campo2 , campo3)
tableupdate(.t.,.t.,"sql_codigop") &&actualiza la base
SKIP && cuando llega aquí me marca el error " se ha encontrado el final del archivo " cuando avanza al siguiente registro
NEXT
MESSAGEBOX('LOS DATOS HAN SIDO CARGADOS',64,'MENSAGE')
ELSE
MESSAGEBOX('EL ARCHIVO ESTA VACIÓ O NO SE ENCUENTRAN LOS DATOS ',64,'MENSAGE')
ENDIF
1 respuesta
Respuesta de jplanac
1
Soy nuevo en esto de responder, pero espero que te sirva mi ayuda.
El problema lo tienes que al crear el cursor "CREATE CURSOR prueba (cp c(11), estado c(40), país c(8), población c(170))" cambias el área activa de fox, con lo que al hacer el skip no lo haces sobre la tabla/cursor inicial si no sobre el cursor PRUEBA que esta en blanco y por eso te dice que ha encontrado el final de fichero.
Una solución a esto sería :
1.- Crear el cursor PRUEBA antes del bucle (ya que si no te lo creará para cada registro de la tabla original, y el cursor no se utiliza para nada dentro del bucle)
2.- Cambiar el área antes de hacer el skip,
...
Select cuSum
Skip
...
El problema lo tienes que al crear el cursor "CREATE CURSOR prueba (cp c(11), estado c(40), país c(8), población c(170))" cambias el área activa de fox, con lo que al hacer el skip no lo haces sobre la tabla/cursor inicial si no sobre el cursor PRUEBA que esta en blanco y por eso te dice que ha encontrado el final de fichero.
Una solución a esto sería :
1.- Crear el cursor PRUEBA antes del bucle (ya que si no te lo creará para cada registro de la tabla original, y el cursor no se utiliza para nada dentro del bucle)
2.- Cambiar el área antes de hacer el skip,
...
Select cuSum
Skip
...
