Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Visual Basic Express , kliknite na tlačidlo " New Project ... " na ľavom paneli obrazovky . Vyberte " Windows Forms . " Kliknite na tlačidlo " OK " .
2
Double - kliknite na " DataGridView " na " Toolbox " paneli pridať nový ovládací prvok zobrazenie mriežky dát . Pridať nové tlačidlo s použitím rovnakého postupu .
3
Dvakrát kliknite na formulár vytvoriť udalosť zaťaženie pre formulár . Zadajte nasledujúci kód pre pridanie dát do ovládacieho prvku mriežky :
Me.DataGridView1.ColumnCount = 2
DataGridView1
RowHeadersVisible = False
.. stĺpce ( 0 ) . Name = " Typ "
. Columns ( 1 ) . Name = " Status "
. SelectionMode = DataGridViewSelectionMode.FullRowSelect
End With
Dim row0 As String ( ) = { " iPad " , " Vypredané " }
Dim row1 As String ( ) = { " Monitor " , " sklade " }
S Me.DataGridView1.Rows
. Pridať ( row0 )
. Add ( ROW1 )
End With
4
Kliknite na " Form1.vb [ Návrh ] " a double - kliknite na " Button1 " vytvoriť udalosť click na tlačidlo . Zadajte nasledujúci kód deklarovať nové premenné , ktoré budete používať pre export zobrazenie mriežky dát údaje o :
Dim dbConn Ako OleDbConnection
Dim DbCommand Ako OleDbCommand
Dim SQLString As String
5
Zadajte nasledujúce vytvoriť a otvoriť pripojenie k Access :
dbConn = New OleDbConnection ( " Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C : \\ Northwind 2007.accdb ; " )
dbConn.Open ( )
6
Vytvoriť novú tabuľku v programe Access , kde budú údaje exportujú do :
SQLString = " CREATE TABLE GridData ( typ TEXT , TEXT Status ) "
DbCommand = New OleDbCommand ( SQLString , dbConn )
dbCommand.ExecuteNonQuery ( )
7
slučky cez seba buniek v kontrole zobrazenie mriežky dát a export dát do tabuľky programu Access , ktorý ste vytvorili v predchádzajúcom kroku pridaním nasledujúceho kódu : klipart
pre každý riadok Ako DataGridViewRow v DataGridView1.Rows
SQLString = " INSERT INTO GridData ( typ , stav ) , "
SQLString = SQLString a " VALUES ( ' " & row.Cells.Item ( " typ " ) . Value & " ' , "
SQLString = SQLString & " ' " & row.Cells.Item ( " Status " ) . Value & " ' ) "
DbCommand = New OleDbCommand ( SQLString , dbConn )
dbCommand.ExecuteNonQuery ( )
Ďalšie
dbConn.Close ( )
8
Stlačte " F5 " spustiť program a kliknite na tlačidlo " Button1 " exportovať dáta do aplikácie Access .