Compattare un database Access con JRO
Questo script utilizza JRO (Jet Replication Object) fornito insieme ad ADO 2.1 o superiore.
Il database Access viene compattato su un nuovo file, chiamato test_compattatto.mdb:
<%
strFile = Server.MapPath("test.mdb")
strFileTo = Server.MapPath("test_compattato.mdb")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=" & strFile
strConnTo = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=" & strFileTo
set objJro = server.createobject("jro.JetEngine")
objJro.CompactDatabase strConn, strConnTo
if err <> 0 then
Response.Write "Errore:<br>" & err.description
else
Response.Write "Database compattato con successo su " & strFileTo
end if
set objJro = Nothing
%>Una volta compattatto è possibile rinominare il file (vedere l'archivio).
Per maggiori informazioni:
https://www.aspitalia.com/articoli/db/
http://store.aspitalia.com/scheda.asp?codice=237 (ADO 2.6)
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
