VB.NET: importare un file CSV in un dataset

Tra le possibilita’ offerta dalla classe OleDb del Framework .NET c’e’ quella di trattare un file CSV alla stregua di una tabella di un database, ed eseguire su di esso vere e proprie query in linguaggio SQL, importando poi i risultati all’interno di un dataset, utilizzabile poi per qualsiasi altro scopo.

Vediamo come realizzare quindi una breve funzione che, dato il path di un file CSV, ne restitusca il DataSet corrispondente.

Public Function CSV2DataSet(ByVal filename As String) As DataSet

    Dim fFile1 As New FileInfo(filename)

    'creazione schema.ini (Necessario per  il corretto riconoscimento del separatore, in questo caso il carattere tab)

    Dim oFile As System.IO.File
    Dim oWrite As System.IO.StreamWriter
    oWrite = oFile.CreateText(fFile1.DirectoryName & "\schema.ini")
    oWrite.WriteLine("[" & fFile1.Name & "]")
    oWrite.WriteLine("Format=TabDelimited")
    oWrite.Close()

    Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='text;HDR=Yes;FMT=TabDelimited;';Data Source=" & fFile1.DirectoryName

    Dim ds As New DataSet(fFile1.Name)
    Dim ds As New DataSet(tablename)
    Dim conn As New OleDb.OleDbConnection(strConn)

    Dim da As OleDb.OleDbDataAdapter

    Dim mycmd As New OleDb.OleDbCommand("Select * from " & fFile1.Name, conn)

    Try
        da = New OleDb.OleDbDataAdapter(mycmd)
        da.Fill(ds)

    Catch ex As Exception

    End Try

    Return ds

End Function