respaldo de una base de datos

[jcl]

Una forma de hacer respaldos a DDBB Access, es aprovechar la facilidad de JRO (Microsoft Jet And Replication Object) para hacer "Compact", que genera una copia compactada de una base de datos en otra ubicación.

No se si es lo que buscas, pero allí te lo dejo por si te sirve.

Primero debes activar JRO en tu proyecto y luego copias el código en un formulario, al que le debes agregar un botón ... y listo.


Private Sub Command1_Click()
compactADB "MiBaseDeDatos", "MiRespaldo", "C:\Micarpeta\"
End Sub

Sub compactADB(oName As String, cName As String, opath As String, Optional cpath As String)

Dim je As New JRO.JetEngine
Dim strIn As String, strOut As String

' Aquí se verifica si está presente la ubicación opcional
If cpath = "" Then
cpath = opath
End If

strIn = opath & oName
strOut = cpath & cName

' Lo que sigue es una sola instrucción
je.CompactDatabase _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strIn & ";Jet OLEDB:Database Password=MiPass, Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strOut & ";Jet OLEDB:Database Password=MiPass"
End Sub

Saludos.