È utile sapere come eseguire una query di un database di Microsoft Access utilizzando un nome di origine dati (DSN) attraverso una connessione Open Database Connectivity (ODBC). Microsoft Access è un'applicazione di database relazionale che viene comunemente utilizzata per i database. Visual Basic.NET viene spesso utilizzato per connettersi a un database di Access. I programmatori di solito richiedono l'esecuzione di query un contenuto del database per ulteriore manipolazione dei dati. Utilizzo di un DSN è conveniente perché è possibile aggiornare manualmente il DSN per puntare a un database diverso senza dover modificare il codice Visual Basic.
Istruzioni
1
Avviare Microsoft Visual Basic 2010 Express, fare clic su "File" e selezionare "Nuovo progetto...". Fare clic su "Windows Forms Applciation" e selezionare "OK".
Fare doppio clic sul "Pulsante" dal menu "Strumenti" per aggiungere un nuovo pulsante a "Form1". Fare doppio clic su "Button1" aprire "Form1. vb". Digitare "Importazioni System.Data.Odbc.OdbcConnection" nella prima riga del modulo "Form1. vb".
2
Fare clic all'interno di "Private Sub Button1_Click" e digitare quanto segue per dichiarare le variabili e aprire la connessione DSN:
Dim loopCounter As Integer
Dim odbcConn come Odbc.OdbcConnection
odbcConn = nuovo Odbc.OdbcConnection("DSN=myDSN")
odbcConn.Open()
Modificare "DSN = myDSN" per aggiungere il nome di "DSN".
3
Digitare quanto segue per eseguire query di database di Access:
OdbcDataAdapter Dim come nuovo Odbc.OdbcDataAdapter("SELECT TABLE1.* FROM TABLE1;", odbcConn)
Dim odbcDataSet As New Data.DataSet
odbcDataAdapter.Fill(odbcDataSet)
Modifica "SELECT TABLE1.* FROM TABLE1" per aggiungere il tuo particolare query.
4
Digitare quanto segue per scorrere in ciclo la query e visualizzare una finestra di messaggio con informazioni dal primo campo:
Per loopCounter = 0 To odbcDataSet.Tables(0). Rows. Count - 1
MsgBox(odbcDataSet.Tables(0). Rows(loopCounter). Item(0))
Successivo
5
Digitare il comando seguente per rilasciare le variabili dalla memoria:
odbcConn.Close()
odbcConn.Dispose()
odbcConn = Nothing
Premere "F5" per eseguire il programma e fare clic su "Button1".