Ver Mensaje Individual
  #2 (permalink)  
Antiguo 30/07/2008, 02:59
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años, 2 meses
Puntos: 37
Respuesta: Como hacer un backup en vb 6.0

Cita:
Iniciado por mosquitoislero Ver Mensaje
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