Å vite hvordan man skal kjøre spørringer og få tilgang til informasjonen som returneres av en spørring ved hjelp av Microsoft Visual Basic.NET kan spare tid hvis du arbeider med databaser . Microsoft Office Access er en relasjonsdatabase styringssystem tilbys i Office-pakken , mens en spørring brukes til å hente informasjon fra en database tabell . VB.NET er et programmeringsspråk som er relativt lett å lære og bruke. Heldigvis kan du skrive VB -koden og få tilgang til en VB spørring i løpet av få minutter. Du trenger
Microsoft Visual Basic Express & Northwind Access database
Vis flere instruksjoner
en

Åpne Microsoft Visual Basic Express . Klikk "New Project ... ", og velg "Windows Forms Application ". Klikk "OK".
2

Dobbeltklikk på " Button" på " Toolbox" -panelet for å legge til en ny knapp kontroll. Dobbeltklikk på " DataGridView " for å legge til et nytt rutenett kontroll . Dobbeltklikk på " Button1 " for å åpne " Form1.vb " modulen. Trykk "Ctrl " og " A" samtidig etterfulgt av " Slett " for å fjerne all eksisterende kode .
3

Kopier og lim inn koden nedenfor til å koble til Northwind database, spørring enten "Produktene " bord og vise innholdet gjennom" Data Grid View " -kontroll : en

Import System.Data.Odbc.OdbcConnection

Public Class Form1

Private Sub button1_click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button1.Click

Dim nwindConn som Odbc.OdbcConnection

Dim qryStr As String

nwindConn = Ny Odbc.OdbcConnection ( " DSN = GASTRONOR " )

nwindConn.Open ( )

qryStr = "Velg produkter . [Product kode] , Products . [ Produktnavn ],"

qryStr = qryStr & " Products.Description , Products . [Standard Cost ],"

qryStr = qryStr & " produkter . [ Pris ] , Products . [Omgjøre Nivå] "

qryStr = qryStr & " Fra produkter , "

Dim da As Nye Odbc.OdbcDataAdapter ( qryStr , nwindConn )

Dim ds som ny Data.DataSet

da.Fill ( ds , " MyTable ")
p Med DataGridView1

. DataSource = ds.Tables ( " MyTable ")

End Med

nwindConn.Close ( )

nwindConn.Dispose ( )

nwindConn = Ingenting

End Sub

End Class
4

Rediger følgende kodelinje av fjerne " GASTRONOR " og skrive inn navnet på DSN din ( DSN = ) : en

nwindConn = Ny Odbc.OdbcConnection ( " DSN = GASTRONOR " )

Trykk " F5 "for å kjøre programmet og klikk" Button1 . "