carlos
12 de Diciembre del 2003

Aquien me pueda ayudar; como hago el respaldo y restauracion de la base de datos si mis tablas poseen nombres de mas de 8 bits, por lo que no puedo utilizar el PKzip para DOS, existe otro metodo sin modificar mis tablas

denis guido
12 de Diciembre del 2003

de esta manera se respalda
Hola

yo lo hago de la siguiente manera

local gcDBPath1
close databases all
close tables all
close index all
set resource off
*gcAppPath =sys(5)+sys(2003)
gcDBPath1 = alltrim(gcAppPath)+"datos*.dbf *.cdx *.dbc *.dct *.fpt"
if empty(thisform.archivo.value)
=messagebox("Ruta del directorio no puede ser vacio",16,"Respaldo")
thisform.archivo.setfocus
return
else
wait window "Respaldando el directorio base de datos..." at 4,15 timeout 2
run /N archiv~1winzipwinzip32 -a &archivo &gcDBPath1
endif
thisform.archivo.setfocus
thisform.Archivo.value:Es donde va el nombre del archivo.
por ejemplo respaldo

debes poner un cuadro de texto con el nombre archivo y en la propiedad Controlsource poner Archivo
Controlsource=Archivo

Restaurar
local gcDBPath1
CLOSE DATABASES ALL
CLOSE TABLES ALL
CLOSE INDEX all
*gcAppPath =sys(5)+sys(2003)
gcDBPath1 = alltrim(gcAppPath)+"datos"
if empty(thisform.archivo.value)
=messagebox("Ruta del directorio no puede ser vacio",16,"Restaurar")
thisform.archivo.setfocus
return
else
wait window "Restaurando el directorio base de datos..." at 4,15 timeout 2
run /N archiv~1winzipwinzip32 -E &archivo &gcDBPath1
endif
thisform.archivo.setfocus

Atentamente
Denis Guido

jlsayago
12 de Diciembre del 2003

Hola buenas tardes, y que tal el winzip, te sirve, porque tengo un form que hace respaldo, lo quieres ver?
Att,jose luis, un saludo desde Mexico

david
12 de Diciembre del 2003

q tal .
podrias mandarme a mi tambien el formulario?
[email protected]