Weten hoe om queries uit te voeren en toegang tot het geretourneerd door een query met behulp van Microsoft Visual Basic.NET informatie kunt u tijd besparen als je werkt met databases . Microsoft Office Access is een relationele database management systeem aangeboden in het Office-pakket , terwijl een query wordt gebruikt om informatie op te halen uit een database tabel . VB.NET is een programmeertaal die is relatief eenvoudig te leren en te gebruiken . Gelukkig kunt u VB code te schrijven en toegang tot een VB query in slechts een paar minuten . Wat je nodig hebt
Microsoft Visual Basic Express & Noordenwind Access-database
Toon Meer Aanwijzingen
1 Open Microsoft Visual Basic Express . Klik op " New Project ... , " en selecteer vervolgens " Windows Forms Application . " Klik op "OK . "
Dubbelklik op " Button " 2 op de " Toolbox " deelvenster naar een nieuwe knop controle toe te voegen . Dubbelklik op " DataGridView " om een nieuw raster controle toe te voegen . Dubbelklik op " Button1 " om de " Form1.vb " module te openen . Druk op " Ctrl " en " A " gelijktijdig gevolgd door " Delete" om alle bestaande code te verwijderen .
Kopieer 3 en plak de onderstaande code om verbinding met de database Noordenwind , query de " Producten " tafel en de inhoud via de " Data Grid View " control: Imports System.Data.Odbc.OdbcConnection Public Class
Form1
Private Sub Button1_Click ( ByVal afzender zoals System.Object , ByVal e als System.EventArgs ) Handles Button1.Click Dim nwindConn
zoals Odbc.OdbcConnection Dim qryStr
als Koord nwindConn
= Nieuw Odbc.OdbcConnection ( " DSN = NORTHWIND " ) nwindConn.Open ( ) op qryStr = "SELECT producten . [ Product Code ] , producten . [Naam ] , " qryStr
= qryStr & " Products.Description , producten . [ Standaard Kosten] , "
qryStr = qryStr & " producten . [ Catalogusprijs ] , producten . [ Reorder Level ] "
qryStr = qryStr & " FROM producten ; " Dim da
als Nieuwe Odbc.OdbcDataAdapter ( qryStr , nwindConn ) Dim ds
als Nieuwe Data.DataSet da.Fill
( ds , " myTable " ) op p Met DataGridView1
. DataSource = ds.Tables ( " myTable " ) Einde
Met nwindConn.Close
( ) op Twitter nwindConn.Dispose ( ) nwindConn = Nothing End Sub End Class
4
Bewerk de volgende regel code door verwijderen " NORTHWIND " en het intypen van de naam van uw DSN ( DSN = ) : nwindConn = Nieuwe Odbc.OdbcConnection
( " DSN = NORTHWIND " ) Druk op " F5
"om het programma uit te voeren en klik op" Button1 . "
|
