Ξεκινήστε το Microsoft Visual Basic Express , κάντε κλικ στο " New Project" στο αριστερό τμήμα της οθόνης σας , στη συνέχεια, επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2
διπλό κλικ στο " κουμπί" για την " Toolbox" παράθυρο για να προσθέσετε ένα νέο κουμπί ελέγχου . Κάντε διπλό κλικ στο " DataGridView " για να προσθέσετε ένα νέο στοιχείο ελέγχου του δικτύου . Κάντε δεξί κλικ στο " DataGridView " έλεγχο , επιλέξτε " Επεξεργασία στηλών " για να ανοίξετε το " Προσθήκη στήλης " Παράθυρο . Κάντε κλικ στο κουμπί " . Προσθήκη "
εικόνων 3
Επιλέξτε " DataGridViewCheckBoxColumn " δίπλα στο " Τύπος: " και στη συνέχεια κάντε κλικ στο κουμπί " Προσθήκη " για να προσθέσετε την πρώτη στήλη ως στήλη του πλαισίου ελέγχου . Κάντε κλικ στο " Κλείσιμο ".
Η
4 Κάντε διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb " . Πληκτρολογήστε τα ακόλουθα στην πρώτη γραμμή του προγράμματός σας :
Εισαγωγές System.Data.OleDb
5
αντιγραφή και επικόλληση του παρακάτω κάτω από το " Button1_Click " να κάνει μια σύνδεση βάσης δεδομένων :
Dim myConString Όπως String
myConString = " Provider = Microsoft.ACE.OLEDB.12.0 ? προέλευσης δεδομένων = C : \\ Northwind 2007.accdb "
Dim connOledb Όπως OleDbConnection = Νέα OleDbConnection
Επεξεργαστείτε την ακόλουθη γραμμή κώδικα και πληκτρολογήστε τη διαδρομή και το όνομα της βάσης δεδομένων σας :
C : \\ Northwind 2007.accdb
Η 6
Πληκτρολογήστε το παρακάτω, για να Κηρύσσω προσαρμογέα στοιχεία σας και τα στοιχεία που τις μεταβλητές :
Dim Dadapter Όπως OleDbDataAdapter
Dim DSet Όπως DataSet
Η 7
Πληκτρολογήστε την ακόλουθη ερώτημα για τον πίνακα " Υπάλληλοι " :
connOledb.ConnectionString = myConString
Dadapter = Νέα OleDbDataAdapter ( " . επιλέξτε εργαζόμενοι * από Υπαλλήλων ? " , connOledb )
Επεξεργαστείτε το παρακάτω κείμενο και πληκτρολογήστε το ερώτημά σας :
επιλέξτε εργαζόμενοι * από Υπαλλήλων ?
8
Πληκτρολογήστε το παρακάτω για να ανακτήσετε τα δεδομένα από το ερώτημα και να το προσθέσετε στην Προβολή δεδομένων πλέγματος ελέγχου : .
DSet = New DataSet
Dadapter.Fill ( DSet , " εργαζόμενοι " )
Με Me.DataGridView1
. DataSource = DSet.Tables ( " Απασχολούμενοι" )
Τέλος με
connOledb.Close ( )
Η 9
Πληκτρολογήστε τα παρακάτω για να αλλάξετε τη γραμματοσειρά και το χρώμα ιδιότητες του Data προβολή πλέγματος ελέγχου :
With Me . DataGridView1
. BackgroundColor = Color.Azure
. ForeColor = Color.Black
End With
Με Me.DataGridView1.Rows
. σημείο ( 1 ) . κύτταρα ( 2 ) . Style.BackColor = Color.Green
. σημείο ( 1 ) . κύτταρα ( 2 ) . Style.ForeColor = Color.White
. Θέση ( 1 ) . κύτταρα ( 1 ) . Style.Font = New Font ( " BlippoBlackEF " , 10 )
End With
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα