I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
nicola.teodori
nicola.teodori
il 7 settembre 2003 alle 20:32
7 messaggi dal 14 ottobre 2002
Esiste un modo per compattare il db access senza doverlo per forza rinominare? Oltre alla possibilità di usare il seguente codice e poi cancellare db1 e rinominare db2 (mi sembra inutile nel caso in cui esistesse un metodo più elegante).
<%
Set db = CreateObject("DAO.DBEngine.36")
db.CompactDatabase "db1.mdb","db2.mdb"
%>

Grazie Nicola.
RispondiQuoting
Raynor
Raynor
il 7 settembre 2003 alle 21:00
3.122 messaggi dal 16 maggio 2002
Io uso un altro oggetto, ma poi devo rinominare comunque il db, usando FileSystemObject. Mi sembra comunque doveroso il fatto di assegnare un nome diverso al db compattato, poiché una copia di backup del db vecchio sarebbe bene tenerla almeno finché non è stata portata a termine con successo l'operazione di compattazione.

<%
sConnFrom = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sFileFrom
sConnTo = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sFileTo

set jro = server.createobject("jro.JetEngine")
jro.CompactDatabase sConnFrom, sConnTo

Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.CopyFile sFileTo, sFileFrom, True
fso.DeleteFile sFileTo
Set fso = Nothing
%>
The day Microsoft makes something that doesn't suck
is probably the day they start making vacuum cleaners.

Get caught!
Get caught again!
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.