Menu

  • slider04-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01
  • slider01
  • slider01
  • slider01

Suscríbete a Aprende-Viendo 5.0

Content

realizar backup de BD access 2013 en VB 6.0

0
Buenas a quien pueda ayudarme en lo siguiente:

estoy tratando de hacer backup de la base de datos de mi sistema hecha en Access 2013, quiero simplemente que al cerrar la sesion o salga del sistema copiarla del directorio donde se encuentra a la carpeta respaldo, he buscado en la web pero no doy pie con bola estuve revisando haber si habia alguna similar aqui y nada que se le parezca agradezco toda ayuda que puedan darme al respecto...
       
  • Respuesta de Jose Ramirez el Sábado, Mayo 06 2017, 09:39 AM · Ocultar · #1
    OK

    adjunto el proyecto para que lo revises
  •  
  • Respuesta de willmer el Viernes, Mayo 05 2017, 11:09 PM · Ocultar · #2
    buenas noches hice lo que me recomendaste y me da el error de que no consigue la dirección le cambie al codigo que me diste el nombre de la base de datos por el que uso y cuanto te refieres a "backups" es la carpeta donde se va a guardar o respaldar la BD, alli coloque la carpeta donde quiero la base de datos y nada, cambie la BD de donde la tengo a la raiz del programa haber si era eso y tampoco...
  •  
  •  
    Respuesta de Jose Ramirez el Lunes, Abril 24 2017, 03:06 PM · Ocultar · #3
    Que tal amigo, pon este código en algun botón para que lo revises

    asumiendo que nuestro archivo de trabajo esta en la raíz y es data.accdb, y queremos respaldar en una carpeta llamada backups también en la raíz.

    para el proceso de restauración seria a la inversa y a través de un commondialog buscar el archivo que se desea, re-nombrando de nuevo a data.accdb

    Dim fecha As String
    fecha = DateTime.Now
    'cambiamos los dos puntos por punto y como porque lo acepta
    fecha = Replace("backup " & fecha & ".accdb", ":", ";")


    FileCopy App.Path & "\data.accdb", App.Path & "\backups\" & fecha



    saludos.
Agregar Tu Respuesta
Por favor registrese o ingrese para poder publicar su respuesta.

Agradesco tu Paciencia. Muchas Gracias por la espera! Somos Aprende Viendo 5.0

Grupo AprendeViendo & Ronald López agradecen a todos sus fieles seguidores por la larga espera. Basados en nuestro nuevo concepto, Grupo Aprendeviendo les ofrece un sin fin de posibilidades en sus largas horas de adiestramiento y soluciones de problemas tanto empresariales como cotidianos. Sigamos siendo un portal de enseñanza de virtual gratuito y más que eso!

Copyright © 2006 - 2014 - Grupo AprendeViendo & Ronald López. Todos los Derechos Reservados

Grupo AprendeViendo a sido desarrollado por Ronald López - Kalizron. Esta prohibida su reproducción total o parcial sin previa autorización de parte de sus autores. Ronald López Bahamonde - Resolución: 1024-768 - Aviso Legal - Términos de Uso

Log In or Register

fb iconLog in with Facebook