Export Dataset to CSV File using VB.Net

The following VB.Net Code Snippet is used to export Dataset to csv File.

All Data tables of a data set will be exported to CSV File.



Private Sub ExportDatasetToCsv(ByVal MyDataSet As DataSet)

'Declaration of Variables

Dim dt As DataTable
Dim dr As DataRow

Dim myString As String
Dim bFirstRecord As Boolean = True

Dim myWriter As New System.IO.StreamWriter("C:\MyTestCSV.csv")


myString = ""

Try

      For Each dt In MyDataSet.Tables

             For Each dr As DataRow In dt.rows

            bFirstRecord = True

                  For Each field As Object In dr.ItemArray

                       If Not bFirstRecord Then

                       myString.AppendText(",")


                        End If

                      myString.AppendText(field.ToString)

                     bFirstRecord = False

                  Next

                    'New Line to differentiate next row
                    myString.AppendText(Environment.NewLine)

          Next

Next

Catch ex As Exception

      MsgBox (ex.Message)


End Try


End Sub

'Write the String to the Csv File

myWriter.WriteLine(myString)

'Clean up
myWriter.Close()


End Sub

USAGE

ExportDatasetToCsv (ds)


Where ds is the dataset.


It will export all data tables of data set to csv File C:\MyTestCSV.csv