την εφαρμογή Microsoft Visual Studio και κάντε κλικ στο "New Project " από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας . Άνοιγμα " Visual Basic ", που βρίσκεται κάτω από το " Εγκατεστημένα πρότυπα . " Κάντε κλικ στο " παράθυρα ", στη συνέχεια, κάντε διπλό κλικ στο " Windows Forms Application " από το κέντρο του παραθύρου διαλόγου για να δημιουργήσετε ένα νέο έργο . 2
διπλό κλικ στο " πλαίσιο λίστας " για να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου λίστας στη φόρμα σας . Κάντε διπλό κλικ στο " κουμπί" για να προσθέσετε ένα νέο κουμπί στη φόρμα σας .
Εικόνων 3
διπλό κλικ στη φόρμα για να δημιουργήσετε ένα συμβάν φόρτωσης της φόρμας και προσθέστε τον παρακάτω κώδικα για να προσθέσει πέντε στοιχεία για το " πλαίσιο λίστας : "
Me.ListBox1.Items.Add ( « DB Θέση 1 " )
Me.ListBox1.Items.Add ( « DB σημείο 2 " )
Me.ListBox1.Items.Add ( « DB σημείο 3 " )
Me.ListBox1.Items.Add ( « DB σημείο 4 " )
Me.ListBox1.Items.Add ( « DB το σημείο 5 " )
Η 4
Επιστρέψτε στην προβολή Σχεδίαση φόρμας και κάντε διπλό κλικ στο" Button1 " για να δημιουργήσετε ένα συμβάν κλικ για αυτό το κουμπί . Προσθέστε την ακόλουθη γραμμή κώδικα για να καθορίσουν τη διαδρομή της βάσης δεδομένων σας :
Dim dbConString As String = " Provider = Microsoft.ACE.OLEDB.12.0 ? Προέλευσης δεδομένων = C : \\ Northwind 2007.accdb ? "
5
Αντικαταστήστε το " C : \\ Northwind 2007.accdb " . στο προηγούμενο βήμα με το όνομα και τη διαδρομή της βάσης δεδομένων της Access
Η 6
Δημιουργήστε το " dbCon " μεταβλητή , η οποία χρησιμοποιείται για να δημιουργηθεί η σύνδεση της βάσης δεδομένων , και η « insertItems " μεταβλητή συμβολοσειράς , το οποίο χρησιμοποιείται για την κατασκευή του δήλωση SQL για να εισάγετε τα στοιχεία :
Δημ. dbCon Όπως System.Data.IDbConnection = Νέα System.Data.OleDb . OleDbConnection ( dbConString )
Dim insertItems Όπως String
Η 7
Δημιουργία και να εκτελέσει μια εντολή για την κατασκευή ενός νέου πίνακα στη βάση δεδομένων όπου θα τοποθετήσει το " πλαίσιο λίστας " στοιχεία :
Dim qryStr As String = " CREATE TABLE tmpItemsTable ( Είδη TEXT) ? "
Dim dbCmd Όπως System.Data.IDbCommand = Νέα System.Data.OleDb.OleDbCommand
dbCmd . CommandText = qryStr
dbCmd.Connection = dbCon
dbCon.Open ( )
dbCmd.ExecuteNonQuery ( )
8
Πατήστε το " F5 " για να τρέξει το πρόγραμμα και κάντε κλικ στο " Button1 ".
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα