Sapere come eseguire query e accedere alle informazioni restituite da una query utilizzando Microsoft Visual Basic.NET consente di risparmiare tempo se si lavora con i database . Microsoft Office Access è un sistema di gestione di database relazionale offerto nella suite di Office, mentre una query viene utilizzato per recuperare informazioni da una tabella di database . VB.NET è un linguaggio di programmazione di computer che è relativamente facile da imparare e da usare . Fortunatamente, è possibile scrivere codice VB e accedere a una query di VB in pochi minuti. Cose che ti serviranno
Microsoft Visual Basic Express
Northwind database Access
Mostra più istruzioni
1

Aprire Microsoft Visual Basic Express. Fare clic su "Nuovo Progetto ... ", quindi selezionare "Applicazione Windows Form ". Fare clic su "OK".

2 Fare doppio clic su "Pulsante" nel riquadro " Casella degli strumenti " 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" allo stesso tempo seguita da "Elimina" per rimuovere tutto il codice esistente .
3

Copia e incolla il codice sottostante per la connessione al database Northwind , interrogare i "Prodotti " tabella e visualizzare il contenuto attraverso la" Griglia dati " di controllo :

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 = New Odbc.OdbcConnection ( " DSN = NORTHWIND " ) per

nwindConn.Open ( ) per

qryStr = "Prodotti selezionare. [ Codice di prodotto] , i prodotti . [ Nome di prodotto ] , "

qryStr = qryStr & " Products.Description , Prodotti . [Costo standard] , "

qryStr = qryStr & " Prodotti . [ Listino ] , i prodotti . [Riordina Livello] "

qryStr = qryStr & " da prodotti ";

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

Dim ds As New Data.DataSet

da.Fill ( ds , " myTable " ) per

DataGridView1

. DataSource = ds.Tables ( " myTable " ) per terminare con

nwindConn.Close ( ) per

nwindConn.Dispose ( ) per

nwindConn = Nothing End Sub

End Class
4

modificare la seguente riga di codice da rimozione " NORTHWIND " e digitando il nome del DSN ( DSN = ) :

nwindConn = New Odbc.OdbcConnection ( " DSN = NORTHWIND " ) per stampa

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