Documentos en Programador Fox

Tecnología

Geomundos

Programador Fox

Respaldar nuestra base de Datos en Programador Fox

Respaldar nuestra base de Datos

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

Ir a secciones de documentos

Ir a Base de Datos

Comentarios

Servicios Recomendados

Sólo para webmasters

¿Quieres contenido gratis para tu web? Tenemos mucho que ofrecerte…

Descargas de software

¿Buscas algún programa? Descarga gratis tu software en el canal de Descargas de Geomundos.

¿Conoces el chat con perfiles?

Ahora puedes ver la cara de con quién hablas, agregarlos a tu agenda y enviarles mensajes incluso cuando no están conectados.

Juegos gratis online

¿Te aburres? Los juegos online de Geomundos se actualizan constantemente, y también te los puedes descargar a tu PC para jugar offline.

Gana regalos directos

¿Conoces los puntos Geomundos? Gana puntos por jugar, hacer encuestas, registrarte, comprar online... ¡Y canjéalos por cualquiera de los más de 100 regalos disponibles!

¡Consíguelo gratis!

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...

Gana regalos por jugar, hacer encuestas, registrarte en portales y con tus compras online...

Acceso al Club

Recomendados