Newsgroup: it.comp.appl.access
Titolo: Bakup del db

Un saluto a tutto il news,
ho un problema relativo alla copia di backup in automatico del mio db.
Ho provato ad implementare l'applicativo "back" scaricato da sito comune che
dovrebbe creare una copia del database in uso.
Nel momento che lancio il codice per creare la copia di backup,  mi da i
seguenti avvisi di errore:
"13-Tipo non corrispondente"
"Variabile oggetto o variabile blocco with non impostata"
e ovviamente non mi crea la copia di backup.
Scusate ho un dubbio, sul sito comune c'e scritto che tale aplicativo x
poter funzionare necessitava di "WSH"????, ariscusate la mia ignoranza, ma
che e' sto WSH?????????????.
Un grazie in anticipo.

 ha scritto nel messaggio
news:YUG2c.7623$Hl1...@tornado.fastwebnet.it...

Windows Scripting Host.....!
La porta aperta per gli Hacker.... sulla tua macchina...! ;-)
Scherzi a parte io per generare una Copia di BackUp uso
questa Routine, ovvio che non la devi fare girare su tutti i Client
ma puoi inserire nel FE(dei Client) una routine che verifica
la data dell'ultimo aggiornamento del BackUp e se
Now()-DataUltimoAgiornamento>1gg crei Copia.
L'importante č che la Copia di BackUp sia riconoscibile
poichč dai Client deve essere tutto trasparente, quindi
la prima cosa che fai quando si apre un Client č :
1)Verificare che ci sia un BAK con la data Odierna (Back_01_01_2004.bak)
2)Se non c'č controlli la differenza UltimoBAK-Now()
3)Se lo ritieni generi un BAK, poi lo rinomini in .BAK, poi cancelli il
vecchio.
Private Sub CreaBackUp()
  Dim NomeBackUp As String
  Dim DirNewCat As String
  Dim wsp As Workspace, dbs As Database
  'On Error GoTo GestErr
  'Percorso Catalogo corrente...
  'Cartella destinazione nuovo Catalogo
  DirNewCat = PercorsoDB()
  If IsNothing(DirNewCat) Then Exit Sub
  NomeBackUp = "\BackUp_" & BackUpName & ".mdb"
  If NomeBackUp <> vbNullString Then
        If fIsFileDIR(DirNewCat & NomeBackUp) Then Kill DirNewCat &
NomeBackUp
        Set wsp = DBEngine.Workspaces(0)
        'Crea nuovo database
        Set dbs = wsp.CreateDatabase(DirNewCat & NomeBackUp, _
            dbLangGeneral)
        dbs.Close
        wsp.Close
        Set wsp = Nothing
        Set dbs = Nothing
        ExportBackUp DirNewCat & NomeBackUp
        MsgBox "BackUp creato correttamente...", vbInformation, "Export...!"
  End If
  Exit Sub
'GestErr:
  'MsgBox Err.Number & "  " & Err.Description
End Sub
Ciao.
@Alex.

   Dim wsp As Workspace, ........
cut  ...
scusa ma mi dice che "
Errore di compilazione:
Tipo definito dall'utente non definito
??
poi ci sono dei periodi del codice che sono di colore verde e altri rossi.
Scusa ma nn sono molto pratico di codice.
potresti aiutarmi????

 ha scritto nel messaggio
news:bYH2c.7702$Hl1....@tornado.fastwebnet.it...

Ho fatto un'estrapolazione di una mia routine, ma ovviamente devi
dargli una controllata.
Prima di tutto devi inserire i RIFERIMENTI alle librerie DAO 3.51 oppure 3.6
poichè sicuramente stai usando ADO.....!
Poi per il resto non saprei cosa altro suggerirti, ma la strada che ti ho
consigliato
è da realizzare tutta con il CODICE , e se non hai un minimo di autonomia
credo
non sia semplicissima.....!!!
Facci sapere.
@Alex.

 ha scritto nel messaggio
news:c2finl$ptp$1...@lacerta.tiscalinet.it...

scusate se insisto......
Ho selezionato i riferimenti dao 3.6.
ora l'errore si e spostato piu' avanti
...... cut.....
 DirNewCat = PercorsoDB()
.....cut.....
mi dice : errore di compilazione , sub o function nn definita
Credo che venga richiamata funzione Percorso(),
come la imposto???
Un saluto.

 ha scritto nel messaggio
news:_jI2c.7728$Hl1....@tornado.fastwebnet.it...

Quella è una funzione che serve per impostare il Percorso o la PATH
di destinazione, se nel tuo caso è fissa ti basta mettere:
DirNewCat ="C:\" ' o quello che preferisci.
Ciao.
@Alex.

 ha scritto nel messaggio
news:_jI2c.7728$Hl1....@tornado.fastwebnet.it...

DAO 3.6 deve stare prima di ado.
Usa "sposta su"
MAssimiliano