Export database (DataTable) to CSV file with decimal places in ASP.Net C#

Please refer this code

Ref:Export DataSet or DataTable to Word Excel PDF and CSV Formats

HTML

 <asp:Button ID="btnExportCSV" runat="server" Text="Export To CSV" OnClick = "ExportToCSV" />

Namespaces

Imports System.Text
Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports iTextSharp.text.html
Imports iTextSharp.text.html.simpleparser

VB.Net

Protected Sub ExportToCSV(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExportCSV.Click
    'Get the data from database into datatable 
    Dim dt As New DataTable()
    dt.Columns.AddRange(New DataColumn(2) {New DataColumn("Id", GetType(Integer)), New DataColumn("ProductName", GetType(String)), New DataColumn("Price", GetType(Decimal))})
    dt.Rows.Add(1, "Bat", 150.5)
    dt.Rows.Add(2, "Cricket Ball", 75.8)
    dt.Rows.Add(3, "Football", 500.99)

    Response.Clear()
    Response.Buffer = True
    Response.AddHeader("content-disposition", "attachment;filename=GridViewExport.csv")
    Response.Charset = ""
    Response.ContentType = "application/text"


    Dim sb As New StringBuilder()
    For k As Integer = 0 To dt.Columns.Count - 1
        'add separator 
        sb.Append(dt.Columns(k).ColumnName + ","c)
    Next
    'append new line 
    sb.Append(vbCr & vbLf)
    For i As Integer = 0 To dt.Rows.Count - 1
        For k As Integer = 0 To dt.Columns.Count - 1
            'add separator 
            sb.Append(dt.Rows(i)(k).ToString().Replace(",", ";") + ","c)
        Next
        'append new line 
        sb.Append(vbCr & vbLf)
    Next
    Response.Output.Write(sb.ToString())
    Response.Flush()
    Response.End()
End Sub

Screenshot