Yama,
Here's a quick VB.NET 1.1 export routine that is very general (too
general?):
Its based on a DataSet, however you should be able to adopt it to a
DataReader instead.
' Required imports
Imports System.IO ' for the StreamWriter
Imports System.Text ' for the UnicodeEncoding
' sample usage
Export("Custome rs.csv", DataSet1.Tables ("Customers" ))
Export("Employe es.csv", DataSet1.Tables ("Employees" ))
Public Sub Export(ByVal path As String, ByVal table As DataTable)
Dim output As New StreamWriter(pa th, False, UnicodeEncoding .Default)
Dim delim As String
' Write out the header row
delim = ""
For Each col As DataColumn In table.Columns
output.Write(de lim)
output.Write(co l.ColumnName)
delim = ","
Next
output.WriteLin e()
' write out each data row
For Each row As DataRow In table.Rows
delim = ""
For Each value As Object In row.ItemArray
output.Write(de lim)
If TypeOf value Is String Then
output.Write("" ""c) ' thats four double quotes and a c
output.Write(va lue)
output.Write("" ""c) ' thats four double quotes and a c
Else
output.Write(va lue)
End If
delim = ","
Next
output.WriteLin e()
Next
output.Close()
End Sub
You can change (or remove) the Encoding parameter above to suit your needs,
I used Unicode as the table had non ASCII characters in it. Also when
writing strings, I don't deal with double quotes in the string. If you make
the StreamWriter a parameter it will be much more flexible (you could go to
a memory stream to support cut & paste). I use the default formatting for
numeric types.
You can change it to use a DataView (for sorting & filtering for example) by
changing the following lines:
'Public Sub Export(ByVal path As String, ByVal table As DataTable)
Public Sub Export(ByVal path As String, ByVal view As DataView)
'For Each col As DataColumn In table.Columns
For Each col As DataColumn In view.Table.Colu mns
'For Each row As DataRow In table.Rows
For Each row As DataRowView In view
'For Each value As Object In row.ItemArray
For Each value As Object In row.Row.ItemArr ay
Hope this helps
Jay
"Yama" <yk*****@grandp acificresorts.c om> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..
Hi,
I am looking to create a report comma delimited on a click of a button.
Explanantion:
1. Get from the database: "SELECT * FROM Customers WHERE Region = 'CA'"
2. Use either DataReader or DataSource
3. Create a button "Export"
4. On ServerClick Event prompt user to save as a text comma delimited
file.
Can someone help me?
Yama
