Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un Backup e Restore dei dati

Ciao a tutto il newsgroup. Ho il seguente problema : nel mio programma
devo creare un tasto che effettua un BACKUP dei dati di un database
access ed un tasto sul RESTORE dei dati. Come posso realizzarlo ? non
so da dove iniziare e non ho la piu' pallida idea !!! :-)))
Qualcuno di voi puo' indicarmi il modo per poterlo realizzare e
indicarmi qualche esempio dove poter prendere spunto?
Un ringraziamento speciale a chi vorrą aiutarmi x questo problema

dipende da cosa devi salvare.
se vuoi semplicemente copiare i dati su un dischetto puoi fare cosě:
FileCopy "db2.mdb", "a:\db2.bak"
poi potresti anche comprimere i file prima del backup, ma questa č un'altra
storia.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

se vuoi semplicemente copiare i dati su un dischetto puoi fare cosě:
Suggerire un backup su floppy con l'affidabilita' che ha un floppy...
-- 
ciao,
hal

...

Infatti non volevo creare un backup dei dati su un floppy , ma in una
cartella interna al programma. Ho trovato questo codice ma mi da degli
errori.
Option Explicit
Dim Shell
Dim PathSource
Dim PathTarget
Dim cNameFileDate
Dim Ptitle
Ptitle="Backup compresso degli archivi"
Dim nome
PathSource="c:\cartella da copiare"
PathTarget="c:\backup"
cNameFileDate=Mid(cdate(date),1,2)
Set Shell = WScript.CreateObject("WScript.Shell")
DisplayInstr
Set Shell = Nothing
Sub DisplayInstr
    Dim Ps(8)
    Dim Risposta
    Ps(0)  = "La procedura effettuera' una copia compressa degli
archivi   "
    Ps(1)  = "tutti i giorni del mese, cosi' da avere sempre uno
storico   "
    Ps(2)  = "degli archivi fino a 30 giorni precedenti.              
    "
    Ps(3)  = ""
    Ps(4)  = "Cartella archivi: " & PathSource
    Ps(5)  = "Cartella backup : " & PathTarget
    Ps(6)  = ""
    Ps(7)  = "Conferma backup del giorno " & cNameFileDate & " ?"
    Risposta=MsgBox(Join(Ps,vbCrLf),33,Ptitle)
    Select Case Risposta
         Case vbOK             
              Shell.Run "winzip.exe -a -r " & PathTarget &
cNameFileDate & " " & PathSource , 1
              If Err.Number <> 0 Then
                 MsgBox "Impossibile avviare l'applicazione. Errore "&
Hex(Err.Number) & " (hex).", 64,Ptitle
              End if
         Case vbCancel
              MsgBox "Backup non effettuato.",48,Ptitle
    End Select
End Sub
Dov'č l'errore ?

non ho avuto modo di provare il codice perchè non ho molto tempo a
disposizione.
Comunque quel comando che ti ho inviato io funziona anche su hd.
un esempio è:
FileCopy "db2.mdb", "\backup\db2.mdb"
e funziona alla meraviglia.


Dov'è l'errore ?
Ora io dico, benedettiddio, ma come c@%%0 si fa a lavorare in questa
maniera?
Se *TU* per primo non prendi nota degli errori che avvengono (numero,
descrizione) e dove avvengono (riga di codice) come pensi di
risolverli?
Ma sai almeno che cosa hai copiato?
-- 
ciao,
hal

 e funziona alla meraviglia.
Ovviamente se il file non è in uso, se no occorre andare di Open For Binary
e Get e Put...

 Binary e Get e Put...
giusta precisazione.


...

Ma che c@%%0 ne so cosa ho copiato ?? ;-))) l'ho trovato su un sito
che non ricordo nemmeno .... Tra l'altro appana lo avvio mi da tutti
gli errori possibili ed immaginabili .... Era solo per vedere se
qualcuno mi dava una mano a risolvere il mio problema x il backup dei
dati ...

 Ma sai almeno che cosa hai copiato?
Secondo me è un niubbo che sta cercando di imparare.
non ha metodica ecco perchè fa c@%%te del genere...


 un sito che non ricordo nemmeno ....
Magari era il codice di un virus.
termoPilucco, chissa'...

non ha metodica ecco perchè fa c@%%te del genere...
Gia', bisogna anche imparare ad imparare ;-)
-- 
ciao,
hal