Alla base di tutti i metodi di accesso ai dati di Visual Basic.NET si trova ADO.Net. Questa tecnologia di accesso ai dati è stato rilasciato nel quadro originale .Net. Si collega con molti server di database, tra cui Microsoft Access, offre maggiore flessibilità e fornisce una forte gestione degli errori. Collegamento a Microsoft Access può essere illustrato con la creazione di una semplice applicazione console che elenca i nomi da un database di contatti.

istruzione

1 Aprire Microsoft Access (2000 o successivo) e creare un nuovo database chiamato Contatti. Creare una tabella tblContacts e aggiungere due campi di testo, nome e cognome. Inserire un paio di nomi nella tabella, quindi chiudere Access.

2 Aprire Visual Basic.Net (qualsiasi versione) e creare una nuova applicazione console. Aggiungere la seguente riga prima dell'istruzione Module

Imports System.Data.OleDb

Module Module1

Lo spazio dei nomi OleDb fornisce riferimenti agli oggetti di accesso al database.

3 Aggiungere la seguente riga prima dell'istruzione Module

Imports System.Data.OleDb

Module Module1

Lo spazio dei nomi OleDb fornisce riferimenti agli oggetti di accesso al database.

4 Inserire una stringa di connessione dopo la dichiarazione del modulo.

Private connString As String = "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=d:\contacts.mdb;"

La stringa di connessione descrive come OleDb comunicherà con il database. Lla esempio utilizza il provider Microsoft ACE per comunicare con Access

banca dati d: \ contacts.mdb. Modificare la posizione in modo da riflettere il database creato nel passaggio 1.

5 Copiare il codice elencato di seguito nel metodo principale. Inizia dichiarando la searchString variabile, che contiene il comando SQL per selezionare i dati.

Sub Main()

searchString Dim come stringa = "Selezionare Nome, Cognome Da tblContacts"

searchString & = "Ordina per Cognome, Nome;"

6 Stabilire una connessione al database di Access utilizzando l'oggetto OleDbConnection.

conn fioco come nuovo OleDbConnection

Try

conn.ConnectionString = connString

conn.Open ()

Fermo ex come eccezione

Console.WriteLine ( "Impossibile aprire il database")

Console.WriteLine (ex.Message)

Ritorno

End Try

Usare sempre le eccezioni strutturati (try / catch) per intercettare e segnalare errori gettati dagli oggetti di accesso ai dati.

7 Creazione di comando e di adattamento dei dati oggetti e utilizzarli per recuperare i risultati della ricerca in una nuova struttura DataSet.

Dim ds As New DataSet

Provare

Dim cmd come nuovo OleDbCommand (searchString, conn)

cmd.commandtype = CommandType.Text

dap fioco come nuovo OleDbDataAdapter

dap.SelectCommand = cmd

dap.Fill (ds)

Fermo ex come eccezione

Console.WriteLine ( "Impossibile eseguire il comando di ricerca")

Console.WriteLine (ex.Message)

Ritorno

Finalmente

conn.Close ()

End Try

8 Loop attraverso le righe del set di dati per recuperare i campi nome e cognome. Dal momento che l'accesso a un valore nullo causa un'eccezione, verificare sempre per i valori null prima di recuperare.

Console.WriteLine ( "Contatti:")

For Each row As DataRow In ds.Tables(0).Rows

Se row.IsNull ( "Nome") = False Then

Console.Write (riga ( "Nome") & "")

Finisci se

Se row.IsNull ( "Cognome") = True Then

Console.WriteLine ( "& lt; Null>")

Altro

Console.WriteLine (riga ( "Cognome"))

Finisci se

Il prossimo

WriteLine ( "Trovato" & ds.Tables (0) .Rows.Count.ToString e "contatti")

End Sub

Modulo fine

Consigli e avvertenze

• Se viene visualizzato un messaggio che indica che il provider di database non è registrato sulla macchina locale, scaricare e installare il motore di database di Microsoft Access utilizzando il link in Risorse.