A volte vi e la necessità di interagire attraverso la nostra applicazione con dei File Excel , lo scopo di questo esempio e dimosmespace fornisce diverse classi che possiamo utilizzare per interagire con fonti dati provenienti da File Excel , Access e altri tipi di file.
Analizziamo questa porzione di codice dove troviamo le classi OleDbConnection e OledbCommand che sono i proncipali strumenti con la quale ci connettiamo
ad una fonte dati.
Dim _ds As DataSet
Dim _tb As DataTable
Dim _bs As BindingSource
Private Sub Form1Load(sender As Object, e As EventArgs) Handles MyBase.Load
_ds = New DataSet()
_tb = New DataTable()
_bs = New BindingSource()
Using myConnection As New OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0; " & _
"data source=E:\demo.xlsx; " & _
"Extended Properties=Excel 12.0;")
Using myCommand As New OleDbDataAdapter("SELECT * FROM [Foglio1$]", myConnection)
myCommand.Fill(_tb)
_ds.Tables.Add(_tb)
_bs.DataSource = _ds.Tables(0)
End Using
End Using
End Sub
Questo codice sarà eseguito all'avvio dell'aplicazione essendo sotto l'evento load di Form1 , prima cosa dichiariamo un
DataSet che non e altro che un contenitore
con all'interno una o più tabelle (DataTable) e ci permette di poter lavorare in maniera disconnessa dalla fonte dati.
Dichiariamo un controllo
DataTable , formato da righe e colonne dove finiranno tutte le informazioni che andiamo a leggere dalla fonte dati , in ultimo un controllo
BindingSource , quest'ultimo servirà per eseguire la ricerca e mostrare a video le informazioni e il risultato della ricerca.
Subito dopo mediante la classe
OleDbConnection definiamo la stringa di connessione alla fonte dati , va definito il provider di dati , quest'ultimo varia a seconda delle versioni di Excel che andremo ad utilizzare , nel nostro caso essendo un file Excel 2007 , utilizzeremo il Microsoft.ACE.OLEDB.12.0
, definire poi la stringa di connessione che deve corrispondere all'esatta posizione dei file su disco , notare che se il file non viene trovato verrà generata a runtime un eccezione di tipo "File not found exception" , quindi assicurarsi che il file sia nel
percorso specificato nella stringa di connessione.
Successivamente ci resta da definire la classe
OledbDataAdapter,
Rappresenta
i controlli di un set di dati e una connessione di database utilizzati per riempire un DataSet e
aggiornare l'origine dati.
Per riempire un DataSet bisogna partire utilizzando il metodo
Fill , questo comando si occupa di riempire il DataSet o DataTable mediante l'istruzione Select che abbiamo impostato nella
query come parametro della classe OledbDataAdapter.
A questo punto mediante il metodo Add agiungiamo una tabella al controllo DataSet e assegniamo alla proprietà DataSource del controllo BindingSource la tabella popolata con tutte le informazioni prelevate dalla fonte dati.
Terminato questo passaggio abbiamo in memoria tutti le informazioni necessarie per eseguire una ricerca. Si supponga di avere un file Excel chiamato demo.xlsx con al suo interno 3 colonne chiamate nome , cogmome e mese come immagine seguente.
Eseguiremo la ricerca sfruttando il controllo BindingSource , e precisamente la proprietà Filter , si prenda in considerazione questo esempio di codice.
Private Sub TextBox1Validated(sender As Object, e As EventArgs) Handles txtNome.Validated, txtCognome.Validated, txtMese.Validated
If sender Is txtNome Then
Trova(CType(sender, TextBox), "NOME")
ElseIf sender Is txtCognome Then
Trova(CType(sender, TextBox), "COGNOME")
ElseIf sender Is txtMese Then
Trova(CType(sender, TextBox), "MESE")
End If
End Sub
Private Sub Trova(ByVal textBox As Control, ByVal nomeColonna As String)
_bs.Filter = String.Concat(nomeColonna, " ", "LIKE '", textBox.Text, "*'")
DataGridView1.DataSource = _bs
End Sub
Gestiamo gli eventi Validated dei controlli TextBox txtNome, txtCognome e txtMese , il tutto collegato ad una Sub , mediante la variabile sender andiamo a recuperare il controllo TextBox sulla quale e stato eseguito l'evento Validated , richiamando poi la Sub
Trova. Questa Sub richiede due parametri , il primo quale TextBox e stato selezionato , il secondo il tipo di ricercx), "COGNOME")
ElseIf sender Is txtMese Then
Trova(CType(sender, TextBox), "MESE")
End If
End Sub
Private Sub Trova(ByVal textBox As Control, ByVal nomeColonna As String)
_bs.Filter = String.Concat(nomeColonna, " ", "LIKE '", textBox.Text, "*'")
DataGridView1.DataSource = _bs
End Sub
Gestiamo gli eventi Validated dei controlli TextBox txtNome, txtCognome e txtMese , il tutto collegato ad una Sub , mediante la variabile sender andiamo a recuperare il controllo TextBox sulla quale e stato eseguito l'evento Validated , richiamando poi la Sub
Trova. Quesa costituito da una stringa di caratteri , nell'esempio e possibile eseguire la ricerca per Nome, Cognome e Mese .
Come detto sfruttiamo la porprietà Filter la quale
ottiene o imposta l'espressione filtro per la visualizzazione delle righe visualizzate. Si tratta in sostanza di una query Sql , ma che possiamo anche adattare alle nostre esigenze. Per finire il risultato della ricerca lo assegneremo al controllo DataGridView
mediante la proprietà DataSource.
Per eseguire una ricerca bisogna semplicemente digitare nelle caselle di testo un nome , cognome o mese ed il contenuto sarà visualizzato sul controllo DtaGridView , per cui se inseriamo il nome Carmelo e ci spostiamo su un altro controllo TextBox
avremo questa situazione.
Qui di seguito il codice completo .
Option Strict On
Imports System.Data.OleDb
Public Class Form1
Dim _ds As DataSet
Dim _tb As DataTable
Dim _bs As BindingSource
Private Sub TextBox1Validated(sender As Object, e As EventArgs) Handles txtNome.Validated, txtCognome.Validated, txtMese.Validated
If sender Is txtNome Then
Trova(CType(sender, TextBox), "NOME")
ElseIf sender Is txtCognome Then
Trova(CType(sender, TextBox), "COGNOME")
ElseIf sender Is txtMese Then
Trova(CType(sender, TextBox), "MESE")
End If
End Sub
Private Sub Trova(ByVal textBox As Control, ByVal nomeColonna As String)
_bs.Filter = String.Concat(nomeColonna, " ", "LIKE '", textBox.Text, "*'")
DataGridView1.DataSource = _bs
End Sub
Private Sub Form1Load(sender As Object, e As EventArgs) Handles MyBase.Load
_ds = New DataSet()
_tb = New DataTable()
_bs = New BindingSource()
Using myConnection As New OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0; " & _
"data source=E:\demo.XLSx; " & _
"Extended Properties=Excel 12.0;")
Using myCommand As New OleDbDataAdapter("SELECT * FROM [Foglio1$]", myConnection)
myCommand.Fill(_tb)
_ds.Tables.Add(_tb)
_bs.DataSource = _ds.Tables(0)
End Using
End Using
End Sub
End Class