<%
Set Engine = CreateObject("DAO.DBEngine.35")
Engine.CompactDatabase "database.mdb", "databasenuovo.mdb"
%>
Questo script utilizza JRO (Jet Replication Object) fornito insieme ad ADO 2.1 o superiore
<%
'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
Usiamo i cookies per rendere possibile il corretto funzionamento del sito web per ogni utente. Utilizzando il nostro sito, accetti le nostre modalità di utilizzo dei cookies.
Privacy e cookie policy