Att veta hur man köra frågor och komma åt den information som returneras av en fråga med Microsoft Visual Basic.NET kan spara tid om du arbetar med databaser . Microsoft Office Access är en relationsdatabas management system som erbjuds i Office-paketet , medan en fråga används för att hämta information från en databas tabell . VB.NET är en dator programmeringsspråk som är relativt lätt att lära sig och använda . Lyckligtvis kan du skriva VB-kod och få tillgång till ett VB fråga på bara några minuter . Saker du behöver
Microsoft Visual Basic Express Review Northwind Access-databas
Visa fler instruktioner
1
Öppna Microsoft Visual Basic Express . Klicka på " Nytt projekt ... , " och välj sedan " Windows Forms Application . " Klicka på " OK . "
2
Dubbelklicka på " knappen " på " Toolbox " rutan för att lägga till en ny knapp kontroll . Dubbelklicka på " DataGridView " för att lägga till ett nytt rutnät kontroll . Dubbelklicka på " Button1 " för att öppna " Form1.vb " modul . Tryck på " Ctrl " och " A " samtidigt följt av " Delete " för att ta bort all befintlig kod .
3
Kopiera och klistra in koden nedan för att ansluta till Northwind databasen , söka i " Produkter " bord och visa innehållet genom " Data Grid View " kontroll :
Imports
System.Data.Odbc.OdbcConnection
Public Class Form1
Private Sub Button1_Click ( ByVal avsändare som System.Object , ByVal e som System.EventArgs ) Handtag Button1.Click
Dim nwindConn som Odbc.OdbcConnection
Dim qryStr As String
nwindConn = Ny Odbc.OdbcConnection ( " DSN = NORTHWIND " ) katalog
nwindConn.Open ( ) katalog
qryStr = "Välj produkter . [ Product Code ] , produkter . [ Produktnamn ] , "
qryStr = qryStr & " Products.Description , produkter . [Standard Cost ] , "
qryStr = qryStr & " produkter . [ Pris ] , produkter . [ Ändra ordning Level ] "
qryStr = qryStr & " från produkter , "
Dim da Som Nya Odbc.OdbcDataAdapter ( qryStr , nwindConn ) katalog
Dim ds As New Data.DataSet
da.Fill ( ds , " mytable " ) katalog
DataGridView1
. DataSource = ds.Tables ( " mytable " ) katalog
Avsluta med
nwindConn.Close ( ) katalog
nwindConn.Dispose ( ) katalog
nwindConn = Nothing
End Sub
End Class
4
Redigera följande kodrad genom bort " NORTHWIND " och skriva namnet på din DSN ( DSN = ) :
nwindConn = Ny Odbc.OdbcConnection ( " DSN = NORTHWIND " ) katalog
Tryck " F5 " för att köra programmet och klicka på " Button1 . " Addera
