Respaldos
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
Necesito hacer respaldo mensuales de informacion
y nose como hacerlo
la base de datos esta en access
Algun consejo por favor
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
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
