ASP.NET with C# and SQL SERVER , some vb.net . asp.net examples, asp.net codes, asp.net programs, c# code, sql server queries, important codes.
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
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment