Export Datagrid data to .csv file

Question

0.00/5 (No votes)

See more:

Hi Sir/Madam,
First I bind a data into datagrid, this data is displayed in .csv file how to do this? I am try but if long text is displayed in datagrid that time in csv file it take 2 or 3 lines but my aim is if user enter long text that time also it display in single line.
And if i open this csv file in wordpad that time it display comma to last column also. My aim is comma is not displayed for last column.

My code:

Private Function ToCSV(ByVal dataTable As DataTable) As String 
Dim sb As New StringBuilder() 
If dataTable.Columns.Count <> 0 Then 
For Each column As DataColumn In dataTable.Columns 
sb.Append("," & column.ColumnName) 
Next 
sb.Remove(0, 1) 
sb.Append(vbCr & vbLf) 
For Each row As DataRow In dataTable.Rows 
For Each column As DataColumn In dataTable.Columns 
sb.Append(row(column).ToString() + ","c) 
Next 
sb.Append(vbCrLf) 
Next 
End If 
Return sb.ToString() 
End Function

and in button click
'// here i bind datagrid
and then

Response.ContentType = "Application/x-msexcel" 
Response.AddHeader("content-disposition", "attachment;filename=Reports.csv") 
Response.Write(ToCSV(tdata)) 
Response.[End]()

Please help me.
Thanks.

Posted 17-Aug-10 2:18am

ajay.raju531

Updated 17-Aug-10 2:39am

LittleYellowBird

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Svetlin Panayotov · Answer 1 · 2010-08-17T04:59:00

Try modifying your ToCSV() function like this:

Private Function ToCSV(ByVal dataTable As DataTable) As String
    Dim sb As New StringBuilder()
    If dataTable.Columns.Count <> 0 Then
        For Each column As DataColumn In dataTable.Columns
            sb.Append("," & column.ColumnName)
        Next
        sb.Remove(0, 1)
        sb.Append(vbCr & vbLf)
        For Each row As DataRow In dataTable.Rows
            For I As Integer = 0 To dataTable.Columns.Count - 1
                Dim column As DataColumn = dataTable.Columns(I)
                If I <> dataTable.Columns.Count - 1 Then
                    sb.Append(row(column).ToString() + ","c)
                Else
                    sb.Append(row(column).ToString())
                End If
            Next
            sb.Append(vbCrLf)
        Next
    End If
    Return sb.ToString()
End Function