Att veta hur man använder en DataSet att komma åt databasen informationen kan göra din ansökan mer dynamisk . Ett DataSet innehåller information från data som hämtas via en datakälla , som sedan nås programmatiskt . Du kan använda Microsoft Visual Basic.NET att komma åt information i en Access-databas . VB.NET är en dator programmeringsspråk som programvara ingenjörer använder för att utveckla webben , mobila och stationära applikationer . Du kan också använda ett DataSet med andra programmeringsspråk som C # . Instruktioner
1
Starta Microsoft Visual Basic Express och klicka på "Nytt projekt " i den vänstra rutan på din datorskärm . Klicka på " Visual Basic " under " Installerade mallar , " och klicka på " Windows Forms Application . " Klicka på " OK . "
2
Dubbelklicka på " listruta " på " Toolbox " rutan för att lägga till en ny kontroll listruta i formuläret . Dubbelklicka på " knappen " på " Toolbox " rutan för att lägga till en ny knapp .
3
Dubbelklicka på " Button1 " för att öppna " Form1.vb " modul . Skriv följande ovan " public class Form1 " att förklara namnrymden :
Imports System.Data.OleDb
4
Skriv följande under " Button1_Click " att deklarera dina variabler :
Dim oleDBConn som OleDbConnection
Dim strSQL As String
Dim DStäll som DataSet
5
Skriv följande för att definiera SQL strängen och definiera anslutning till Northwind databasen :
strSQL = " . utvalda produkter * från produkter , "
oleDBConn = Ny OleDbConnection _
( " Provider = Microsoft.ACE.OLEDB . 12,0 , Data Source = C : \\ Northwind 2007.accdb , " ) katalog
Redigera följande kodrad , och ange sökvägen och namnet på din Access-databas :
( " Provider = Microsoft . ACE.OLEDB.12.0 , Data Source = C : \\ Northwind 2007.accdb , " )
6
Skriv följande för att göra anslutningen och att fylla DataSet med data från tabellen Produkter :
Dim makeConn Som OleDbConnection = Ny OleDbConnection
Dim dataAptr Som OleDbDataAdapter
dataAptr = Ny OleDbDataAdapter ( strSQL , oleDBConn ) katalog
DStäll = Ny DataSet
dataAptr.Fill ( DStäll , "Produkter" )
7
Skriv följande för att komma till dataSet kolumner och lägg kolumn information till listrutan kontroll :
för varje myRows i dSet.Tables ( " produkter " ) . rader
Me.ListBox1.Items.Add ( myRows ( " Product Code " ) . ToString ) katalog
Me.ListBox1.Items.Add ( myRows ( " Namn " ) ToString ) katalog
Nästa
8
Skriv följande för att avsluta anslutningen : .
makeConn.Close ( ) katalog
Tryck " F5 " för att köra programmet , och klicka på " Button1 " för att köra koden .
