copia db

[verardoelvis]

Ciao,
come possofare per copiare il database che contiene i dati del mio programma (vb e access) ad ogni tot di tempo che definisco io, in un altro file database che serve in caso di rogne?

Utilizzando il copy file (che non ho ancora visto) potrei riuscirci?
GRAZIE CIAO

[codo82]

ma intendevi tempo come giorni o come minuti o come ore?

Ecco come minuti:

Private Sub Timer1_Timer()
Dim t As String
t = Time
minuti = Mid$(t, 4, 2)
If minuti = "00" Or minuti = "15" Or minuti = "30" Or minuti = "45" Then
    FileCopy FileDaCopiare.mdb, FileDiDestinazione.mdb
End If
End Sub

dove timer1 è un timer, gli imposti l'intervallo a 30000, almeno controlla ogni 30 secondi, in questo modo ogni 15 minuti fa la copia del file.

se vuoi le ore:

ore=Mid$(t,1,2)