Verbinding maken met een Microsoft Access- database met behulp van Visual Basic.NET kan uw VB- applicatie dynamischer te maken door het gebruik van databasegegevens rechtstreeks vanuit uw toepassing . De snelste manier om verbinding te maken met uw Access-database is met behulp van ActiveX Data Objects ( ADO ) . ADO biedt een COM - gebaseerde applicatie - niveau interface voor OLE DB data providers. Zodra u de verbinding tot stand kunt u databasetabellen bevragen door het gebruik van " IDbDataAdapter " en " DataSet " objecten. Wat je nodig hebt
Microsoft Visual Studio
Noordenwind Access-database
Toon Meer Aanwijzingen
1 Lancering Microsoft Visual Studio , klikt u op " New Project" van het linkerpaneel van uw computerscherm , en uit te breiden " Visual Basic " onder " Geïnstalleerde sjablonen . " Klik op " Windows " en dubbelklik op " Windows Forms Application " van het centrum van het dialoogvenster om een nieuw project aan te maken .
Dubbelklik op " Button " 2 naar een nieuwe knop toe te voegen aan uw formulier . . Dubbelklik op " Button1 " om een nieuwe gebeurtenis click voor deze knop te maken
3 Definieer de connectie string naar de Noordenwind Access-database : Dim dbConString
As String = " Provider = Microsoft.ACE.OLEDB.12.0 ; data Source = C : \\ Noordenwind 2007.accdb ; " Dim dbCon
Zoals System.Data.IDbConnection = Nieuw System.Data.OleDb.OleDbConnection ( dbConString ) < br > Goedkope 4 Definieer een SQL-query verklaring aan de " Werknemers " table opvragen: Dim qryStr
As String = " SELECT * FROM Werknemers Werknemers . " Dim dbCmd
als System.Data.IDbCommand = Nieuwe System.Data.OleDb.OleDbCommand dbCmd.CommandText
= qryStr dbCmd.Connection
5 Maak een data -adapter = dbCon
en vul een " DataSet " met de resultaten van de query : Dim da
Zoals System.Data.IDbDataAdapter = Nieuwe System.Data.OleDb.OleDbDataAdapter
da.SelectCommand = dbCmd
Dim ds Zoals System.Data.DataSet = Nieuwe System.Data.DataSet da.Fill
( ds )
6 Laat de resultaten in de " DataSet " met een " DataGridView " control:
Me.DataGridView1.DataSource = ds.Tables ( 0 )
Press 7 " . F5 "om het programma uit te voeren en klik op " Button1 "
< br >
|
