Create a Windows Application project with the name
ReadingCSVFile. To this, add a form which should look similar to the one below.
Figure 1
In the btnGetFile button click event add the following code.
Listing 2
Private Sub btnGetFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetFile.Click
Dim fileLookUp As New OpenFileDialog
fileLookUp.Title = "Get File"
fileLookUp.Filter = "Files (*.txt)|*.txt|All Files (*.*)|*.*"
If fileLookUp.ShowDialog() = DialogResult.OK Then
Me.txtFile.Text = fileLookUp.FileName
mFileName = System.IO.Path.GetFileName(Me.txtFile.Text)
mFolder = System.IO.Path.GetDirectoryName(Me.txtFile.Text)
End If
End Sub
In the above listing the OpenFileDialog object is instantiated
and the Title & Filter is set to it. Then the OpenFileDialog is opened to
select the file (in this case the file shown in Listing 1 is selected) from
which data will be read. Once the File is selected, File Name and Folder Path
will be captured which will be used in the Connectionstring (refer to listing
2).
Now, add the below code in the ReadData button click event.
Listing 3
Private Sub btnReadData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReadData.Click
Dim ConnectionString, CommandText As String
Dim conn As OleDb.OleDbConnection
Dim Command As OleDbCommand
Dim Count As Integer
Dim strMsg As String
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mFolder & "\;Extended Properties='text;HDR=Yes'"
CommandText = "select * from Employee.txt"
conn = New System.Data.OleDb.OleDbConnection(ConnectionString)
Command = New System.Data.OleDb.OleDbCommand(CommandText, conn)
conn.Open()
Dim da As OleDbDataAdapter = New OleDbDataAdapter(CommandText, conn)
Dim ds As DataSet = New DataSet
' fill dataset
da.Fill(ds, "Employees")
For Count = 0 To ds.Tables(0).Rows.Count - 1
strMsg = "EmpID : " & ds.Tables(0).Rows(Count)(0) & vbNewLine & "Name
" & ds.Tables(0).Rows(Count)(1) & ", " & ds.Tables(0).Rows(Count)(2)
MessageBox.Show(strMsg, "CSV File", MessageBoxButtons.OK)
Next
End Sub
In the above code the Connection string is set. Connection
string properties are explained below.
DataSource: Specifies the File Path.
Extended properties: Specifies type of file. In this case,
since it is a CSV file, the Text is specified.
HDR = Yes: Specifies that Column Headers will be omitted
while reading data.
Once the connection is set then the data is read into dataset
using Oledbcommand and OledbData Adapter. After data is read into the dataset, the
using for..Loop statement data is displayed in the MessageBox from the
datatable.
