🚀 go-pugleaf

"only-offroad" <staff@only-offroad.com> ha scritto nel messaggio
news:q_Fub.42490$9_.1669744@news1.tin.it...
> -- Fante -- wrote:
> > Ciao,
> >     a quanto pare � una domanda difficile la mia perch� finora nessuno
mi ha
> > dato la "dritta" giusta:
> >
> > Quanto cancello un record da un database sql le sue dimensioni invece di
> > diminuire aumentano di poco (qualche kb) per� sono gi� a 150 MB com'�
> > possibile?
> > Esiste per caso una funzione del tipo Compatta db?
> >
> > Grazie Ricky
> >
>
> Aumenta perch� un DB Relazionale tipo SQL Server ha un file di log, in
> cui vengono registrate tutte le operazioni eseguite nel DB per un
> eventuale ripristino.
>
> Esiste l'operazione di shrink del DB gestita dalla funzione:
> object.Shrink( NewSize , Truncate )
> Leggi sui Books Online di SQL Server tutte le spiegazioni.
>
> ciao, Max
>
>


Function CompactAndRepairDatabase(DatabasePath As String, _

Optional Password As String, _

Optional TempFile As String = "c:\temp.mdb")

If DBEngine.Version < "3.6" Then DBEngine.RepairDatabase DatabasePath

'if no temp file specified, use "c:\temp.mdb"

If TempFile = "" Then TempFile = "c:\temp.mdb"


'delete temp file if it exists

If Dir(TempFile) <> "" Then Kill TempFile


'format password in form of ";pwd=PASSWORD" if password exists

If Password <> "" Then Password = ";pwd=" & Password


'compact db: a new db will be created

DBEngine.CompactDatabase DatabasePath, TempFile, , , Password


'kill first db

Kill DatabasePath


'move compacted db to original db's path

FileCopy TempFile, DatabasePath


'delete temp file

Kill TempFile

End Function