Ξεκινήστε το Microsoft Visual Basic Express , και κάντε κλικ στο "New Project " στο αριστερό τμήμα της οθόνης του υπολογιστή σας . Κάντε κλικ στο " Visual Basic " κάτω " Εγκατεστημένες Πρότυπα " και κάντε κλικ στο " Windows Forms Application ". Κάντε κλικ στο " OK". 2
διπλό κλικ στο " πλαίσιο λίστας " για την " Toolbox" παράθυρο για να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου λίστας στη φόρμα σας . Κάντε διπλό κλικ στο " κουμπί" για την " Toolbox" παράθυρο για να προσθέσετε ένα νέο κουμπί .
Εικόνων 3
διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb " . Πληκτρολογήστε την ακόλουθη παραπάνω "Δημόσια Τάξη Form1 " για να κηρύξει την περιοχή ονομάτων:
Εισαγωγές System.Data.OleDb
Η 4
Πληκτρολογήστε το ακολουθώντας τις παρακάτω « Button1_Click " για να δηλώσετε τις μεταβλητές σας :
Dim oleDBConn Όπως OleDbConnection
Dim strSQL Όπως String Dim
dSet Όπως DataSet
5
Πληκτρολογήστε το παρακάτω, για να καθορίσει τη σειρά ερωτημάτων SQL και να καθορίσει το σύνδεση με τη βάση δεδομένων Northwind :
strSQL = " . SELECT * FROM Προϊόντα Προϊόντα? "
oleDBConn = Νέα OleDbConnection _
( " Provider = Microsoft.ACE.OLEDB . 12.0 ? Πηγή δεδομένων = C : \\ Northwind 2007.accdb ? " )
Επεξεργαστείτε την ακόλουθη γραμμή κώδικα , και πληκτρολογήστε τη διαδρομή και το όνομα της βάσης δεδομένων της Access :
( " Provider = Microsoft . ACE.OLEDB.12.0 ? Πηγή δεδομένων = C : \\ Northwind 2007.accdb ? " )
Η 6
Πληκτρολογήστε το παρακάτω για να πραγματοποιήσετε τη σύνδεση και να γεμίσει το DataSet με δεδομένα από τον πίνακα Προϊόντα :
Dim makeConn Όπως OleDbConnection = Νέα OleDbConnection
Dim dataAptr Όπως OleDbDataAdapter
dataAptr = Νέα OleDbDataAdapter ( strSQL , oleDBConn )
dSet = New DataSet
dataAptr.Fill ( dSet , " Προϊόντα" )
Η 7
Πληκτρολογήστε το παρακάτω, για να αποκτήσετε πρόσβαση στις στήλες DataSet και προσθέστε τις πληροφορίες της στήλης στο στοιχείο ελέγχου πλαισίου λίστας :
για κάθε myRows Σε dSet.Tables ( «Προϊόντα») . Γραμμές
Me.ListBox1.Items.Add ( myRows ( " Κωδικός " ) . ToString )
Me.ListBox1.Items.Add ( myRows . ( " Όνομα προϊόντος " ) ToString )
Επόμενο
8
Πληκτρολογήστε το παρακάτω, για να κλείσετε τη σύνδεση :
makeConn.Close ( )
Πατήστε το πλήκτρο " F5 " για να τρέξετε το πρόγραμμά σας , και κάντε κλικ στο " Button1 " για να εκτελέσει τον κώδικα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα