Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte program Microsoft Visual Basic Express a vyberte možnosť " Nový projekt ... " od ľavej table obrazovky . Kliknite na " Visual Basic " pod " Nainštalované šablóny " a dvakrát kliknite na ikonu " Aplikácia konzoly . "
2
Kliknite na " Nástroje " panel a dvakrát kliknite na " tlačidlo " pridať nové tlačidlo do formulára . Kliknite na menu " Project " a zvoľte " Vlastnosti Stlačte tlačidlo " Ctrl " a " A " odstrániť všetky existujúce kód a skopírujte a vložte nižšie uvedený kód do Module1.vb : Modul Module1 Sub Main ( ) Skúste klipart Dim jetEng Ako JRO.JetEngine jetEng = New JRO.JetEngine ( ) jetEng.CompactDatabase ( " Provider = microsoft.jet.oledb.4.0 ; Data Source = C : \\ myaccess.mdb " , _ " Provider = microsoft.jet.oledb.4.0 ; zdroj dát = C : \\ myaccesscompacted.mdb ; Jet OLEDB : Engine Type = 5 " ) Chytiť ex ako výnimka Console.WriteLine ( ex.Message ) End Try End Sub End Module na Upraviť nasledujúci riadok kódu a zadajte cestu a názov databázy programu Access : Source = C : \\ myaccess.mdb Stlačte " F5 " pre spustenie programu a komprimácie databázy .
3
4