Saper eseguire query e accedere alle informazioni restituite da una query utilizzando Microsoft Visual Basic.NET può risparmiare tempo se si sta lavorando con i database. Microsoft Office Access è un sistema di gestione di database relazionali offerti nella suite di Office, mentre una query viene utilizzata per recuperare informazioni da una tabella del database. VB.NET è un linguaggio di programmazione che è relativamente facile da imparare e da usare. Fortunatamente, è possibile scrivere codice VB e accedere a una query VB in pochi minuti.

istruzione

1 Aprire Microsoft Visual Basic Express. Fai clic su "Nuovo progetto ..." e poi selezionare "Applicazione Windows Form." Fai clic su "OK".

2 Fare doppio clic su "Button" nel riquadro "Toolbox" per aggiungere un nuovo controllo pulsante. Fare doppio clic su "DataGridView" per aggiungere un nuovo controllo della griglia. Fare doppio clic su "Button1" per aprire il modulo "Form1.vb". Premere il tasto "Ctrl" e "A" simultaneamente seguito da "Elimina" per rimuovere tutto il codice esistente.

3 Copia e incolla il codice qui sotto per connettersi al database Northwind, interrogare la tabella "Prodotti" e visualizzare il contenuto tramite il controllo "Data Grid View":

Le importazioni System.Data.Odbc.OdbcConnection

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim nwindConn Come Odbc.OdbcConnection

Dim qryStr As String

nwindConn = Nuovo Odbc.OdbcConnection ( "DSN = NORTHWIND")

nwindConn.Open ()

qryStr = "SELECT Products. [Codice di prodotto], Products. [Nome di prodotto],"

qryStr = qryStr & "Products.Description, Products. [dei costi standard],"

qryStr = qryStr e "Products. [Listino], Prodotti. [Livello Riordina]"

qryStr = qryStr e "FROM Products;"

Dim da come nuovo Odbc.OdbcDataAdapter (qryStr, nwindConn)

Dim ds come nuovo Data.DataSet

da.Fill (ds, "myTable")

con DataGridView1

.DataSource = Ds.Tables ( "myTable")

End With

nwindConn.Close ()

nwindConn.Dispose ()

nwindConn = Nothing

End Sub

End Class

4 Modificare la seguente riga di codice, eliminando "NORTHWIND" e digitando il nome del DSN (DSN = <DSN Name>):

nwindConn = Nuovo Odbc.OdbcConnection ( "DSN = NORTHWIND")

Premere il tasto "F5" per eseguire il programma e fare clic su "Button1".