Je moet vaak om gegevens te exporteren naar Access vanuit Visual Basic als je nodig hebt om de gegevens verder te manipuleren door middel van query's in Access . In VB kunt u de " OleDbConnection " gebruiken om een verbinding naar Access , en vervolgens de " OleDbCommand " klasse wordt gebruikt om tabellen te maken of invoegen van gegevens in Access-tabellen . Een data grid view controle wordt vaak gebruikt in VB om gegevens in tabel formaat vergelijkbaar met een database tabel weergeven. Met behulp van een data grid view controle om gegevens weer te geven is nuttig voor de gebruiker en voor de programmeurs bij het exporteren naar een Access-tabel . Instructies
1 Start Microsoft Visual Basic Express , klikt u op " New Project ... " aan de linkerkant van uw scherm . Selecteer " Windows Forms Application . " Klik op "OK . "
Dubbelklik op " DataGridView " 2 op de " Toolbox " deelvenster naar een nieuwe data grid view controle toe te voegen . Voeg een nieuwe knop met behulp van dezelfde techniek .
3 Dubbelklik op het formulier om een belasting gebeurtenis voor het formulier te maken . Typ de volgende code om gegevens toe te voegen aan het raster controle : . Me.DataGridView1.ColumnCount = 2
Met DataGridView1
RowHeadersVisible = False
. columns ( 0 ) . Naam = " Status "
. SelectionMode = DataGridViewSelectionMode.FullRowSelect End of = " Type"
. columns ( 1 ) . Naam Met
Dim row0 As String ( ) = { " iPad " , " Uitverkocht " } Dim row1
As String ( ) = { " Monitor " , " In voorraad " }
Met Me.DataGridView1.Rows
. toevoegen ( row0 ) op . toevoegen ( row1 ) Einde
Met
4 Klik op " Form1.vb [Design ] " en dubbelklik op" Button1 " naar een gebeurtenis click voor de knop te maken . Typ de volgende code om nieuwe variabelen die je zal gebruiken om de data grid view exporteren verklaren : Dim dbConn
Zoals OleDbConnection
Dim dbcommand Zoals OleDbCommand Dim SQLString
als Koord < br >
Type 5 het volgende om de verbinding te maken en te openen voor Toegang : dbConn = Nieuwe OleDbConnection
( " Provider = Microsoft.ACE.OLEDB.12.0 ; data Source = C : \\ Northwind 2007.accdb ; " ) dbConn.Open ( )
6 Maak een nieuwe tabel in Access , waar de gegevens worden geëxporteerd naar :
SQLString = " CREATE TABLE GridData ( type TEXT , Status TEKST ) op Twitter dbcommand = Nieuw OleDbCommand ( SQLString , dbConn ) dbCommand.ExecuteNonQuery ( )
Loop "
7 door elke cel in de data grid view controle en de gegevens te exporteren naar de Access-tabel die u hebt gemaakt in de vorige stap door toevoeging van de volgende code :
voor Elke rij Zoals DataGridViewRow in DataGridView1.Rows
SQLString = " INSERT INTO GridData ( Type , Status ) "
SQLString = SQLString & " VALUES ( ' " & row.Cells.Item ( " Type" ) . Value & " ' , ' SQLString
= SQLString & " ' " & row.Cells.Item ( "Status" ) . Value & " ' ) " dbcommand = Nieuw OleDbCommand ( SQLString , dbConn ) dbCommand.ExecuteNonQuery ( ) op Twitter Volgende dbConn.Close ( )
Druk op " F5 " 8
om het programma uit te voeren en klik op " Button1 " om de gegevens te exporteren naar Access . < br >
|
