Πώς να μετατρέψετε LINQ Αποτελέσματα σε DataTable

Μετατροπή γλώσσα ολοκληρωμένο ερώτημα ( LINQ ) αποτελέσματα σε ένα DataTable μπορεί εύκολα να επιτευχθεί με τη χρήση ενός DataSet και μερικές άλλες κατηγορίες . Μια DataTable παριστά έναν πίνακα από τα δεδομένα της μνήμης που μπορεί να χρησιμοποιηθεί για πολλά πράγματα, όπως εποίκηση έλεγχο DataGridView . Μια εμφανίζει τα δεδομένα ελέγχου DataGridView χρησιμοποιώντας γραμμές και στήλες . Στο Visual Basic.NET , μπορείτε να υποβάλετε ερώτημα δεδομένα από μια βάση δεδομένων της Access και να το αποθηκεύσετε σε ένα DataSet . Μπορείτε να υποβάλετε ερωτήματα στον DataSet χρησιμοποιώντας LINQ σε SQL και θηλιά μέσα από τα αποτελέσματα για να τα αποθηκεύσετε σε ένα DataTable . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας και να επεκτείνουν " Visual Basic " κάτω " εγκατεστημένα πρότυπα . " Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Windows Forms Application " από το κέντρο του παραθύρου διαλόγου για να δημιουργήσετε ένα νέο έργο . 2

διπλό κλικ στο " DataGridView " για να προσθέσετε ένα νέο στοιχείο ελέγχου στη φόρμα σας . Κάντε διπλό κλικ στο " κουμπί" για να προσθέσετε ένα νέο κουμπί στη φόρμα σας . Κάντε διπλό κλικ στο " Button1 " για να δημιουργήσετε ένα συμβάν κλικ
εικόνων 3

Προσθέστε την ακόλουθη γραμμή κώδικα στην κορυφή της λειτουργικής μονάδας για την εισαγωγή του namespace : .

Εισαγωγές Σύστημα . Data.OleDb
Η 4

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

Dim connString As String = " Provider = Microsoft . ACE.OLEDB.12.0 ? Πηγή δεδομένων = C : \\ Northwind 2007.accdb "

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

Dim ds Όπως DataSet

Dim da Όπως OleDbDataAdapter

myConnection.ConnectionString = connString

da = Νέα OleDbDataAdapter ( "Επιλογή * Από τους προμηθευτές " , MyConnection )

ds = New DataSet

da . Γεμίστε (ds , «Προμηθευτής»)

myConnection.Close ( )
5

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε ένα νέο DataTable με μία στήλη :

Dim πίνακα Όπως DataTable = Νέα DataTable ( " SupplierTable " )

στήλη Dim Όπως DataColumn

σειρά Dim Όπως DataRow

στήλη = Νέα DataColumn ( )

column.DataType = System.Type.GetType ( " System.String " )

column.ColumnName = "Εταιρεία "

column.Caption = "Εταιρεία "

στήλη . ReadOnly = False

table.Columns.Add ( στήλη )
Η 6

Χρησιμοποιήστε LINQ για να πάρει τα αποτελέσματα του ερωτήματος SQL :

Δημ. supplierQuery = _
< p > Από cust σε ds.Tables ( «Προμηθευτής») . AsEnumerable _

Επιλέξτε cust ! Εταιρεία
Η 7

Προσθέστε το INQ στα αποτελέσματα SQL για να DataTable σας και να εμφανίσει τα αποτελέσματα μέσω ο έλεγχος DataGridView :

σειρά = table.NewRow ( )

For Each cust Σε supplierQuery

σειρά ( «Εταιρεία» ) = cust

πίνακα . Rows.Add ( σειρά )

σειρά = table.NewRow ( )

Επόμενο

Me.DataGridView1.DataSource = τραπέζι
8

τύπου " F5 " για να εκτελέσετε το πρόγραμμα και κάντε κλικ στο " Button1 " για να δείτε τα αποτελέσματα .
Η
εικόνων