export to CSV

  • Thread starter Thread starter mcnewsxp
  • Start date Start date
M

mcnewsxp

could i get an example of passing some SQL code to return a recordset that
gets exported to CSV.
also, same thing but populates a way to view the data before exporting.

tia much,
mcnewsxp
 
Private Sub ExportDatasetToCsv(ByVal MyDataSet As DataSet)

Dim str As New StringBuilder

For Each dr As DataRow In MyDataSet.Tables(0).Rows

For Each field As Object In dr.ItemArray

str.Append(field.ToString & ",")

Next

str.Replace(",", vbNewLine, str.Length - 1, 1)

Next



Try

My.Computer.FileSystem.WriteAllText("C:\temp\testcsv.csv",
str.ToString, False)

Catch ex As Exception

MessageBox.Show("Write Error")

End Try

'Write the String to the Csv File

'myWriter.WriteLine(myString)

'Clean up
'myWriter.Close()


End Sub
End Class
 
Back
Top