VB NET Eseguire una ricerca su foglio Excel da Vb Net.(it-IT) - TechNet Articles - United States (English) - TechNet Wiki

A volte vi e la necessità di interagire attraverso la nostra applicazione con dei File Excel , lo scopo di questo esempio e dimostrare in che modo questo e possibile. Utilizzeremo AdoNet e precisamente il namespace OleDb utilizzato anche per la gestione di File MicrosoftAccess.

Questo nar1">

VB NET Eseguire una ricerca su foglio Excel da Vb Net.(it-IT)

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 OledbDataAdapterRappresenta 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