Respaldos

Charango
24 de Febrero del 2004
tengo un sistema de inventario y
Necesito hacer respaldo mensuales de informacion
y nose como hacerlo

la base de datos esta en access

Algun consejo por favor

sdemingo
24 de Febrero del 2004
Hola,

si la base de datos está en access no tienes más que copiar el fichero con otro nombre e ir guardándolo....

Dim fs As Object
Dim rutaBaseDatos As String
Dim rutaRespaldo As String

rutaBaseDatos = "c:miAplicacionbaseDatos.mdb"
rutaRespaldo = "c:miAplicacionrespaldosbaseDatos" & Date & ".mdb"

Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile rutaBaseDatos, rutaRespaldo, True

Salu2
sdemingo
http://boards.melodysoft.com/sdemingo

juan
24 de Febrero del 2004
LO MÁS BARATTO QUE SE ME OCURRE ES HACER UN COPY DEL MDB...