bibliotek . " Klicka på " OK . " Addera 3 Tryck " Ctrl " och " A " för att ta bort all befintlig kod , och kopiera och klistra in koden nedan på din Module1.vb :
modul Modul1
Sub Main ( ) katalog
Prova
Dim jetEng Som JRO.JetEngine
jetEng = Ny JRO.JetEngine ( ) katalog
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 : Motortyp = 5 " ) katalog
Catch ex Som Exception
Console.WriteLine ( ex.Message ) katalog
End Försök
End Sub
ändmodul
4
Redigera följande kodrad och ange sökvägen och namnet på din Access-databas :
Source = C : \\ myaccess.mdb
Tryck " F5 " för att köra programmet och komprimera din databas .