την εφαρμογή 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 = _
Από 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 " για να δείτε τα αποτελέσματα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα