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