Question 97

Comment compacter une base de données Access avec ADO ?

Pour compacter une base de données Access avec ADO, il faut employer le modèle objet JRO (Jet and Replication Object).

Il vous faudra donc d'abord rajouter une référence au JRO. Pour ce faire, cliquez sur le menu "Projet/Références...". Dans la liste des références disponibles, sélectionnez "Microsoft Jet and Replication Objects X.X library". Vous pouvez maintenant essayer le code suivant qui compacte une base de données :

Option Explicit

Private Sub Form_Load()

    Dim jro As jro.JetEngine

    Set jro = New jro.JetEngine

    jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\nwind2.mdb", _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abbc2.mdb;Jet OLEDB:Engine Type=4"

End Sub

Vous trouverez plus d'informations sur la fiche suivante : 230501 - HOWTO: Compact Microsoft Access Database Through ADO.