Ξεκινήστε το Microsoft Visual Basic Express . Κάντε κλικ στο " New Project ... " στο αριστερό τμήμα της οθόνης σας . Επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2
διπλό κλικ στο " κουμπί" για την " Toolbox" παράθυρο για να προσθέσετε ένα νέο κουμπί ελέγχου . Κάντε διπλό κλικ στο " DataGridView " για να προσθέσετε ένα νέο στοιχείο ελέγχου του δικτύου . . Κάντε διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb "
εικόνων 3
Πληκτρολογήστε το παρακάτω, για να κηρύξει την συμβολοσειράς σύνδεσης :
Dim oleString As String
oleString = " Provider = Microsoft.Jet.OLEDB.4.0 ? "
oleString = oleString & "Πηγή δεδομένων = C : \\ ? Επέκταση Properties = " " Κείμενο ? "
oleString = oleString & " HDR = αριθ? FMT = Delimited " " "
Η 4
Πληκτρολογήστε το παρακάτω, για να δηλώσει περισσότερες μεταβλητές σύνδεσης και της διερεύνησης του αρχείου για τα δεδομένα :
Dim conn Όπως Νέα OleDbConnection ( oleString )
Dim da As New OleDbDataAdapter ( )
Dim ds As New DataSet ( )
Dim oldeComm Όπως New OleDbCommand ( "SELECT * FROM C : \\ CSVdata . csv " , conn )
Επεξεργαστείτε την ακόλουθη γραμμή κώδικα και πληκτρολογήστε τη διαδρομή για το αρχείο σας :
Dim oldeComm Όπως New OleDbCommand ( " SELECT * FROM C : \\ CSVdata.csv " , conn )
5
Πληκτρολογήστε τα ακόλουθα για να ανοίξετε το αρχείο και να πάρετε τα δεδομένα χρησιμοποιώντας ένα σύνολο δεδομένων :
conn.Open ( )
da.SelectCommand = oldeComm
ds.Clear ( )
da.Fill (ds , " CSV " )
Η 6
Πληκτρολογήστε το παρακάτω για να προσθέσετε δεδομένα στην Προβολή δεδομένων πλέγματος ελέγχου :
DataGridView1.DataSource = ds.Tables ( " CSV " )
Η 7
Πληκτρολογήστε το παρακάτω, για να αλλάξετε τα χρώματα του Data προβολή πλέγματος ελέγχου :
με DataGridView1 . ColumnHeadersDefaultCellStyle
. φόντουΙδιότητα = Color.Navy
. ForeColor = Color.White
. Font = New Font ( DataGridView1.Font , FontStyle.Bold )
Τέλος Με
DataGridView1.GridColor = Color.Red
Με Me.DataGridView1.Rows
. Προϊόν ( 0 ) . κύτταρα ( 1 ) . Style.BackColor = Color.DarkGreen
. Προϊόν ( 0 ) . κύτταρα ( 1 ) . Style.ForeColor = Color.White
. σημείο ( 1 ) . κύτταρα ( 1 ) . Style.BackColor = χρώμα . κόκκινο
. Θέση ( 1 ) . κύτταρα ( 1 ) . Style.ForeColor = Color.White
End With
conn.Close ( )
Η 8
Πατήστε το " F5 " για να εκτελέσετε το πρόγραμμα και κάντε κλικ στο " Button1 ".
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα