Open Microsoft Visual Basic Express en selecteer " New Project ... " uit het linkervenster van het scherm . Klik op " Visual Basic " onder "Geïnstalleerde sjablonen " en dubbelklik op " Console Application . " Kopen van 2

Klik op de " Toolbox " venster en dubbelklik op " knop" om een nieuwe knop toe te voegen aan uw formulier . Klik op het menu " Project " en selecteer " Eigenschappen. " Klik op " Referenties " en selecteer vervolgens " toevoegen . " Selecteer " COM " en klik op " Microsoft Jet en Replication Objects Library . " Klik op "OK . "

Druk " Ctrl " 3 en " A " voor alle bestaande code onderstaande code te verwijderen , en kopieer en plak in je Module1.vb :

Module Module1

Sub Main ( ) op

Probeer

Dim jetEng
Zoals JRO.JetEngine

jetEng
= Nieuw JRO.JetEngine ( ) op

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
als Uitzondering

Console.WriteLine
( ex.Message )

End of Try

End Sub End Module

4

Bewerk de volgende regel code en typ het pad en de naam van uw Access-database :

Bron
= C : \\ myaccess.mdb

Druk op " F5 "
om uw programma uit te voeren en het comprimeren van uw database .