Come compattare un database divenuto troppo pesante.

I database tendono a ingrandirsi man mano che vi inseriamo dei dati e questo rallenta le operazioni su di esso. Quindi si rende necessario ogni tanto compattarlo. A seguito dell'eliminazione di dati o oggetti da un database di Access oppure di oggetti da un progetto, è possibile che si vengano a creare delle frammentazioni e che il database o il progetto utilizzi lo spazio su disco in modo inefficiente. Eseguendo la compattazione di un database o di un progetto di Access si crea una copia del file e si riorganizza lo spazio di memorizzazione sul disco. La compattazione comporta un miglioramento delle prestazioni sia per i database che per i progetti di Access. La compattazione di un progetto tuttavia non incide sugli oggetti di database, quali tabelle o visualizzazioni, contenuti nel database di Microsoft SQL Server, non nel progetto di Access vero e proprio. Analogamente, la compattazione non incide in alcun modo sul processo di numerazione automatica di un progetto di Access. Se però si sono eliminati dei record dalla parte finale di una tabella di un database di Access contenente un campo Contatore, compattando il database si reimposta il valore Contatore e il valore Contatore del record successivo sarà maggiore di uno rispetto al valore Contatore dell'ultimo record non eliminato della tabella. Questa operazione può essere eseguita da Access alla voce Strumenti-->Utilità Database-->Compatta e ripristina database, oppure può essere fatto tramite un'operazione da una pagina asp, eccovi il codice: Questo script Richiede DAO 3.5 installato...

<% 
Set Engine = CreateObject("DAO.DBEngine.35") 
Engine.CompactDatabase "database.mdb", "databasenuovo.mdb" 
%>

<% 
'inserire il nome database da compattare e il nuovo nome del file (devono essere diversi) poi in un secondo momento si può cancellare il db vecchio e rinominare quello nuovo
strFile = Server.MapPath("database.mdb") 
strFileTo = Server.MapPath("database2.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 
%>

senna, php, shumacher, filmati, sport, porsche, foto, visual basic, macchine sportive, javascript, programmare, video, bugatti, animali, script, scripts, comici, incidenti, maradona, chat