Microsoft Access è un piccolo motore di database utilizzato da principianti o per i siti web di piccole dimensioni. È possibile utilizzare Visual Basic (VB) per interrogare il database direttamente nel codice. Questo è utile per coloro che vogliono fornire un sito web dinamico per i loro lettori. Per interrogare il database, è necessario creare una connessione, inviare la query e assegnare i risultati per il proprio variabile di Visual Basic.

istruzione

1 Fare doppio clic sul form di Visual Basic per aprire il codice del file e caricarlo nel vostro editor di VB. Scorrere verso il basso fino alla sezione del codice VB in cui si desidera inserire la connessione al database e query.

2 Creare la connessione al database. La variabile di connessione contiene il server e il database a cui si desidera connettersi. Il codice seguente crea una connessione:

conn Dim come stringa = "Data Source = localhost; Initial Catalog = Northwind; Integrated Security = True"

sqlcon fioco come SqlConnection = new SqlConnection (conn)

sqlcon.Open ()

Il testo "localhost" connette al computer locale in cui si trova il codice sito. Se il server di database è su un altro computer, digitare il nome del computer, invece di "localhost". Sostituire "Northwind" con il nome del database.

3 Interrogare le tabelle e recuperare le informazioni del database. Il codice seguente mostra come query di Access utilizzando la connessione creata nel passaggio tre:

Dim Variabile As String = "Miami"

Dim strSelect As String = "SELECT * FROM clienti WHERE città = '" & variabile & "'"

Dim dscmd come nuovo SqlDataAdapter (strSelect, sqlcon)

Dim ds come nuovo DataSet ()

dscmd.Fill (ds, "clienti")

Nel codice precedente, viene inviata una query al database di Access utilizzando la variabile denominata "variabile". Questa variabile contiene la città "Miami". Questa variabile viene inviato al database Access. La query viene inviata e tenuto in una variabile di dati chiamata "ds".

4 Stampate il primo record per testare il nuovo codice. Il seguente codice stampa il cognome del primo record nei risultati della query:

MsgBox ds.Tables.Item ( "cognome")