Du har ofte brug for at eksportere data til Access fra Visual Basic , hvis du har brug for yderligere manipulere data via forespørgsler i Access. I VB kan du bruge " OleDbConnection " for at gøre en forbindelse til Access, og derefter " OleDbCommand " klasse bruges til at oprette tabeller eller indsætte data i Access-tabeller . Et data grid view kontrol er almindeligt anvendt i VB til at vise data i et tabelformat ligner en database tabel . Ved hjælp af en data grid view kontrol til at vise data er nyttigt for brugeren og for de programmører , når de eksporterer til en Access- tabel. Instruktioner
1

Start Microsoft Visual Basic Express , klik på " Nyt projekt ... " på den venstre rude på skærmen. Vælg "Windows Forms Application ". Klik på "OK".
2

Dobbeltklik på " DataGridView " på " Toolbox" ruden for at tilføje en ny data grid view kontrol. Tilføj en ny knap ved hjælp af samme teknik.
3

Dobbeltklik på formularen for at oprette en belastning begivenhed for formularen. Indtast følgende kode til at tilføje data til elnettet kontrol : .

Me.DataGridView1.ColumnCount = 2

DataGridView1

RowHeadersVisible = False

. kolonner ( 0) . Name = "Type "

. kolonner (1) . Name = "Status"

. SelectionMode = DataGridViewSelectionMode.FullRowSelect

End With

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

Dim række1 As String () = { "Monitor ", " På lager "}

Me.DataGridView1.Rows

. Tilføj ( row0 )

. Tilføj ( række1 )

End With
4

Klik på " Form1.vb [ Design ] ", og dobbeltklik på" Button1 "for at oprette et klik begivenhed for knappen. Indtast følgende kode til at erklære nye variabler , du vil bruge til at eksportere data netoversigt data : Hej

Dim dbconn Som OleDbConnection

Dim dbCommand Som OleDbCommand

Dim SQLString As String < br >
5

Skriv følgende for at oprette og åbne forbindelsen til Access : Hej

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

dbConn.Open ()
6

Opret en ny tabel i Access , hvor data vil blive eksporteret til : Hej

SQLString =" CREATE TABLE GridData (Type TEKST , Status TEXT) "

dbCommand = Ny OleDbCommand ( SQLString , dbconn )

dbCommand.ExecuteNonQuery ()
7

Loop gennem hver celle i data grid view kontrol og eksportere data til Access-tabel, du oprettede i forrige trin ved at tilføje følgende kode : Hej

Hver række 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 ()

Næste

dbConn.Close ()
8

Tryk på " F5 " for at køre programmet, og klik på " Button1 " at eksportere data til Access . < br >