compatta e ripr database

[verardoelvis]

Ciao ragazzi,
come si può fare da vb che utilizza un db access a compattare e ripristinare il db stesso come fa access attraverso strumenti-utilità db-compatta e ripristina?
GRAZIE
CIAO

[DaFella]

Non so se si può fare direttamente da VB ma mi pare che esista qualche componente di access che si può inserire in VB e permette difarlo ma in fin dei conti utilizza sempre quel tool lì di access...

avevo visto una cosa simile da un mio amico però è un ricordo vago...molto vago...!

[magnus]

Public Sub Compatta(NomeFile As String)
On Error GoTo GestoreErrori
Dim CONN As New JRO.JetEngine
Dim CONN_Sorg As String, CONN_Dest As String

Screen.MousePointer = vbHourglass

CONN_Sorg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeFile & ";User ID=;Password=;"
CONN_Dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Temp.mdb" & ";Jet OLEDB:Engine Type=5;"
'Compatta il database.
CONN.CompactDatabase CONN_Sorg, CONN_Dest
Set CONN = Nothing

'Copia il file compattato.
Kill NomeFile
FileCopy App.Path & "\Temp.mdb", NomeFile
Kill App.Path & "\Temp.mdb"

Screen.MousePointer = vbNormal
MsgBox "Compattazione del database terminata con successo.", vbInformation, "Informazione"
Exit Sub

GestoreErrori:
Screen.MousePointer = vbNormal
MsgBox "Errore durante il tentativo di compattazione del database: " & Err.Description & ".", vbCritical, "Service"

End Sub

[DaFella]

ATZ... !

[antocasi]

Qualcuno mi può spiegare che tipo di connessione è la JRO.JetEngine?

[g.scardigno]

a me questa procedura non funziona....
Prima di tutto mi da errore su jro.engine e l'ho sostituioto con adodb.connection

Poi dopo questa modifica ottengo un altro errore:
Operation is not allowed when the object is closed



Aiuto...

[verardoelvis]

Guardando l'help e smanettando... ho trovato.
Bisogna inserire il riferimento alla msjro.dll da Progetto - Riferimenti.

Poi si deve dichiarare jro
utilizzare jro.compactdatabase (stringaconnessione1, stringaconnessione2).

Ora non ho tempo, ma se qualcosa non vi è chiaro, nel fine settimana inserisco la routine completa.
Ciao

[g.scardigno]

ok l'aspetto...

Grazie...

[g.scardigno]

ci sono riuscito da solo...
aggiungendo semplicemente il componente: msjro.dll
funziona correttamente...

Grazie...

Ma qualcuno potrebbe dirmi che tipo di connessione è JRO.JetEngine
:master: :master:

Ciao a tutti. ForumManiaci....

[optime]

in alcune situazioni non funziona. usa JetComp.exe, lo scarichi dal sito di M$