Documentos en Programador Fox

Muchas veces nos encontramos que tenemos mas de 10 tablas en nuestra base de datos y queremos Respaldarlas todas la cual tenemos que escribir un extenso codigo.

Aquí tienes un truco para Respaldar todas las tablas en unas cortas lineas:


PROCEDURE Respaldo
LOCAL lcLugar

*!*----------------------------------- --------------------*!*
*!* Aqui se busca el lugar en donde se hara el respaldo *!*
*!* y crea la carpeta en caso de no existir *!*
*!*-------------------------------------------------------*!*

lcLugar = GETDIR()+ Respaldo

IF !DIRECTORY("&lclugar")
MD &lcLugar && Si el directorio no existe lo crea
ENDIF

*!*---------------------------------- ---------------------*!*
*!* De existir la carpeta elimina todas las tablas que *!*
*!* se encuentren dentro de esta... *!*
*!*-------------------------------------------------------*!*

DELETE FILE &lcLugar*.DBF
SET DEFAULT TO "C:miprogramaTablas"
CLOSE DATABASE

gndbcnumber = ADIR(gabasedatos, *.dbf) && crea la matriz.

FOR ncount = 1 TO gndbcnumber
WAIT WINDOWS "Respaldando la tabla: " + ALLTRIM(gabasedatos(ncount,1)) NOWAIT
USE ALLTRIM(gabasedatos(ncount,1)) IN 0 && EXCLUSIVE
COPY ALL TO &lcLugar + ALLTRIM(gabasedatos(ncount,1))
USE
ENDFOR

SET DEFAULT TO "C:miprograma"

CLOSE DATABASE

OPEN DATABASE "D:miprograma ablasmibd.DBC"

ENDPROC

Fij ate que con este codigo si son mil tablas, las mil se respaldan. Y tu no tienes que sino solo correr el prg.

Saludos,

Alexander Jimenez

P.D: Este Articulo se encuentra publicado en
PortalFox

Creado por programadorfox | 0 comentarios | 18/02/05 19:03

Fantástico pack de impresora portátil, cámara fotográfica y 40 hojas para tus fotosLa impresora portátil de este fantástico pack podremos transportarla de un lugar...