Du behöver ofta att exportera data till Access från Visual Basic om du behöver ytterligare manipulera data genom frågor i Access . I VB kan du använda " OleDbConnection " för att göra en anslutning till Access och sedan " OleDbCommand " klass används för att skapa tabeller eller infoga data i Access- tabeller . En data rutnät kontroll används ofta i VB för att visa data i ett tabellformat som liknar en databas tabell . Använda en styrdata rutnät för att visa data är användbar för användaren och för programmerare när du exporterar till en Access-tabell . Instruktioner
1
Starta Microsoft Visual Basic Express , klicka på " Nytt projekt ... " i den vänstra rutan på skärmen . Välj " Windows Forms Application . " Klicka på " OK . "
2
Dubbelklicka på " DataGridView " på " Toolbox " rutan för att lägga till en ny datastyrkanal rutnät . Lägg till en ny knapp med samma teknik .
3
Dubbelklicka på formuläret för att skapa en load-händelse för formuläret . Skriv följande kod för att lägga till data i rutnät kontroll : .
Me.DataGridView1.ColumnCount = 2 Review
DataGridView1
RowHeadersVisible = False
. kolumner ( 0 ) . Name = " Typ "
. kolumner ( 1 ) . Name = " Status "
. SelectionMode = DataGridViewSelectionMode.FullRowSelect
End With
Dim row0 As String ( ) = { " iPad " , " slutsåld " }
Dim rad1 As String ( ) = { " monitor" , " I lager " }
Me.DataGridView1.Rows
. Lägg ( row0 ) katalog
. Lägg ( rad1 ) katalog
End With
4
Klicka " Form1.vb [ Design ] " och dubbelklicka på " Button1 " för att skapa en click-händelse för knappen . Skriv följande kod för att deklarera nya variabler du använder för att exportera data datarutnät view :
Dim dbConn Som OleDbConnection
Dim dbCommand Som OleDbCommand
Dim SQLString As String
5
Skriv följande för att skapa och öppna anslutningen till Access :
dbConn = Ny OleDbConnection ( " Provider = Microsoft.ACE.OLEDB.12.0 , Data Source = C : \\ Northwind 2007.accdb ; " ) katalog
dbConn.Open ( )
6
Skapa en ny tabell i Access där uppgifterna kommer att exporteras till :
SQLString = " CREATE TABLE GridData ( Typ TEXT , Status TEXT ) "
dbCommand = Ny OleDbCommand ( SQLString , dbConn ) katalog
dbCommand.ExecuteNonQuery ( )
7
Loop genom varje cell i uppgifterna rutnät kontroll och exportera data till Access-tabell som du skapade i föregående steg genom att lägga till följande kod :
för varje rad som DataGridViewRow i DataGridView1.Rows
SQLString = " INSERT INTO GridData ( Typ , Status ) "
SQLString = SQLString & " VALUES ( ' " & row.Cells.Item ( " Type " ) . Value & " ' , "
SQLString = SQLString & " ' " & row.Cells.Item ( " Status " ) . Value & " ' ) "
dbCommand = Ny OleDbCommand ( SQLString , dbConn ) katalog
dbCommand.ExecuteNonQuery ( )
Nästa
dbConn.Close ( )
8
Tryck " F5 " för att köra programmet och klicka på " Button1 " för att exportera data till Access .
Addera ditt
