Newsgroup: it.comp.appl.access
Titolo: Copia di backup database

Buon giorno a tutto il n.g.
Domanda, è possibile fare automaticamente un backup di tutto il database che 
si sta usando all'uscita dello stesso? In che modo?
Grazie.
Roberto

N.b.:quanto segue una volta adattato č perfettamente funzionante ma solo per 
lanciare il backup del BackEnd direttamente dal Front_End ok?
Buonas giornata!
--
MC
Crea un file VBS e incollaci (modificando dove opportuno quantoi segue):
'*******************************************************************
'start code
'*******************************************************************
'Nome:        Compact.vbs
'Descrizione: compatta e riapre l'mdb in uso
'Autore:
'Creato:      21/07/2005
'Utilizzo:    dall'mdb eseguire:
'   Dim strPath As String
'   strPath = "wscript.exe " & "C:\Temp\Compact.vbs " & Chr$(34) & 
CurrentDb.Name & Chr$(34)
'   Call Shell(strPath, vbNormalFocus)
'
'*******************************************************************
Set objArgs = WScript.Arguments
Call Init()
Dim objMDB
Dim objFSO
Dim strMdbFile
Dim strTmpFile
'nome e path dell'mdb passato come argomento allo script
strMdbFile = objArgs(0)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'genera un nome file temporaneo
strTmpFile = objFSO.GetTempName
strTmpFile = Left(strMdbFile, InstrRev(strMdbFile, "\")) & strTmpFile
'si collega alla sessione access aperta
Set objMDB = WScript.GetObject(strMdbFile)
'minimizza la finestra di access
objMDB.RunCommand 11
'chiude l'mdb in uso
objMDB.CloseCurrentDatabase
'compatta l'mdb in un file temporaneo
objMDB.Dbengine.CompactDatabase strMdbFile, strTmpFile
'Msgbox strMdbFile & " -> " & strTmpFile
'elimina l'mdb originale
objFSO.DeleteFile(strMdbFile)
'copia il file tempraneo nel'mdb originale
objFSO.CopyFile strTmpFile, strMdbFile
'elimina il file temporaneo
objFSO.DeleteFile(strTmpFile)
'riapre l'mdb compattato
objMDB.OpenCurrentDatabase strMdbFile
'maximizza la finestra di access
objMDB.RunCommand 10
Set objFSO = nothing
Set objMDB = nothing
'*******************************************************************
'Controlla che il parametro sia un file mdb
'*******************************************************************
Sub Init()
 'controlla che l'argomento sia un mdb
  If objArgs.Count  < 1 Then WScript.Quit
  If Right(objArgs(0),4) <> ".mdb" Then
    Msgbox "Il file selezionato non e' un mdb.",  16, "Errore!"
    WScript.Quit
  End If
End Sub
'*******************************************************************
'end code
'*******************************************************************
Sull'evento uscita\chiusura o dove ritieni piů consono ci scrivi:
Call BackUp
e tale chiamata punta al modulo:
Function BackUp()
'***************************************************************************
'Autore:
'email: 
mauro.c...@gmail.com
'
'Funzione: Esegue il BackUp del BackEnd direttamente dal FrontEnd
'Note: Prima di lanciare il presente modulo, lanciare modulo MD_ChiudiForm
'***************************************************************************
Dim DirBackup As String
Dim DataBackup As String
Dim NomeFile As String
Dim StringaBackup As String
Dim strPathDb As String
intScelta = MsgBox("Effettuare il backup degli archivi?", vbApplicationModal 
+ vbQuestion + vbYesNo)
If intScelta = vbNo Then
    Exit Function
Else
    If Dir("C:\OP_PDF\Backup\", vbDirectory) = "" Then
               MkDir ("C:\OP_PDF\Backup\")  ' Se non esiste crea la 
Directory per il BackUp
    Else
        ChiudiForms
    End If
        DirBackup = "C:\OP_PDF\Backup\"
        DataBackup = Format(Date, "dd-mm-yyyy")
        NomeFile = DataBackup & "-backup" & ".mdb" 'Costruzione del nume del 
file backuppato
        StringaBackup = DirBackup & NomeFile
        strPathDb = "C:\OP_PDF\op_pdf_dati.mdb" 'Stringa Path BackEnd
        FileCopy strPathDb, StringaBackup
        MsgBox "Backup degli archivi completato.", vbApplicationModal + 
vbInformation + vbOKOnly
End If
End Function

 N.b.:quanto segue una volta adattato è perfettamente funzionante ma solo 


[cut]
quotare i messaggi!!!!
Scherzi a parte, quello che tu chiedi č quello che io ti ho suggerito di 
fare, prova a studiarti il tutto con calma e vedrai che otterrai ciň che 
disideri!
In caso contrario vediamo se altri partecipčanti del NG hanno soluzioni 
maggiormente "User Friendly" da sottoporti.
Buona giornata,
--
MC 

RobertOne ha scritto:

Prova a dare un'occhiata a questo link, c'è un esempio che potrebbe
fare al caso tuo. Io l'ho testato di recente e funziona.
http://www.rogersaccesslibrary.com/download3.asp?SampleName=BackUpWithCompact.mdb
Ciao
Paolo

 quotare i messaggi!!!!

Ovviamente io ti ringrazio per il tuo supporto, credimi, non so da dove 
incominciare per mettere in pratica tutto quello che mi hai scritto, come si 
fa???!
Per quanto riguarda il quoting ho letto parecchie volte la netiquette, ma 
credimi, probabilmente non ho ancora capito come si fa in modo corretto.
Dopo aver postato (questo se non erro č il termine corretto) nel n.g. ed 
aver ricevuto una prima risposta, come nel caso tuo e voler rispondere 
nuovamente, devo cliccare sulla risposta ricevuta e selezionare rispondi al 
n.g. oppure devo cliccare sempre sul mio post?
Illuminami perchč io e te abbiamo sempre avuto questo "scontro" ovviamente 
lo dico in modo benevolo, io che sbaglio e tu che mi riprendi.
Grazie per l'attenzione.
Roberto

[cut]
se abbiamo avuto scontri ... faremo la constatazione amichevole, sei 
daccordo? ;o)))
Quando rispondi ad un messaggio, va bene fare come hai fatto tu, ma inizia a 
scrivere dopo la fine del messaggio al quale stai rispondendo, altrimenti 
chi lo legge per aiutarti, deve magari lavorare anche per interpretare il 
significato dei contenuti, demotivandosi quindi nel porcesso di help 
prefissatosi ... mamma mia quanti paroloni!
Guarda, non ci sono problemi e mi fa piacere di non essere stato 
interpretato in modo negativo, comunque sia, non č mai stata mia intenzione, 
anzi ... sono io il primo ad avere ancora moooooooooolto da imparare in 
questo e da questo NG!
Per il resto del discorso, prova a verioficare il link postato da Announced, 
direi che č un'altra ottima idea.
Buna giornata!
--
MC 

 MC
Mi fa piacere leggere quanto sopra. Se tu hai molto da imparare, io allora 
devo ancora imparare a leggere ed a scrivere, rendo l'idea della 
proporzione?! Sai qual è il discorso e ne sono fermamente convinto di quando 
dico? Alcune volte non ricordo da chi m'è stato detto di scrivere prima del 
messaggio a cui rispondevo. Ne sono convito di questo e pertanto mi sono 
sempre trovato nella massima confusione.
Un consiglio per imparare Access ed SQL nel migliore dei modi?
Grazie a buona giornata anche a te.
Roberto

 ha scritto nel messaggio 
news:lYzTe.24068$O6.15...@news3.tin.it...

Sicuramente questo NG e soprattutto gli help in linea di access.
Sfrutto, personalmente, molto alcune risorse nel web, portali dedicati 
(molti li trovgi ad esempio sull'utilissimo 
www.sitocomune.com
, ma ce ne 
sono diversi altri, alcuni dei quali gestiti da partecipanti attivissimi di 
questo NG).
Peace!
-- 
MC