Aprire Microsoft Visual Basic Express e selezionare " Nuovo progetto ... " dal riquadro sinistro dello schermo . Fare clic su " Visual Basic " in " Modelli installati " e fare doppio clic su " Applicazione console ".
2
Fare clic sul riquadro "Toolbox" e fare doppio clic su "Pulsante " per aggiungere un nuovo pulsante al form . Fare clic sul menu "Progetto " e selezionare "Proprietà Premere " Ctrl" e " A" per rimuovere tutto il codice esistente , e copia e incolla il codice sottostante nel tuo Module1.vb : Modulo Module1 Sub Main ( ) per Prova Dim jetEng Come JRO.JetEngine jetEng = New JRO.JetEngine ( ) per 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 " ) per Catch ex As Exception Console.WriteLine ( ex.Message ) per End Try End Sub End Module modificare la seguente riga di codice e digitare il percorso e il nome del database di Access : Source = C : \\ myaccess.mdb Premere " F5 " per eseguire il programma e di compattare il database .
3
4
Informazioni correlate
Programmazione © www.354353.com