Backup database

mercoledì 13 giugno 2007 - 14.01

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

MATTEHGT Profilo | Junior Member

83 messaggi | Data Invio: mer 13 giu 2007 - 14:01

Ho utilizzato l'oggetto docmd di access per creare un comando che effttua la copia del database: il codice è il seguente:

Dim obj1 As Access.AccessObject
Dim appAccess1 As Access.Application
appAccess1 = New Access.Application
appAccess1.OpenCurrentDatabase("f:\amdati\web\web.mdb")
appAccess1.DoCmd.CopyDatabaseFile("C:\WebRecall\db\copia.mdb", True, True)
appAccess1.DoCmd.TransferDatabase(Access.AcDataTransferType.acExport, "Microsoft Access", "C:\WebRecall\db\copia.mdb", Access.AcObjectType.acTable, "Timesheets", "Timesheets", False) 'acExport, "Microsoft Access", "F:\TIS Backup.mdb", acTable, "Timesheets", "Timesheets", False)
appAccess1.DoCmd.TransferDatabase(Access.AcDataTransferType.acExport, "Microsoft Access", "C:\WebRecall\db\copia.mdb", Access.AcObjectType.acTable, "Leave", "Leave", False)
appAccess1.DoCmd.TransferDatabase(Access.AcDataTransferType.acExport, "Microsoft Access", "C:\WebRecall\db\copia.mdb", Access.AcObjectType.acTable, "Personnel", "Personnel", False)
appAccess1.DoCmd.TransferDatabase(Access.AcDataTransferType.acExport, "Microsoft Access", "C:\WebRecall\db\copia.mdb", Access.AcObjectType.acTable, "Projects", "Projects", False)
appAccess1.CloseCurrentDatabase()

L'esecuzione mi visualizza il messaggio azione copiaDatabasefile non disponibile. Avete qualche suggerimento?

Grazie anticipatamente

Saluti

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !