[VB6] Compattare un database periodicamente

[printlist]

Salve ragazzi con questo codice descritto sotto, eseguo la compattazione del mio batabase.Vorrei però che questa compattazione avvenga in automatico ogni primo del mese all' apertura del Form che utilizzo per gestire il mio Database.Qualcuno può aiutarmi please!!.


Private Sub Command2_Click()



Unload Me
On Error GoTo GestoreErrori
Dim CONN As New JRO.JetEngine
Dim CONN_Sorg As String, CONN_Dest As String

Screen.MousePointer = vbHourglass

CONN_Sorg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Agenda.mdb" & ";User ID=;Password=;"
CONN_Dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Temp.mdb" & ";Jet OLEDB:Engine Type=5;"
'Compatta il database.
CONN.CompactDatabase CONN_Sorg, CONN_Dest
Set CONN = Nothing

'Copia il file compattato.
Kill App.Path & "\Agenda.mdb"
FileCopy App.Path & "\Temp.mdb", App.Path & "\Agenda.mdb"
Kill App.Path & "\Temp.mdb"

Screen.MousePointer = vbNormal
MsgBox "Compattazione del database terminata con successo.", vbInformation, App.Title
Exit Sub

GestoreErrori:
Screen.MousePointer = vbNormal
End Sub
GRAZIE!!!!!

[EngLab]

Semplicemente racchiudilo in un blocco If che controlli se Day(Now) = 1...

[printlist]

hhO EFFETTUATO QUELLO CHE MI HAI SUGGERITO MA OGNI VOLTA CHE RIAPRO IL FORM MI COMPATTA IL DATABASE COME FACCIO AD ESEGUIRLO UNA SOLA VOLTA? GRAZIE

[oregon]

Scrivi su file o su registro un valore che ti indichi se hai effettuato o no la compattazione.

Cambia questo valore in base alla if che ti e' stata suggerita ...

Se ci pensi un po' su, non e' difficile ...