Prova l'esempio

Di Seguito il codice sorgente

 

Private Sub VisualizzaDati()

'*****************************************************************************************

'La funzione apre una connessione col database, esegue una comando Select

'Riempie di conseguenza una tabella che verrà visualizzata a video tramite una gridView

'*****************************************************************************************

'Dichiara l'oggetto connessione al Database

Dim DatabaseConnection As New OleDbConnection

'Dichiara la tabella che verrà riempita coi dati filtrati

Dim Table As New DataTable

'Prepara il Percorso del Database usando la funzione di mappatura del percorso

Dim DatabaseName As String = Server.MapPath( "..\mdb-database\db_dati.mdb" )

'Prepara la stringa di Select per riprendere i dati dalla tabella Utenti del Database

Dim SelectCommand As String = "SELECT UteCdUte as Codice ,UteDeUte as Descrizione FROM Utenti"

'Crea la connessione al database usando il Provider per Microsoft Access

Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & DatabaseName & ";" & _

"User ID=Admin;" & _

"Password="

'Gestisco l'errore nel caso in cui il database non sia disponibile

Try

'Imposta la stringa di connessione all'oggetto Connection

DatabaseConnection.ConnectionString = ConnectionString

Catch ConnectionError As Exception

'E' possibile usare ConnectionError per riprende il messaggio d'errore eventualmente generato

'----

Finally

'E' possibile aggiungere del codice che verrà eseguito anche nel caso di un errore ( chiusura file, pulitura oggetti)

End Try

'Se viene inserito del testo nella TextBox di filtro è aggiunto alla stringa Select con un comando WHERE

If TextBoxFilter.Text <> "" Then

SelectCommand = SelectCommand & " where UteDeUte like '%" & TextBoxFilter.Text & "%'"

End If

'Dichiara è riempie l'oggetto Adapter coi dati ripresi dalla Connessione aperta utilizzando la stringa di Select

Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter(SelectCommand, DatabaseConnection)

'Indica al contenitore Adapter di riprendere lo schema dei Dati (Chiavi, valori null) http://support.microsoft.com/kb/310128/it

Adapter.MissingSchemaAction = MissingSchemaAction.AddWithKey

'Adapter è un contenitore di dati che viene usato per riempire oggetti a livello più alto

'In questo caso viene riempita la Table dichiata in precedenza

Adapter.Fill(Table)

'I dati vengono visualizzati impostanto la Sorgente Dati

GridView1.DataSource = Table

GridView1.DataBind()

End Sub