Vide, hvordan at udføre forespørgsler og adgang til oplysninger, der returneres af en forespørgsel ved hjælp af Microsoft Visual Basic.NET kan spare dig tid, hvis du arbejder med databaser. Microsoft Office Access er en relationel database management system , der tilbydes i Office -pakken, mens en forespørgsel bruges til at hente information fra en database tabel . VB.NET er en computer programmeringssprog, der er relativt let at lære og bruge . Heldigvis kan du skrive VB kode og få adgang til en VB forespørgsel på blot et par minutter. Ting du skal
Microsoft Visual Basic Express & Northwind Access-database
Vis Flere Instruktioner
1
Åbn Microsoft Visual Basic Express . Klik på " Nyt projekt ... " og derefter vælge "Windows Forms Application ". Klik på "OK".
2
Dobbeltklik på " Button " på " Toolbox" ruden for at tilføje en ny knap kontrol. Dobbeltklik på " DataGridView " for at tilføje en ny tavle kontrol. Dobbeltklik på " Button1 " for at åbne " Form1.vb "-modulet . Tryk på " Ctrl " og " A" samtidig efterfulgt af " Slet " for at fjerne alle eksisterende kode.
3
Kopier og indsæt koden nedenfor til at oprette forbindelse til databasen Northwind , query "Produkter " bord og vise indholdet gennem" Data Grid View "kontrol : Hej
Import System.Data.Odbc.OdbcConnection
Public Class Form1
Private Sub Button1_Click ( ByVal afsender som System.Object , ByVal e som System.EventArgs ) Handles Button1.Click
Dim nwindConn som Odbc.OdbcConnection
Dim qryStr As String
nwindConn = Ny Odbc.OdbcConnection ( " DSN = NORTHWIND " )
nwindConn.Open ()
qryStr = "Vælg produkter . [ Product Code ] Produkter . [ Produktnavn] , "
qryStr = qryStr & " Products.Description , produkter . [ Standard Cost ] , "
qryStr = qryStr & " Produkter . [ Pris ] Produkter . [Ordn Level] "
qryStr = qryStr & " FROM produkter"
Dim da Som Nye Odbc.OdbcDataAdapter ( qryStr , nwindConn )
Dim ds As New Data.DataSet
da.Fill (DS , " MinTabel " )
DataGridView1
. DataSource = ds.Tables ( " MinTabel " )
End Med
nwindConn.Close ()
nwindConn.Dispose ()
nwindConn = Nothing
End Sub
End Class
4
Rediger følgende linje kode ved fjerne " NORTHWIND " og skrive navnet på din DSN ( DSN = ) : Hej nwindConn = Ny Odbc.OdbcConnection ( " DSN = NORTHWIND " )
Tryk på " F5 "for at køre programmet, og klik på" Button1 . "