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