• Domingo 22 de Diciembre de 2024, 23:10

Autor Tema:  Backup  (Leído 1875 veces)

leandrog

  • Moderador
  • ******
  • Mensajes: 153
  • Nacionalidad: ve
    • Ver Perfil
Backup
« en: Viernes 24 de Marzo de 2006, 04:11 »
0
Que tal amigos, es mi primer mjs en el foro.
tengo un problema necesito poder hacer el backup de una BD en Dbase (osea el archivo  .dbf y el .dbt) solo copiandolos a otra carpeta, lo intente con la funcion filecopy pero no lo consigo, estoy mas que seguro que este codigo esta super errado. gracias y disculpen  :P

Código: Text
  1. Dim source1, source2 As String
  2. Dim dest1, dest2 As String
  3.  
  4. source1 = Dir("\" & "data.dbf")
  5. source2 = Dir("\" & "data.dbt")
  6. dest1 = Dir("C:\Documents and Settings\lg\Escritorio\")
  7. dest2 = Dir("C:\Documents and Settings\lg\Escritorio\")
  8.  
  9. FileCopy source1, dest1
  10. FileCopy source2, dest2
  11.  
Leandro Gugliotta

ImaginBlog[/url]

Sagutxo

  • Miembro MUY activo
  • ***
  • Mensajes: 320
    • Ver Perfil
Re: Backup
« Respuesta #1 en: Viernes 24 de Marzo de 2006, 12:20 »
0
Salu2. El comando es el apropiado lo que hace pensar que alguno de los 2 path es incorrecto

FileCopy PathName, NewPathName

Ejecuta el código hasta ese linea y mira cuales son las direcciones.

Yo hago las copias en un zip y te voy a dejar el cçodigo por si quieres usarlo. es un .bas.

El comando es:

ComprimeBase PathDeBase, PathYNombre

PathDeBase = AppPath+NombreBase    'normalmente
Path.Y.Nombre = path y nombrede  archivo zip, sin extensión

Aquí te dejo el .bas y las 2 .dll necesarias

la 2 .dll te hará falta meterlas en el system32 de todas tus aplicaciones. Tengo entendido que son gratuitas.

Espero no liarte mucho :), este código lo cogí de alguna pag y lo modifiqué a mi gusto, así que toketealo un poco y veras que va de lujo.

 :comp:  :smartass:  :comp:
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.
Mi mujer tiene un físico bárbaro!!!. Einstein.

leandrog

  • Moderador
  • ******
  • Mensajes: 153
  • Nacionalidad: ve
    • Ver Perfil
Re: Backup
« Respuesta #2 en: Viernes 24 de Marzo de 2006, 15:20 »
0
Gracias Sagutxo por tu ayuda, segun lo que vi funciona muy bien tu codigo, sin embargo me muestra un erorr con PulsaS, tengo que revisarlo mas...

Pude resolver el problema y efectivamente estaba en los Path de los archivos :lol:

De todas maneras muchas gracias por tu ayuda, intentare, hacerlo de esa forma que para es mucho mejor. :P
Leandro Gugliotta

ImaginBlog[/url]

Sagutxo

  • Miembro MUY activo
  • ***
  • Mensajes: 320
    • Ver Perfil
Re: Backup
« Respuesta #3 en: Viernes 24 de Marzo de 2006, 21:41 »
0
Salu2. jejeje si mil perdones, es una minifunción mia que controla los errores por un número, pero finalmente acaba siendo un msgbox con la opción de solo aceptar así que sustituyelo y te irá perfecto, lo siento :(
 :whistling:
 :comp:  :smartass:  :comp:
Mi mujer tiene un físico bárbaro!!!. Einstein.

leandrog

  • Moderador
  • ******
  • Mensajes: 153
  • Nacionalidad: ve
    • Ver Perfil
Re: Backup
« Respuesta #4 en: Sábado 25 de Marzo de 2006, 03:33 »
0
Ok, muchas gracias amigo, lo hare y te aviso a ver que tal quedo  ;) . Saludos
Leandro Gugliotta

ImaginBlog[/url]

pmike

  • Miembro activo
  • **
  • Mensajes: 62
    • Ver Perfil
    • http://www.autoresponder.com
Re: Backup
« Respuesta #5 en: Sábado 25 de Marzo de 2006, 13:54 »
0
Hola

He probado el archivo.bas para realizar copias de bd y la verdad es q funcionan muy bien tanto la compresion de la bd como descompresion de la misma

Todo ok

Gracias
-------------------------------------------------------------

http://www.ebookred.com

-------------------------------------------------------------