respaldo de una base de datos

[Carlos Avalos]

como puedo respaldar una informacion de una base de datos. ya que luego de realizar la operacion de captura por medio de un formulario; se visualiza en un data report para imprimirlo y luego se elimina los datos de las tablasde mi base de datos. mi pregunta es ¿ Como puedo respaldar esa informacion? que codigo o que podriahacer de antemano les doy las gracias

[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.