1 Ανοίξτε το Microsoft Visual Basic Express και επιλέξτε "New Project ... " από το αριστερό παράθυρο της οθόνης σας . Κάντε κλικ στο " Visual Basic " υπό τον τίτλο " Εγκατεστημένα πρότυπα " και κάντε διπλό κλικ στο " Εφαρμογή κονσόλας . " 2
Κάντε κλικ στο "Toolbox " παράθυρο και κάντε διπλό κλικ στο " κουμπί" για να προσθέσετε ένα νέο κουμπί στη φόρμα σας . Κάντε κλικ στο μενού "Έργο" και επιλέξτε " Πατήστε το " Ctrl " και "A " για να αφαιρέσετε όλα τα υπάρχοντα κώδικα , και να αντιγράψετε και να επικολλήσετε τον παρακάτω κωδικό στο Module1.vb σας : Module Module1 Sub Main ( ) Δοκιμάστε Dim jetEng Όπως JRO.JetEngine jetEng = Νέα JRO.JetEngine ( ) jetEng.CompactDatabase ( " Provider = Microsoft.Jet.OLEDB.4.0 ? προέλευσης δεδομένων = C : \\ myaccess.mdb " , _ " Provider = Microsoft.Jet.OLEDB.4.0 ? Data Source = C : \\ myaccesscompacted.mdb ? Jet OLEDB : Τύπος κινητήρα = 5 " ) Catch ex Όπως Εξαίρεση Console.WriteLine ( ex.Message ) End Δοκιμάστε End Sub End Module 4 Επεξεργαστείτε την ακόλουθη γραμμή κώδικα και πληκτρολογήστε τη διαδρομή και το όνομα της βάσης δεδομένων της Access σας : Source = C : \\ myaccess.mdb Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμά σας και συμπύκνωση της βάσης δεδομένων σας .
Εικόνων 3
Η
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα