Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Spustite program Microsoft Visual Studio , kliknite na tlačidlo " Nový projekt " v ľavej časti okna obrazovky počítača a rozšíriť " Visual Basic " pod " Nainštalované šablóny . " Kliknite na " Windows " a double - kliknite na " Windows Forms aplikácie " od centra v dialógovom okne vytvoriť nový projekt . 
 2 
 Double - kliknite na " DataGridView " pridať nový ovládací prvok do formulára . Double - kliknite na " tlačidlo " pridať nové tlačidlo do formulára . Double - kliknite na " Button1 " vytvoriť udalosť click 
 3 
 Pridajte nasledujúci riadok kódu v hornej časti modulu importovať menný priestor : . 
 
 Dovoz systému . Data.OleDb 
 4 
 Pridajte nasledujúci kód vnútri udalosť click vytvoriť pripojenie k databáze programu Access a otázka tabuľku : 
 
 Dim connString As String = " Provider = Microsoft . ACE.OLEDB.12.0 ; Data Source = C : \\ Northwind 2007.accdb " 
 
 Dim myConnection ako OleDbConnection = New OleDbConnection 
 
 Dim ds ako DataSet 
 
 Dim da As OleDbDataAdapter 
 
 myConnection.ConnectionString = connString 
 
 da = New OleDbDataAdapter ( " SELECT * FROM Dodávatelia " , myConnection ) 
 
 ds = new DataSet 
 
da . vyplňte ( ds , " dodávateľ " ) , klipart
 myConnection.Close ( ) 
 5 
 skopírujte a vložte nasledujúci kód vytvoriť nové DataTable s jedným stĺpcom : 
 
 Dim stolný ako DataTable = new DataTable ( " SupplierTable " ) 
 
 Dim stĺpec ako DataColumn 
 
 Dim rade ako DataRow 
 
 stĺpec = New DataColumn ( ) 
 
 column.DataType = System.Type.GetType ( " System.String " ) 
 
 column.ColumnName = " Spoločnosť " 
 
 column.Caption = " Spoločnosť " 
 
 stĺpec . ReadOnly = False 
 
 table.Columns.Add ( stĺpec ) 
 6 
 Použitie LINQ získať výsledky dotazu SQL : 
 
 Dim supplierQuery = _ 
 < firma p > Z cust V ds.Tables ( " Dodávateľ " ) . AsEnumerable _ 
 
 Vyberte cust ! 
 7 
 Pridať INQ výsledkov SQL , aby vaše DataTable a zobrazenie výsledkov pomocou ovládanie DataGridView : 
 
 riadok = table.NewRow ( ) 
 
 každý cust V supplierQuery 
 
 rade ( ďalej len " Spoločnosť" ) = cust 
 
 stôl . Rows.Add ( riadok ) 
 
 riadok = table.NewRow ( ) 
 
 Ďalšie 
 
 Me.DataGridView1.DataSource = tabuľka 
 8 
 Press " F5 " spustiť program a kliknite na tlačidlo " Button1 " pre zobrazenie výsledkov .