. Alla base di tutti i metodi di accesso ai dati di Visual Basic.Net s ' sta ADO.Net . Questa tecnologia di accesso ai dati è stato rilasciato in originale. Net framework . Si collega con molti server di database , tra cui Microsoft Access , offre maggiore flessibilità e fornisce una forte gestione degli errori . Connessione a Microsoft Access può essere illustrata attraverso la creazione di una semplice applicazione console che elenca i nomi da un database di contatti . Istruzioni
1

Aprire Microsoft Access ( 2000 o versioni successive ) e creare un nuovo database chiamato Contatti. Creare una tabella tblContacts e aggiungere due campi di testo, Nome e Cognome. Inserire alcuni nomi della tabella , quindi chiudere Access .
2

Aprire Visual Basic.Net ( qualsiasi versione) e creare una nuova applicazione console . Aggiungere la seguente riga prima del Modulo dichiarazione

importazioni System.Data.OleDb

Module Module1

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


3

Aggiungere la seguente riga prima della dichiarazione del modulo

importazioni System.Data.OleDb

Module Module1

lo spazio dei nomi OleDb fornisce i riferimenti al database . oggetti di accesso
4

inserire una stringa di connessione , dopo la dichiarazione del modulo

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

la stringa di connessione viene descritto come comunicherà OLEDB con il database . Lla esempio utilizza il provider Microsoft ACE per comunicare con il database

Accesso d : \\ contacts.mdb . Modificare il percorso in modo da riflettere il database creato nel passaggio 1 .
5

Copia il codice riportato di seguito nel metodo Main . Inizia dichiarando la searchString variabile , che contiene il comando SQL per selezionare i dati .

Sub Main ( ) per

Dim searchString As String = " Select Nome, Cognome Da tblContacts "

searchString & = "Ordina per Cognome, Nome ; " .
6

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

Dim conn As New OleDbConnection

Prova

conn.ConnectionString = connString

conn.Open ( ) per

Catch ex As Exception

Console.WriteLine ( "Impossibile aprire il database " ) per

Console.WriteLine ( ex.Message ) per

Torna

End Try

utilizzare sempre delle eccezioni strutturate ( try /catch ) di trappola e la relazione errori generati dagli oggetti di accesso ai dati .
7

Creare comando e oggetti adattatore dati e li usa per recuperare i risultati della ricerca in una nuova struttura DataSet .

Dim ds As New DataSet

Prova

Dim cmd As New OleDbCommand ( searchString , conn ) per

cmd.CommandType = CommandType.Text

Dim dap As New OleDbDataAdapter

dap.SelectCommand = cmd

dap.Fill ( ds ) per

Catch ex As Exception

Console.WriteLine ( "Impossibile eseguire la ricerca Prova
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 provoca una eccezione , sempre di prova per i valori null prima di loro recupero .

Console.WriteLine ( " Contatti: " ) .

per ogni riga come DataRow In ds.Tables ( 0 ) Righe

row.IsNull ( " Nome " ) = False Then

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

End If

row.IsNull ( " Cognome" ) = True Se

Avanti

WriteLine ( "trovato" e ds.Tables (0). Rows.Count.ToString e "contatti" ) per

End Sub

• Modalità di accesso a VBA email Allegato 2007 
• Come convertire XLS in CSV in VB.NET