Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να φορτώσει ένα αρχείο CSV σε ένα σύνολο δεδομένων

Γνωρίζοντας πώς να φορτώσει ένα κόμμα διαχωρισμένων αρχείου ( CSV ​​) σε ένα σύνολο δεδομένων χρησιμοποιώντας το Microsoft Visual Basic.Net ( VB.Net ) μπορείτε να εξοικονομήσετε χρόνο κατά την εργασία με αρχεία CSV . Ένα αρχείο CSV χρησιμοποιείται συνήθως για την εισαγωγή δεδομένων από τη μία εφαρμογή στην άλλη . Μπορεί επίσης να καταρτίζονται με τη χρήση οποιουδήποτε εφαρμογή λογιστικών φύλλων , όπως το Microsoft Excel . Ένα σύνολο δεδομένων που χρησιμοποιείται στον προγραμματισμό ηλεκτρονικών υπολογιστών για τη συλλογή δεδομένων σε μορφή πίνακα . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Basic Express και κάντε κλικ στο "New Project ... " στο αριστερό τμήμα της οθόνης σας . Κάντε διπλό κλικ στο " Εφαρμογή Console . " 2

Πατήστε το " Ctrl " και " A", και στη συνέχεια πατήστε "Διαγραφή " για να αφαιρέσετε τα υπάρχοντα κώδικα .
Εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα σε λειτουργική μονάδα " Module1.vb " σας . Ο κωδικός θα κάνει τη σύνδεση του αρχείου και το ερώτημα το αρχείο CSV μέσω ενός ερωτήματος επιλογής . Τα αποτελέσματα του ερωτήματος στη συνέχεια θα φορτωθεί σε ένα σύνολο δεδομένων , καθώς και τον αριθμό των στηλών και γραμμών θα εμφανίζεται μέσω του "Console Window ".

Εισαγωγές System.Data.OleDb

Module Module1

Sub Main ( )

Dim oleString Όπως String

oleString = " Provider = Microsoft.Jet.OLEDB.4.0 ? "

oleString = oleString & "Data πηγή = C : \\ ? Επέκταση Properties = " " Κείμενο ? "

oleString = oleString & " HDR = αριθ? FMT = Delimited " " "

Dim conn As New OleDbConnection ( oleString )

Dim da As New OleDbDataAdapter ( )

Dim ds As New DataSet ( )

Dim oldeComm Όπως New OleDbCommand ( "SELECT * FROM C : \\ CSVFile.csv " , conn )

conn.Open ( )

da.SelectCommand = oldeComm

ds.Clear ( )

da.Fill (ds , " CSV " )

Console.Write ( " Αριθμός στηλών : " . & ds.Tables ( 0 ) Columns.Count )

Console.Write ( " Αριθμός σειρών : " & ds.Tables ( 0 ) . Rows.Count )

conn.Close ( )

End Sub

End Module
Η

4 Επεξεργαστείτε την ακόλουθη γραμμή κώδικα και πληκτρολογήστε τη διαδρομή του αρχείου στο αρχείο σας CSV :

Dim oldeComm Όπως New OleDbCommand ( "SELECT * FROM C : \\ CSVFile.csv " , conn )

Πατήστε το " F5 " για να τρέξετε το πρόγραμμά σας .
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα