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 .