[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

[disumano]

ho copiato pari pari il codice all'interno di un cmdbutton e ho messo il riferimento a jro.
ora però mi arriva questo:

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