Importing CSV to DataTable VB.Net

Question

1.44/5 (2 votes)

See more:

I have some code that reads csv files and then copies the contents to a DataTable. I have created a file dialog so I can select the spreadsheet that I wish to import, however am having trouble figuring out how to do this. The file location and name are stored in a read only text box.

I have tried changing the [Apr2013.csv] to ["& txtImportSpreadsheet.text &"] ect and have also tried the same with the variable folder.

VB

Dim folder = "N:\access\Telephones\"
Dim con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & folder & ";Extended Properties=""text;HDR=No;FMT=Delimited"";"
Dim dt As New DataTable

Using Adp As New OleDbDataAdapter("Select * From [Apr2013.csv]", con)
Adp.Fill(dt)
End Using

If anyone could help me out I would really be grateful.

Posted 31-May-13 0:49am

IanMac91

Add a Solution

5 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Member 10230728 · Answer 1 · 2013-08-25T02:17:00

Solution 4

Also try String.Format("This text to add a file named: [{0}]", filename)

where filename is a string variable, to added into the main string. Yay

LG out

Posted 25-Aug-13 2:17am

Member 10230728

estebanrey · Answer 2 · 2015-02-22T04:26:00

Solution 1 is faulty. The loop logic doesn't work because on the last valid line, the string isn't empty so it loops again but then immediately empties the string making it fail at the latter split stage.

Also, he dims "i As Long" but doesn't use it.

Try this

Dim SR As StreamReader = New StreamReader("your csv file path")
        Dim line As String = SR.ReadLine()
        Dim strArray As String() = line.Split(","c)
        Dim dt As DataTable = New DataTable()
        Dim row As DataRow

        For Each s As String In strArray
            dt.Columns.Add(New DataColumn())
        Next

        Do
            line = SR.ReadLine
            If Not line = String.Empty Then
                row = dt.NewRow()
                row.ItemArray = line.Split(","c)
                dt.Rows.Add(row)
            Else
                Exit Do
            End If
        Loop

rohan bhanu · Answer 3 · 2013-05-31T01:03:00

VB

Dim SR As StreamReader = New StreamReader("1.txt")
               Dim i As Long = 0
               Dim line As String = SR.ReadLine()
               Dim strArray As String() = line.Split(",")
               Dim dt As DataTable = New DataTable()
               Dim row As DataRow

               For Each s As String In strArray
                   dt.Columns.Add(New DataColumn())
               Next
               Do
                   line = SR.ReadLine
                   row = dt.NewRow()
                   row.ItemArray = line.Split(",")
                   dt.Rows.Add(row)


               Loop While Not line = String.Empty

In datatable dt you will have all values....!

rohan bhanu · Answer 4 · 2013-05-31T01:43:00

Solution 2

insted of

VB

Dim row As DataRow

Write

VB

Dim row As New DataRow

Posted 31-May-13 1:43am

rohan bhanu

Member 10230728 · Answer 5 · 2013-08-25T02:11:00

Solution 3

Your code looks like it should work fine.
Put a try catch loop around the Using Adp -- End Using
Its likely not working its because your having an uncaptured error!

Posted 25-Aug-13 2:11am

Member 10230728