Nwlapcug.com


Come eseguire una Query di Access in VB

Come eseguire una Query di Access in VB


Microsoft Access fornisce alle piccole imprese con una soluzione di database. L'accesso è incluso con Microsoft Office Suite di applicazioni, quindi è più conveniente di database aziendali, ad esempio Oracle o SQL Server. L'accesso è in grado di eseguire la query, quindi è possibile recuperare i record per l'applicazione web dal file di database. Poiché Visual Basic (VB) è anche un prodotto Microsoft, recupero dei record richiede solo poche righe di codice.

Istruzioni

1

Creare le variabili necessarie per il processo di query. Una connessione, la query e l'oggetto set di record sono necessari per recuperare record da Visual Basic. Il codice seguente definisce ogni oggetto VB richiesto:

Dim conn As ADODB. Connessione
Dim SQL As String
Dim rs As ADODB. Recordset

2

Creare la connessione al database di Access. Il collegamento trova il file di database e lo apre, quindi è possibile eseguire query sul file. Il codice seguente apre il database di Access:

conn. Aprire \"Provider=Microsoft.Jet.OLEDB.4.0; Dati Source=c:\theDB.mdb\"

3

Creare la stringa di query. Il \"SQL\" variabile definita nel primo passaggio viene utilizzato per creare la query. In questo esempio, la query restituisce i nomi per un elenco di clienti. Il codice seguente crea una query di Access:

SQL = \"select first_name dal cliente"

4

Eseguire la query sul database di Access utilizzando l'oggetto di connessione. Il codice seguente esegue la query e assegna i risultati per il \"rs\" variabile creata al passaggio uno:

RS. Open SQL, conn

5

Stampare un record per verificare che la query è stata completata. È possibile verificare i risultati mediante la creazione di una finestra di messaggio che mostra il primo record nei risultati. Quanto segue stampa il primo \"first_name\" nel vostro set di record:

MsgBox \"The primo record è \" & rst [0]. ToString