Thursday, 18 October 2012

export to excel in vb.net


 Protected Sub btnExport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExport.Click
        Dim Con As New SqlConnection(ConfigurationManager.ConnectionStrings("TCConnection1").ConnectionString.ToString)
        Dim dsExport As New DataSet()
        Dim tw As New System.IO.StringWriter()
        Dim hw As New System.Web.UI.HtmlTextWriter(tw)
        Dim dgGrid As New DataGrid()
        Dim mTable As New DataTable()
        Con.Open()
        Dim mRead As SqlDataReader
        Dim cmd As New SqlCommand()
        If Session("User") = "Admin" Then
            cmd = New SqlCommand("SELECT Memberid DistributorID,membername DistributorName,XPV [Left Side], YPV [Right Side], Pairs, Caping,CarryX [Carry Left],CarryY [Carry Right],BinaryIncome,totalamount,admin,tds,netamount FROM vwDuePayout Order By MsrNO", Con)
        End If

        cmd.CommandTimeout = 6000
        mRead = cmd.ExecuteReader(CommandBehavior.CloseConnection)

        mTable.Load(mRead)
        dgGrid.DataSource = mTable

        hw.WriteLine("<b><u><font size='3'>Generate Payout </font></u></b>")
        dgGrid.HeaderStyle.Font.Bold = True
        dgGrid.DataBind()
        dgGrid.RenderControl(hw)

        Response.ContentType = "application/vnd.ms-excel"
        Me.EnableViewState = False
        Response.Write(tw.ToString())
        Response.End()
    End Sub

No comments:

Post a Comment