Backup progressivi.

Anonimo
2017-08-26T20:37:37+00:00

Ciao,

facendo una ricerca in rete sono riuscito ad adattare il seguente codice per creare il backup del database.

In un modulo:

Declare PtrSafe Function apiCopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Sub CopyFile(SourceFile As String, DestFile As String)

       '---------------------------------------------------------------

       ' PURPOSE: Copy a file in use on disk from one location to another.

       ' ACCEPTS: The name of the source file and destination file.

       ' RETURNS: Nothing

       '---------------------------------------------------------------

       Dim Result As Long

         If Dir(SourceFile) = "" Then

            MsgBox Chr(34) & SourceFile & Chr(34) & _

               " is not valid file name."

         Else

            Result = apiCopyFile(SourceFile, DestFile, False)

         End If

End Sub

In un pulsante:

Call CopyFile(CurrentProject.Path & "\Database.mdb", CurrentProject.Path & "\CopiaDatabase.mdb")

Quello che a me servirebbe, è creare ad ogni click del pulsante un backup nuovo, cioè che non si vada a sovrapporre a quello già esistente.

Ad esempio CopiaDatabase1, CopiaDatabase2, CopiaDatabase3 ecc...

Vladimiro

Microsoft 365 e Office | Access | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

44 risposte

Ordina per: Più recente
Più utili Più recente Meno recente
  1. Anonimo
    2017-08-29T21:18:07+00:00

    Nemmeno io so cosa dirti.

    Il database l'ho creato da zero. L'unica cosa che posso suggerirti è di fare il debug, aggiungere una routine di gestione degli errori e vedere cosa contengono le variabili con i nomi dei DB e controllare che non esca per motivi strani.

    Credo di averla usata almeno in 40 applicazioni, impossibile che non funzioni.

    Ok grazie comunque.

    Vladimiro

    La risposta è stata utile?

    0 commenti
  2. Anonimo
    2017-08-29T20:13:59+00:00

    Nemmeno io so cosa dirti.

    Il database l'ho creato da zero. L'unica cosa che posso suggerirti è di fare il debug, aggiungere una routine di gestione degli errori e vedere cosa contengono le variabili con i nomi dei DB e controllare che non esca per motivi strani.

    Credo di averla usata almeno in 40 applicazioni, impossibile che non funzioni.

    La risposta è stata utile?

    0 commenti
  3. Anonimo
    2017-08-29T20:06:58+00:00

    Ciao Francesco,

    se non c'è nulla da modificare o da inserire nel database scaricato, siamo sempre allo stesso punto.

    Quella che vedi è la cartella del download con altre due cartelle inserite come nel tuo esempio.

    Le cartelle restano vuote, il database rilasciato viene sovrascritto non tenendo conto sia del nome che della data del backup.

    Bho!!!

    Vladimiro

    La risposta è stata utile?

    0 commenti
  4. Anonimo
    2017-08-29T18:48:38+00:00

    Creato il database e copiato in una directory di OneDrive, questo è il link: https://1drv.ms/u/s!ArhAJKUQ4PQ0g9Rqr6Yg4BeoZ1PFrA

    Questa la struttura della directory di progetto

    Questo il risultato di due bkp successivi a distanza di qualche secondo

    La risposta è stata utile?

    0 commenti
  5. Anonimo
    2017-08-29T14:22:44+00:00

    Ciao Francesco,

    che dirti!!!

    Comunque, la prova, anche se è farina del tuo sacco :-)

    prova a farla tu con un database ed una maschera vuota tanto penso sia la stessa cosa.

    Nel modulo ho il seguente codice:

    Public Sub BackupBd()

        On Error GoTo BackupBd_Err

        DoCmd.Hourglass True

        Dim fs, f As Object

        Dim wNewFile As String

        Dim wOldFile As String

        Dim wBckFile As String

        'Copie de la BD

        Set fs = CreateObject("Scripting.FileSystemObject")

       'Backup de l'application

        wNewFile = CurrentProject.Path & "" & "Temp_" & CurrentProject.Name

        wOldFile = CurrentProject.Path & "" & CurrentProject.Name

        wBckFile = CurrentProject.Path & "\Backup" & "Backup_" & Date & "_" & Time & "_" & CurrentProject.Name

        fs.CopyFile wOldFile, wNewFile

        ' Compactage

        Application.CompactRepair LogFile:=True, SourceFile:=wNewFile, DestinationFile:=wBckFile

        Kill (wNewFile)

    GoTo NoBackendAccess '(questa parte la saltavo quando avevo il backend su SQL Server. Naturalmente BE e FE devono essere nella stessa directory ed i nomi devono essere standard Pippo.accdb e Pippo_data.accdb)

       'Backup des données

        wNewFile = CurrentProject.Path & "" & "Temp_" & Left(CurrentProject.Name, Len(CurrentProject.Name) - 6) & "_data.accdb"

        wOldFile = CurrentProject.Path & "" & Left(CurrentProject.Name, Len(CurrentProject.Name) - 6) & "_data.accdb"

        wBckFile = CurrentProject.Path & "\Backup" & "Backup_" & Date & "_" & Time & "_" & Left(CurrentProject.Name, Len(CurrentProject.Name) - 6) & "_data.accdb"

        fs.CopyFile wOldFile, wNewFile

        ' Compactage

        Application.CompactRepair LogFile:=True, SourceFile:=wNewFile, DestinationFile:=wBckFile

        Kill (wNewFile)

    NoBackendAccess:

        gMsg = "***** Backup terminé *****"

        MsgBox gMsg, vbExclamation, Application.Name

    BackupBd_Exit:

        DoCmd.Hourglass False

        Exit Sub

    BackupBd_Err:

        MsgErr Err.Number, Err.Description, "mMain", "BackupBd", Application.Name, vbCritical, "Erreur pendant le backup"

        GoTo BackupBd_Exit

    End Sub

    Ed in chiusura maschera:

    Call BackupBd

    Vladimiro

    La risposta è stata utile?

    0 commenti