Cita:
Iniciado por mosquitoislero
Hola, alguien podria explicarme como hacer backup de la base de datos... Trabajo con visual basic 6.0 en una base de access.
Muchas gracias.
Hola, mejor que explicarlo, te pongo un ejemplo comentado:
Código:
Public Function CopiaBD(sOrigen As String, sDestino As String) As String
' nota: tiene que estar marcada la referencia "Microsoft Access xx.x Object Library"
Dim oAccess As New Access.Application
' comprobar que la BD origen existe
If Len(Dir$(sOrigen)) = 0 Then
CopiaBD = "La base de datos '" & sOrigen & "' no existe"
Exit Function
End If
Screen.MousePointer = vbHourglass
' si ya existe el archivo de copia, lo eliminamos
If Len(Dir$(sDestino)) Then Kill sDestino
oAccess.CompactRepair sOrigen, sDestino
Screen.MousePointer = vbDefault
CopiaBD = "Realizada copia con éxito en '" & sDestino & "'."
End Function
Para llamar a esta función, prodrías poner el siguiente código p.e. en un Botón:
Código:
Private Sub cmdBacKUp_Click()
' Notas: Si existe alguna conexión abierta a la BD, cerrar primero
' If conexion.State = 1 Then conexion.Close
' La carpeta BackUp tiene que existir en el directorio de la aplicación
MsgBox CopiaBD(App.Path & "\MiDb.mdb", App.Path & "\BackUp\Copia de MiDb.mdb")
End Sub