Saving a dataset as a comma seperated values file.

[Simon Verona]

Hi,

This must be simple (I hope)! I've tried a google search but can't seem to
find what I want (probably using the wrong search keys!)

I'm trying to simply save a complete dataset as a CSV file so that it can be
easily opened up in Excel or emailed on.

Is there any simple way of doing this, or do I have to write code to scan
through the dataset and write it out line by line to a csv file?

Thanks in advance

Simon

[Cor Ligthert]

Simon,

Scorpion(Kelly) has on his side a page to set it directly to an Excel file.

http://www.kjmsolutions.com/datasetarray.htm

I have this samplecode bellow what is queit generic to set a dataset
datatable to a csv file.

I hope this helps a little bit?

Cor

\\\
Dim sw As New IO.StreamWriter ("C:\Whatever.c sv")
For i As Integer = 0 To ds.Tables(0).Ro ws.Count - 1
Dim row As New System.Text.Str ingBuilder
row.Append("""" )
For y As Integer = 0 To ds.Tables(0).Co lumns.Count - 1
row.Append(ds.T ables(0).Rows(i )(y).tostring)
If y <> ds.Tables(0).Co lumns.Count - 1 Then
row.Append(""", """)
' if you want it with a tab
' row.Append("""" )
' row.Append(chr( 09))
' row.Append("""" )
Else
row.Append("""" )
End If
Next
sw.WriteLine(ro w.ToString)
Next
sw.Flush()
sw.Close()
///

[Simon Verona]

Thanks Cor,

That is pretty much what I thought I would have to do ...

regards
Simon
"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:OW******** *****@TK2MSFTNG P12.phx.gbl...

Simon,

Scorpion(Kelly) has on his side a page to set it directly to an Excel file.
http://www.kjmsolutions.com/datasetarray.htm

I have this samplecode bellow what is queit generic to set a dataset
datatable to a csv file.

I hope this helps a little bit?

Cor

\\\
Dim sw As New IO.StreamWriter ("C:\Whatever.c sv")
For i As Integer = 0 To ds.Tables(0).Ro ws.Count - 1
Dim row As New System.Text.Str ingBuilder
row.Append("""" )
For y As Integer = 0 To ds.Tables(0).Co lumns.Count - 1
row.Append(ds.T ables(0).Rows(i )(y).tostring)
If y <> ds.Tables(0).Co lumns.Count - 1 Then
row.Append(""", """)
' if you want it with a tab
' row.Append("""" )
' row.Append(chr( 09))
' row.Append("""" )
Else
row.Append("""" )
End If
Next
sw.WriteLine(ro w.ToString)
Next
sw.Flush()
sw.Close()
///