Comment compresser MS Access DB dans VB

Ouvrez Microsoft Visual Basic Express et sélectionnez "Nouveau projet ... " Dans le volet gauche de votre écran. Cliquez sur " Visual Basic " sous " Modèles installés " et double -cliquez sur " Application console. "
2

Cliquez sur le volet " boîte à outils " et double- cliquez sur "Button " pour ajouter un nouveau bouton à votre formulaire . Cliquez sur le menu "Projet" et sélectionnez "Propriétés . " Cliquez sur " Références" puis sélectionnez "Ajouter". Sélectionner "COM" et cliquez sur " Microsoft Jet et Replication Objects . " Cliquez sur « OK ».
3 Appuyez sur

"Ctrl " et "A " pour supprimer tout le code existant, et copier et coller le code ci-dessous dans votre Module1.vb :

Module Module1

Sub Main ( )

essayer et

jetEng As JRO.JetEngine

jetEng = New JRO.JetEngine ()
< p> jetEng.CompactDatabase ( "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C: \\ myaccess.mdb ", _

"Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C : \\ myaccesscompacted.mdb ; Jet OLEDB: Engine type = 5 ")

Catch ex As Exception

Console.WriteLine ( ex.Message )

End Try

End Sub End Module

4

Modifiez la ligne de code suivante et tapez le chemin et le nom de votre base de données Access :

Source = C: \\ myaccess.mdb

Appuyez sur " F5" pour exécuter votre programme et compacter votre base de données.