Ξεκινήστε το Microsoft Visual Basic Express , κάντε κλικ στο " New Project" στο αριστερό παράθυρο της οθόνης σας και , στη συνέχεια, επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2
διπλό κλικ στο " κουμπί" στο παράθυρο Toolbox για να προσθέσετε ένα νέο κουμπί ελέγχου . Κάντε διπλό κλικ στο " DataGridView " για να προσθέσετε ένα νέο στοιχείο ελέγχου του δικτύου . Κάντε διπλό κλικ στο " Button1 " για να ανοίξετε τη μονάδα Form1.vb
Πληκτρολογήστε τα ακόλουθα στην πρώτη γραμμή της μονάδας σας : .
Εισαγωγές System.Data.OleDb
Η
3
Πληκτρολογήστε την παρακάτω κάτω από την διαδικασία « Button1_Click " για να δηλώσετε τις μεταβλητές σας :
Dim oleC Όπως OleDbConnection
Dim sSQL Όπως String Dim
DataSet Όπως DataSet
Dim newClmn Όπως DataColumn
Η 4
Πληκτρολογήστε την ακόλουθη ερώτημα για τον πίνακα Παραγγελίες από τη βάση δεδομένων Northwind Access : .
sSQL = "SELECT * FROM Παραγγελίες Παραγγελίες ? "
oleC = Νέα OleDbConnection _
( " Provider = Microsoft.ACE.OLEDB.12.0 ? προέλευσης δεδομένων = C : \\ Northwind 2007.accdb ? " )
Επεξεργασία η ακόλουθη γραμμή κώδικα και πληκτρολογήστε τη διαδρομή και το όνομα της βάσης δεδομένων της Access :
Source = C : \\ Northwind 2007.accdb
5
Πληκτρολογήστε το παρακάτω για να κάνετε και να ανοίξετε τη σύνδεση :
Dim newOleConn Όπως OleDbConnection = Νέα OleDbConnection
Dim da Όπως OleDbDataAdapter
da = Νέα OleDbDataAdapter ( sSQL , oleC )
δέσμη = New DataSet
6
Πληκτρολογήστε το παρακάτω, για να καλύψει το σύνολο δεδομένων :
da.Fill ( DataSet , "Παραγγελίες" )
Η 7
Πληκτρολογήστε την ακόλουθη για τη δημιουργία του νέα στήλη υπολογισμού και να το προσθέσετε στην Προβολή δεδομένων πλέγματος ελέγχου :
newClmn = νέα DataColumn ( " ΣυνολικόΚόστος " , gettype ( Δίκλινο ) )
newClmn.Expression = " [ Shipping Fee ] * 2 "
dataSet.Tables ( "Παραγγελίες" ) . Columns.Add ( newClmn )
Me.DataGridView1.DataSource = dataSet.Tables ( " Παραγγελίες")
newOleConn.Close ( )
8
Πατήστε το πλήκτρο " F5 " για να τρέξετε το πρόγραμμά σας . Κάντε κλικ στο " Button1 " για να γεμίσει το Data προβολή πλέγματος ελέγχου .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα