Backup mdb database

[lucavizzi]

Buona giornata,
avrei la necessità di eseguire il backup del data-base di un mio sito.

Sulla rete ho trovato esempi di script che eseguono il backup tabella per tabella e campo per campo.

Nel mio caso il db è molto grosso con numerose tabelle e numerosissimi campi.

Vorrei sapere: non c'è un modo per eseguire un backup in blocco dell'intero data-base con una operazione del tipo copia e incolla oppure, al limite, eseguire una duplicazione del'intera tabella?

Grazie
Luca

[Roby_72]

Parli di un db Access?

	'Comprimo il database creandone una copia compressa e mantenendo l'originale
	Dim miodb
	Set miodb = CreateObject("DAO.DBEngine.36") 
	miodb.CompactDatabase server.MapPath("/mdb-database/originale.mdb"), server.MapPath("/mdb-database/originale_tmp.mdb") 
	Set miodb=Nothing 

	'Elimino il vecchio database (quello originale)
	Dim objFso, objFile
	Set objFso=Server.CreateObject("scripting.filesystemobject")
	Set objFile=objFso.GetFile(server.MapPath("/mdb-database/originale.mdb"))
	objFile.Delete
	Set objFile = Nothing

	'Rinomino il database temporaneo con il nome di quello originale
	objFso.MoveFile server.MapPath("/mdb-database/originale_tmp.mdb"), server.MapPath("/mdb-database/originale.mdb") 
	Set objFso = Nothing

Roby

[lucavizzi]

bello!
grazie Roby

un altra cosa,
se volessi eseguire lo script in automatico ogni giorno alla stessa ora?



edit: il db compresso che estensione ha?

[Roby_72]

In che senso?? Sempre mdb è...

Roby

[lucavizzi]

ho visto, pensavo diventasse un .zip

sto su come sottrarre 7 giorni da una data=Date()

ho provato con datediff

data=Date()
primo=DateDiff("d",7,data)


ma non funziona....

[Roby_72]

Ma di che parli?

Roby

[lucavizzi]

ho risolto:
primo=dateAdd("d",-7,data)

puoi aiutarmi per l'esecuzione automatica dello script?
:master:

[lucavizzi]

Vorrei che lo script venisse eseguito automaticamente dal server ogni giorno alla stessa ora, si può fare?

Un ultima cosa:

Set miodb = CreateObject("DAO.DBEngine.36") 
	miodb.CompactDatabase server.MapPath("/mdb-database/originale.mdb"), server.MapPath("/mdb-database/originale_tmp.mdb") 
	Set miodb=Nothing

CompactDatabase così com'è non sovrascrive, si potrebbe renderlo sovrascrivente?

Grazie ancora

[Roby_72]

Infatti quello non sovrascrive, sovrascrive dopo...

Roby