I m not able to find error.
output comes as blank page.
code is written as under.
Button click code :
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Session("rptname") = "Report"
Response.Redirect("m_protfolio_as_on.aspx")
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Session("rptname") = "Report2"
Response.Redirect("m_protfolio_as_on.aspx")
End Sub
Reportviewer code :
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
<pre lang="vb">GenReport(Session("rptname"))
End Sub
Public Sub GenReport(ByVal rptName As String)
ReportViewer1.LocalReport.ReportPath = ""
ReportViewer1.LocalReport.Refresh()
Dim myDataSet As New DataSet
Dim mvSQl As String
Dim cn As New SqlConnection
'cn.ConnectionString = "Data Source=windows;Initial Catalog=WTAuto;username =Integrated Security=false"
cn.ConnectionString = "data source='ADMINN';initial catalog=wtauto;password='abc';persist security info=True;user id='sa'"
cn.Open()
If rptName = "Report" Then
mvSQl = " SELECT Client.c_name, MTransaction.folioNo AS foliono, Scheme.s_name, SUM(MTransaction.unit) AS Unit, ISNULL((SELECT nav_Value FROM NAV WHERE(s_code = Scheme.s_code) AND (nav_Date =(SELECT MAX(nav_Date) AS Expr1 FROM NAV WHERE(nav_Date <= '30/Aug/2010') AND (s_code = Scheme.s_code)))), 0) AS Expr5, Scheme.Nature, GroupMaster.H_name FROM MTransaction WITH (readuncommitted) INNER JOIN GroupMaster INNER JOIN Client ON GroupMaster.c_code = Client.c_code ON MTransaction.c_code = Client.c_code INNER JOIN Scheme ON MTransaction.s_code = Scheme.s_code LEFT OUTER JOIN Branch ON MTransaction.Branch = Branch.Branch AND Client.CompanyName = Branch.CompanyName WHERE(MTransaction.TDate <= '30/Aug/2010') AND (GroupMaster.H_code = '00000000A1') AND (Client.CompanyName = 'Oraculo Advisory Pvt Ltd') GROUP BY GroupMaster.H_name, Client.c_name, Client.c_code, Scheme.Nature, Scheme.s_name, Scheme.s_code, MTransaction.folioNo HAVING(SUM(MTransaction.unit) > 0)ORDER BY GroupMaster.H_name, Scheme.Nature, Scheme.s_name, foliono"
Else
mvSQl = " SELECT Client.c_name, MTransaction.folioNo AS foliono, Scheme.s_name, SUM(MTransaction.unit) AS Unit, ISNULL((SELECT nav_Value FROM NAV WHERE(s_code = Scheme.s_code) AND (nav_Date =(SELECT MAX(nav_Date) AS Expr1 FROM NAV WHERE(nav_Date <= '30/Aug/2010') AND (s_code = Scheme.s_code)))), 0) AS Expr5, Scheme.Nature, GroupMaster.H_name FROM MTransaction WITH (readuncommitted) INNER JOIN GroupMaster INNER JOIN Client ON GroupMaster.c_code = Client.c_code ON MTransaction.c_code = Client.c_code INNER JOIN Scheme ON MTransaction.s_code = Scheme.s_code LEFT OUTER JOIN Branch ON MTransaction.Branch = Branch.Branch AND Client.CompanyName = Branch.CompanyName WHERE(MTransaction.TDate <= '30/Aug/2010') AND (GroupMaster.H_code = '00000000A1') AND (Client.CompanyName = 'Oraculo Advisory Pvt Ltd') GROUP BY GroupMaster.H_name, Client.c_name, Client.c_code, Scheme.Nature, Scheme.s_name, Scheme.s_code, MTransaction.folioNo HAVING(SUM(MTransaction.unit) > 0)ORDER BY GroupMaster.H_name, Scheme.Nature, Scheme.s_name, foliono"
End If
Dim myAdapter As SqlDataAdapter = New SqlDataAdapter(mvSQl, cn)
myAdapter.Fill(myDataSet, 0)
Dim RD As ReportDataSource
If myDataSet.Tables(0).Rows.Count > 0 Then
If rptName = "Report" Then
RD = New ReportDataSource("DataSet1_DataTable1", myDataSet.Tables(0))
Else
RD = New ReportDataSource("DataSet2_DataTable1", myDataSet.Tables(0))
End If
ReportViewer1.LocalReport.DataSources.Clear()
ReportViewer1.LocalReport.DataSources.Add(RD)
If rptName = "Report" Then
ReportViewer1.LocalReport.ReportPath = Server.MapPath("Report.rdlc")
Else
ReportViewer1.LocalReport.ReportPath = Server.MapPath("Report2.rdlc")
End If
ReportViewer1.ShowPrintButton = True
ReportViewer1.LocalReport.Refresh()
End If
End Sub