Ciao a tutti
navigando in rete ho trovato un sistema per fare il compatta e ripristina di access da codice


sub Page_Load()
dim db as string="movimenti.mdb" ' db1.mdb è il database da compattare
Dim database, database2 As String
database = Request.MapPath(db)
database2 = Request.MapPath("db2.mdb") ' db2 è il database compattato
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & database
Dim strConnTo As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & database2
Dim objJro As Object = Server.CreateObject("jro.JetEngine")
objJro.CompactDatabase(strConn,strConnTo)
objJro = Nothing
end sub

Il problema è che mi fa una copia...
io vorrei che compattasse e ripristinasse lo stesso database...

qualcuno di voi sa darmi una mano?
grazie