Ver Mensaje Individual
  #5 (permalink)  
Antiguo 30/07/2008, 12:23
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
Gracias avellaneda, una pregunta mas antes de probar con lo que me dijiste...

' comprobar que la BD origen existe
If Len(Dir$(sOrigen)) = 0 Then

donde dice: (Dir$(sOrigen)) debo colocar la ruta de origen, p.e. ("C:\Documents and Settings\Ema\My Documents\Seminario\origen.mdb")

Gracias de nuevo...

Saludos.
Así es, pero si estás utilizando la función se lo pasas como primer parámetro.

Para SalomonSab

En ése caso utilizamos la referencia a JRO

Código:
Public Function CopiaBDPwd(sOrigen As String, sDestino As String, sPwd As String) As String
    ' marcar referencia: Microsof Jet and Replication objects 2.6 Library
    Dim je As JRO.JetEngine
    Set je = New JRO.JetEngine

    If Len(Dir$(sDestino)) Then Kill sDestino
    je.CompactDatabase "Data Source=" & sOrigen & ";" & _
        "Jet OLEDB:Database Password=" & sPwd, _
        "Data Source=" & sDestino & ";" & _
        "Jet OLEDB:Database Password=" & sPwd
    
    CopiaBDPwd = "Realizada copia con éxito en '" & sDestino & "'."
End Function
La llamada a la función es igual a la anterior, pero pasándole un tercer parámetro con la password.