Compattare e ripristinare Access

[victor8872]

Ciao a tutti
navigando in rete ho trovato un sistema per fare il compatta e ripristina di access da codice

sub Page_Load()
dim db as string="movimenti.mdb" ' db1.mdb è il database da compattare
Dim database, database2 As String
database = Request.MapPath(db)
database2 = Request.MapPath("db2.mdb") ' db2 è il database compattato
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & database
Dim strConnTo As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & database2
Dim objJro As Object = Server.CreateObject("jro.JetEngine")
objJro.CompactDatabase(strConn,strConnTo)
objJro = Nothing
end sub

Il problema è che mi fa una copia...
io vorrei che compattasse e ripristinasse lo stesso database...

qualcuno di voi sa darmi una mano?
grazie

[pietro09]

1) fai la copia
2) distruggi l'originale (forse è meglio solamente cambiargli il nome)
3) dai alla copia il nome dell'originale

[victor8872]

Ciao Pietro
Anche io avevo pensato alla stessa cosa
Ma non so come si fa

Me lo puoi fare vedere?
Grazie

[pietro09]

Imports System.IO
Imports Microsoft.Office.Interop.Access

Module Module1

    Sub Main()
        Dim accessFile As String = "C:\tmp\prova.accdb"
        Dim tempFile As String = Path.Combine(Path.GetDirectoryName(accessFile), Path.GetRandomFileName() + Path.GetExtension(accessFile))

        Dim dao As New Dao.DBEngine()
        dao.CompactDatabase(accessFile, tempFile)
        File.Delete(accessFile)
        File.Move(tempFile, accessFile)
    End Sub

End Module

[victor8872]

Ciao Pietro
ho provato a fare cosi

sub Page_Load() dim db as string="movimenti.mdb" ' db1.mdb è il database da compattare
Dim database, database2 As String
database = Request.MapPath(db)
database2 = Request.MapPath("db2.mdb") ' db2 è il database compattato
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & database
Dim strConnTo As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & database2
Dim objJro As Object = Server.CreateObject("jro.JetEngine")
objJro.CompactDatabase(strConn,strConnTo)
objJro = Nothing


Dim accessFile As String = server.MapPath("movimenti.mdb")
Dim tempFile As String = Path.Combine(Path.GetDirectoryName(accessFile), Path.GetRandomFileName() + Path.GetExtension(accessFile))


Dim dao As New Dao.DBEngine()
dao.CompactDatabase(accessFile, tempFile)
File.Delete(accessFile)
File.Move(tempFile, accessFile)




end sub

pero' mi da errore

Compilation Error

Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30451: Name 'Path' is not declared.

grazie

[pietro09]

Non so. Ho creato una semplice applicazione console con visual studio 2010 e l'ho provato.

[victor8872]

Ciao a tutti
secondo voi è possibile che compattando e ripristinando db access
vengano persi dei dati?

grazie

[djciko]

ho unito le discussioni