[vb] compatta e ripristina db

[disumano]

esiste in vb6 un comando che permetta di fare come in access strumenti-->compatta e ripristina db?

[matpez]

http://www.devspy.com/Art/Lang/Scr.aspx?lang=01&id=137

Se ci sono problemi, chiedi pure :p

[disumano]

ho copiato pari pari il codice all'interno di un cmdbutton e ho messo il riferimento a jro.
ora però mi arriva questo:
http://www.vipclubnapoli.com/imm.png
hai idea di quale sia il problema?

[disumano]

mmm...
ho notato che se converto il db in formato access97 l'errore non mi appare +.
sarà questo?

potrebbe quindi esserci una versione di jro adatta a interagire con db access 2002 o xp?

[matpez]

Io ho fatto questa prova, ho chiamato il database "dbNews" e lo messo dentro la cartella del progetto...

Funziona!


Private Sub Form_Load()

Dim jro As jro.JetEngine

'istanzio JetEngine
Set jro = New jro.JetEngine

'se già presente, elimino file temporaneo
If Dir(App.Path & "\dbNews_.mdb") <> "" Then
Kill App.Path & "\dbNews_.mdb"
End If

'compatto il database
jro.CompactDatabase "Data Source=" & App.Path & "\dbNews.mdb;", "Data Source=" & App.Path & "\dbNews_.mdb;"

'cancello il database originale
Kill App.Path & "\dbNews.mdb"

'rinomino il file compattato col nome originale
Name App.Path & "\dbNews_.mdb" As App.Path & "\dbNews.mdb"

'azzero oggetto JRO
Set jro = Nothing

End Sub

[disumano]

ho aggiornato mdac alla versione 2.8. ora sembra fungere anche a me...
oggi ti dico grazie per la 2a volta :)

[matpez]

E allora ti dirò prego per la 2^ volta :p :oink: :p