[vb5/6] copiare un database aperto

[Scottex]

ciao a tutti,

ho il seguente problema:
ho un programma in vb5 che tramite a degli oggetti data si connette al database access! come faccio a creare una copia del database con il programma in uso?

FileCopy c:\cartella\database.mdb, "C:\database.mdb"

non funziona perchè ho il database in uso!!! non c'è un altro modo?
ciao

[Luciano79]

Ciao, anche io ho avuto lo stesso identico problema e l'ho risolto così:
il mio programma doveva partire ogni 2 ore, ma se qualcuno apriva il file in Access non riuscivo. Tuttavia quando qualcuno apre un file Access, automaticamente viene creato un file nella stessa cartella con estensione "ldb". Quindi quando il mio programma partiva, controllava come prima cosa se esisteva questo LDB; se c'era partiva un loop col DoEvents che si fermava solo quando non trovava più questo file (ovvero quando il file mdb veniva chiuso); quindi potevo fare la copia.

[Ciucianespoi]

Ciao Lucky. Cercavo la possibilità di fare una copia di un database aperto e ho letto la risposta che hai dato.
Siccome non sono un esperto di VB, non ho capito bene cosa si deve fare. Puoi farmi un esempio di codice?

Grazie anticipatamente per la risposta.

Daniele

[junx]

FileCopy c:\cartella\database.mdb, "C:\database.mdb"

..a parte che mancano i doppi apici sul primo file....

io non credo ci sia bisogno di loop...

è normale che con FileCopy ti trovi davanti ad un errore per 'Autorizzazione negata'...

Se invece usi FSO dovresti risolvere il problema...
Ecco la routine che devi utilizzare:

Private Sub ForzaCopia(FileSorgente, FileDestinazione)
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile FileSorgente, FileDestinazione
    Set fso = Nothing
End Sub

ora sostituisci il tuo:

FileCopy "c:\cartella\database.mdb", "C:\database.mdb"

con

ForzaCopia "c:\cartella\database.mdb", "C:\database.mdb"

Ciao!

[Ciucianespoi]

Mitico ... funziona! Grazie infinite.

Daniele