export to CSV

[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

 

[mcnews]

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