robert murey
11 de Enero del 2011

Necesito saber si alguien posee una rutina prg para trasladar una base de datos de vfp. pues se me da el problema que tengo dos bases de datos.
a una de ella ya le he agregado mas tablas y la otra se encuentra desactualizada pero tiene muchos datos entonces la pregunta ¿como pasar rapidamente los datos de la db antigua a la nueva?. les agradezco de antemano por su ayuda.

robert murey
11 de Enero del 2011

CD "E:misDocinstaladorPAFBASES" &&DESTINO
LOCAL nFiles, cPath, cFile1, cFile2
cPath = "E:misDocinstaladorPAF9BASES" &&ORIGEN
nFiles = ADIR(laFiles, "*.DBF")

FOR nIndex = 1 TO nFiles
cFile1 = laFiles(nIndex, 1)
cFile2 = cPath+JUSTFNAME(cFile1)
?"Migrando... ",cFile1
USE (cFile1) EXCLUSIVE
ZAP
IF FILE(cFile2)
APPEND FROM (cFile2)
ENDIF
ENDFOR

norman tobar
06 de Abril del 2011

CD "RUTA_DATOS_DESTINO" &&DESTINO
LOCAL nFiles, cPath, cFile1, cFile2
cPath = "RUTA_DATOS_ORIGEN" &&ORIGEN
nFiles = ADIR(laFiles, "*.DBF")

FOR nIndex = 1 TO nFiles
cFile1 = laFiles(nIndex, 1)
cFile2 = cPath+JUSTFNAME(cFile1)
?"Migrando... ",cFile1
USE (cFile1) EXCLUSIVE
ZAP
IF FILE(cFile2)
APPEND FROM (cFile2)
ENDIF
ENDFOR

espero que te sea funcional paleto....