Stampa

Compattare un Database Access

Le dimensioni di un database crescono progressivamente durante il suo utilizzo. Per questo può essere molto utile una compattazione del database stesso, in modo tale da migliorarne le prestazioni e risparmiare spazio su disco.

Di seguito è presentata una funzione che effettua la compressione di un database. I parametri che riceve sono 2:
dbname: è il nome del database
password: è l'eventuale password con cui è protetto il database.

In questo esempio, viene compattato il database utenti.mdb. Supponiamo che il database non sia protetto da password, per cui il secondo parametro sarà una stringa vuota.

<%
'compatta il database dbname
Function CompactDB(dbname, password)

  Dim dbpath
  dbpath = Server.MapPath(dbname)

  Dim cnfrom, cnto
  cnfrom = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath
  cnto = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath&".temp"

  'se il db è protetto da password...
  If password<>"" Then

    cnfrom = cnfrom&";Jet OLEDB:Database Password="&password
    cnto = cnto&";Jet OLEDB:Database Password="&password
  End If

  Dim engine
  Set engine = Server.CreateObject("JRO.JetEngine")
  'compatta il database
  engine.CompactDatabase cnfrom, cnto


  Dim fso
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  'il db originale viene eliminato
   fso.DeleteFile dbpath

  'il db appena compresso viene rinominato col nome del db originale
  fso.MoveFile dbpath&".temp", dbpath


  Set fso = nothing
  Set engine = nothing
End Function

'chiamo la funzione per la compressione del database
Call CompactDB("utenti.mdb", "")


Response.Write("Il DataBase è stato compattato con successo!")
%>

Valuta questo articolo

1 1 1 1 1 1 1 1 1 1
Valutazione 0.00 (0 Voti)

hits
1932
Ritieni il contenuto di questa pagina incompleto, non attendibile oppure oggetto di altre problematiche? INVIA UNA SEGNALAZIONE Grazie!

Tags cloud

lenticchie Cancro Mediterraneo TV2000 cappelle punti cardinali sifonare REAL-TIME Angelo Pintus potenziale argenteria email Unione nudismo Geofisica e Vulcanologia Linnè FIGC Licenza cipolle avviamento contatore Geiger Tunis Mare Serenitatis geoparco pizzo rio cacciatori zeus Goffredo Mameli Hasbro boreale mondiali lookup Privacy cielo stellato wifi europea Casey Affleck Etruschi carica Naomie Harris Coppa Presidente USA pagina web Sir Charles Lyell Eritrea 1860 Risorse Alessandro Cattelan evoluzione social Someone Like You Brando Quilici sisal Jennifer Lawrence MP4 viaggiatore Shanghai-Pudong Guardando Il Cielo luogo carreggiata abitanti schedina Api anidride carbonica rai 2 zaus Caterina Guzzanti caravella Martin Freeman Efesto Grado italia 2 differenza di potenziale Onde Stazionarie Dick Van Dyke Latina Airbnb Juentai ginocchio risultati totocalcio Campo Marzio Fallout 4 Castelli Scirocco orto Rolling In The Deep RG 8 mini Temporale documenti FAT energia elettrica Husseini Quirinale navigabile Galileo confettura 3G AdSense Simone Tonini giannutri idrocarburi citare flat RAM gorgona fotografia giglio Water Under The Bridge A5 expo Plutarco biscotti VEICOLI Stella Polare Elizabeth Banks acquario  fossili viventi underscore Tardigradi riflettori bande Amplitude Modulation Niccolò Calvagna Dante Alighieri angiosperme processo live plateau Giovani shoes Farming mameli montagne cavalli vapore autocostruzione tempo EchoLink cibo argilla emisfero Onde Elettromagnetiche radiantismo Sahara tondo aceto labbra Grandine quotazioni