Du trenger ofte å eksportere data til Access fra Visual Basic hvis du trenger å bearbeide dataene ytterligere gjennom spørringer i Access. I VB kan du bruke " OleDbConnection " for å opprette en tilkobling til Access , og deretter " OleDbCommand " klassen brukes til å lage tabeller eller sette inn data i Access tabeller . En data grid view kontroll er ofte brukt i VB for å vise data i tabellform format som ligner på en database tabell . Ved hjelp av en data grid view kontroll for å vise data er nyttig for brukeren og for programmerere når du eksporterer til en Access-tabell . Instruksjoner
en

start Microsoft Visual Basic Express , klikker du "New Project ... " på den venstre ruten på skjermen. Velg " Windows Forms Application ". Klikk "OK".
2

Dobbeltklikk på " DataGridView " på " Toolbox" -ruten for å legge til en ny data grid view kontroll. Legg til en ny knapp med samme teknikk.
3

Dobbeltklikk skjemaet for å opprette en last hendelsen for skjemaet. Skriv inn følgende kode for å legge til data i rutenett kontroll : .

Me.DataGridView1.ColumnCount = 2
p Med DataGridView1

RowHeadersVisible = False

. kolonner ( 0 ) . Name = "Type"

. kolonner ( 1) . Name = " Status "

. SelectionMode = DataGridViewSelectionMode.FullRowSelect

End With

Dim row0 As String ( ) = {" iPad" , " Utsolgt "}

Dim ROW1 As String ( ) = { "Monitor ", " På lager "}
p Med Me.DataGridView1.Rows

. Legg til ( row0 )

. Legg til ( ROW1 )

End With
4

Klikk " Form1.vb [Design ] " og dobbeltklikk på" Button1 "for å skape et klikk hendelsen for den knappen . Skriv inn følgende kode for å erklære nye variabler du vil bruke til å eksportere data Grid View data : en

Dim dbConn Som OleDbConnection

Dim dbCommand Som OleDbCommand

Dim SQLString As String

5

Skriv inn følgende for å opprette og åpne tilkoblingen til Access : en

dbConn = Ny OleDbConnection ( " Provider = Microsoft.ACE.OLEDB.12.0 ; datakilde = C: \\ Northwind 2007.accdb ; ")

dbConn.Open ( )
6

Opprett en ny tabell i Access hvor dataene vil bli eksportert til :

SQLString =" CREATE TABLE GridData ( Tekst, Status TEKST ) "

dbCommand = Ny OleDbCommand ( SQLString , dbConn )

dbCommand.ExecuteNonQuery ( )
7

Loop gjennom hver celle i data rutenettvisningen kontroll og eksportere data til Access-tabellen du opprettet i forrige trinn ved å legge følgende kode:

Hver rad Som DataGridViewRow i DataGridView1.Rows

SQLString = " INSERT INTO GridData ( Type, Status )"

SQLString = SQLString & " VALUES ( ' " & row.Cells.Item ( "Type" ) . Value & "', "

SQLString = SQLString & " ' " & row.Cells.Item ( "Status" ) . Value & " ' )"

dbCommand = Ny OleDbCommand ( SQLString , dbConn )

dbCommand.ExecuteNonQuery ( )

Neste

dbConn.Close ( )
8

Trykk " F5 " for å kjøre programmet og klikk " Button1 " for å eksportere dataene til Access .