Πώς να δημιουργήσετε μια βάση δεδομένων χρησιμοποιώντας το ProgressBar και VB.Net

Μαθαίνοντας πώς να δημιουργήσετε μια βάση δεδομένων χρησιμοποιώντας το Visual Basic.NET ( VB.NET ) , ενώ χρησιμοποιώντας μια γραμμή προόδου ως δείκτης διαδικασία να κάνετε την αίτησή σας πιο φιλικό προς το χρήστη . Χρησιμοποιώντας μια βάση δεδομένων της Access ως ένα μέρος για να αποθηκεύουν τις προεπιλογές χρήστη ή άλλες πληροφορίες που χρειάζεται η αίτησή σας είναι σίγουρα καλύτερη από τη χρήση πολλών αρχείων κειμένου . Μπορείτε να δημιουργήσετε πίνακες στη βάση δεδομένων για την αποθήκευση δεδομένων και στη συνέχεια να ανακτούν τη χρήση SQL. Χρησιμοποιήστε το " ADOX " αντικείμενο για να δημιουργήσετε τη βάση δεδομένων , και να χρησιμοποιήσετε την κλάση " OleDbConnection " να κάνει μια σύνδεση και να τροποποιήσετε τη βάση δεδομένων σας . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας και να επεκτείνουν " Visual Basic " κάτω " Εγκατεστημένα πρότυπα . " κάντε κλικ στο " παράθυρα " και κάντε διπλό κλικ στο " Windows Forms Application " από το κέντρο του παραθύρου διαλόγου για να δημιουργήσετε ένα νέο έργο . 2

διπλό κλικ " ProgressBar " για να προσθέσετε μια νέα γραμμή προόδου ελέγχου στη φόρμα σας , στη συνέχεια, κάντε διπλό κλικ στο " κουμπί" για να προσθέσετε ένα νέο κουμπί στη φόρμα σας .
εικόνων 3

διπλό κλικ στο " Button1 " για να δημιουργήσετε ένα νέο συμβάν κλικ ξεκινήσει τη μονάδα VB . Κάντε κλικ στο μενού "Έργο" , κάντε κλικ στο κουμπί " Add Reference " και κάντε κλικ στην καρτέλα " COM " . Κάντε διπλό κλικ στο " Microsoft ADO Ext . 6.0 για τη γλώσσα DDL και την ασφάλεια " για να το προσθέσετε ως αναφορά στο έργο σας
Η

4 Αντιγράψτε και επικολλήστε τις παρακάτω γραμμές κώδικα , όπως τις πρώτες γραμμές κώδικα στη λειτουργική μονάδα σας : .

Εισαγωγές ADOXImports System.Data.OleDb

5

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα μέσα στο κουμπί , κάντε κλικ στο συμβάν για να δηλώσετε τις μεταβλητές , ορίζουν τα όρια γραμμή προόδου και να ορίσετε την πρώτη τιμή :

Dim ADOXCat Όπως New ADOX.CatalogDim strSQL Όπως StringDim objCmd As New OleDbCommandMe.ProgressBar1.Minimum = 0Me.ProgressBar1.Maximum = 50Me.ProgressBar1.Value = 10Application.DoEvents ( )
Η 6

Αντιγραφή και επικόλληση τον ακόλουθο κώδικα για να δημιουργήσετε μια βάση δεδομένων της Access :

ADOXCat.Create ( " Provider = Microsoft.ACE.OLEDB.12.0 ? προέλευσης δεδομένων = c : \\ Temp \\ newdata.mdb " ) ADOXCat = NothingMe.ProgressBar1 . Value = 20Application.DoEvents ( )
Η 7

Πραγματοποιήστε μια σύνδεση με τη βάση δεδομένων που δημιουργήθηκε στο προηγούμενο βήμα :

Δημ. Συμβ = Νέα OleDbConnection ( " Provider = Microsoft.ACE.OLEDB .12.0 ? Πηγή δεδομένων = c : \\ Temp \\ newdata.mdb " ) Me.ProgressBar1.Value = 30Application.DoEvents ( ) Con.Open ( )
8

Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε ένα νέο πίνακα στη βάση δεδομένων :

strSQL = " CREATE TABLE newTable (ID INTEGER , ΚΕΙΜΕΝΟ τΟΥ ΠΡΟΪΟΝΤΟΣ ) " objCmd = Νέα OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery ( ) Me.ProgressBar1.Value = 40Application.DoEvents ( )
Η 9

Προσθέστε τον ακόλουθο κώδικα για να εισάγετε μια νέα εγγραφή στον πίνακα που δημιουργήθηκε στο προηγούμενο βήμα :

strSQL = " INSERT INTO newTable (ID , PRODUCT) ΑΞΙΕΣ ( 0 , « tablet » ) " objCmd = Νέα OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery ( ) Me.ProgressBar1.Value = 50Application.DoEvents ( ) Con.Close ( )

Η