RE:Respaldo Base de Datos
Publicado por
el novato (1 intervención) el 29/08/2007 12:19:00
Hola:
He leido tu mensaje no se exactamente si es para hacer una copia de seguridad de la bd pero puede que esto te sirva:
Private Sub mnuCopia_Click()
Dim archiv As String
Dialog1.ShowOpen 'Abrimos un cuadro de dialogo "Abrir archivo" para _ seleccionar el archivo que queremos.
archiv = Dialog1.FileName 'Guardamos la ruta completa
Dialog1.ShowSave 'Abrimos un cuadro de dialogo "Guardar como..." _ seleccionamos la ruta de destino y ponemos el nombre archivo
FileCopy archiv, Dialog1.FileName & ".backup" 'Guardamos el archivo y le _ añadimos la extensión .backup por ejemplo
Tienes que añadir el componente Microsoft Common Dialog Control 6.0 y luego poner el control en el formulario.
Este código es muy básico y presenta errores por lo que tienes que comprobar que el nombre de los archivos sean correctos, errores en caso de cancelar la operación, de sobreescritura...
Para recuperar la db
Private Sub mnuRestaurar_Click()
Dialog1.ShowOpen
If Dialog1.FileName = "" Or Dialog1.FileName = Null Then
Else
FileCopy Dialog1.FileName, App.Path & "\base\base.mdb" ' Aqui pones la ruta que quieres
mensaje = MsgBox("Operación realizada con éxito", vbInformation, "Aviso", "help.hlp", 48)
End If
End Sub
Bueno ya que se que no es mucho pero por lo menos ya tienes un comienzo