Πώς να Τοποθετήστε ένα σύνολο δεδομένων σε έναν πίνακα σε Visual Basic

Γνωρίζοντας πώς να χρησιμοποιήσετε σύνολα δεδομένων σε Microsoft Visual Basic.NET μπορείτε να εξοικονομήσετε χρόνο κατά την εργασία με βάσεις δεδομένων . VB.NET είναι μια αντικειμενοστραφής γλώσσα προγραμματισμού που προσφέρει η Microsoft , και είναι πολύ ισχυρό, αλλά σχετικά εύκολο να μαθαίνουν και να χρησιμοποιούν . Ένα σύνολο δεδομένων είναι παρόμοια με έναν πίνακα - μπορείτε να προσθέσετε στήλες και τις σειρές των στοιχείων σε αυτό και να το αποθηκεύσει στη μνήμη όλων . Σε μερικά βήματα μπορείτε να γράψετε τον κωδικό VB.NET για να προσθέσετε ένα σύνολο δεδομένων σε έναν πίνακα δεδομένων . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Basic Express και κάντε κλικ στο "New Project ... " στο αριστερό τμήμα της οθόνης σας . Κάντε διπλό κλικ στο " Εφαρμογή κονσόλας . " Πατήστε το πλήκτρο " Ctrl " και " A " και στη συνέχεια πατήστε το κουμπί " Διαγραφή" για να διαγράψετε υπάρχοντα κώδικα . 2

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη λειτουργική μονάδα " Module1.vb " σας . Ο κωδικός θα κάνει μια σύνδεση σε μια βάση δεδομένων της Microsoft Access , το ερώτημα « TEST_CASE » και εισάγετε τα περιεχόμενά του σε έναν πίνακα δεδομένων . Ο κώδικας τότε θα εμφανιστούν τα περιεχόμενα του πίνακα δεδομένων .

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

Module Module1

Sub Main ( )

Dim connString As String = " Provider = Microsoft.Jet.OLEDB.4.0 ? προέλευσης δεδομένων = C : \\ testDatabase.mdb "

Dim MyConnection Όπως OleDbConnection = Νέα OleDbConnection

Dim da Όπως OleDbDataAdapter

Dim ds Όπως DataSet

myConnection.ConnectionString = connString

da = Νέα OleDbDataAdapter ( "SELECT TEST_CASE . * ΑΠΟ TEST_CASE " , MyConnection )

ds = New DataSet

da.Fill (ds , " TEST_CASE " )

Dim dt Όπως DataTable = ds.Tables ( " TEST_CASE " )

For Each dtRow Όπως DataRow Σε dt.Rows

Για Κάθε col Όπως DataColumn Σε dt.Columns

Console.WriteLine ( dtRow ( col ) )

Επόμενο

Console.WriteLine ( " " . PadLeft ( 20 , " = " ) )

Επόμενο

myConnection.Close ( )

End Sub

End Module
Η
3

Επεξεργαστείτε την ακόλουθη γραμμή κώδικα και πληκτρολογήστε τη διαδρομή της βάσης δεδομένων της Access :

Dim connString As String = " Provider = Microsoft.Jet.OLEDB.4.0 ? προέλευσης δεδομένων = C : \\ testDatabase . mdb "

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