[dba-VS] Report Generator in VS
Dan Waters
df.waters at outlook.com
Wed Apr 8 07:35:20 CDT 2015
Hi Richard,
This might be helpful:
http://scn.sap.com/docs/DOC-7824
Dan
-----Original Message-----
From: dba-VS [mailto:dba-vs-bounces at databaseadvisors.com] On Behalf Of Griffiths, Richard
Sent: Wednesday, April 08, 2015 4:04 AM
To: Development in Visual Studio
Subject: Re: [dba-VS] Report Generator in VS
Is Crystal Reports for Visual Studio not an option?
Regards
Richard Griffiths
Developer
Tel: 0161 253 5169
email: r.griffiths at bury.gov.uk
web: www.bury.gov.uk
Bury Council Town Hall Knowsley Street Bury BL9 0SW
-----Original Message-----
From: dba-VS [mailto:dba-vs-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: 06 April 2015 02:39
To: Development in Visual Studio
Subject: Re: [dba-VS] Report Generator in VS
Dan,
I built reports in .Net when I was employed full time, but we used a suite of 3rd party tools, so I haven't really worked with the built in tools much. Just trying to rewrap my head around them.
Charlotte Foust
(916) 206-4336
On Sun, Apr 5, 2015 at 10:04 AM, Dan Waters <df.waters at outlook.com> wrote:
> Hi Charlotte,
>
>
>
> This is an example of code behind a form which contains a ReportViewer.
> Once you begin learning how to use reports in VS, refer back to this code.
> This is some very hard-earned experience! ;-)
>
>
>
> I’m showing how to pass information to the report form from the
> calling procedure, and that one form can be designed to display as
> many different reports as you wish (assuming they all have the same
> exterior dimensions, i.e., Portrait, Landscape, etc).
>
>
>
> I use LinqToSQL queries as the data access method. The two variables
> which begin with ‘LQ’ are those queries. Of course, you can set up
> the DataSource with other methods also.
>
>
>
> Good Luck!
>
> Dan
>
>
>
> ‘------------------------------------------------------------
>
>
>
> Public Sub New(stgNameOfReport As String, Optional stgQueryInfo
> As String = "", Optional intCellID As Integer = 0)
>
> MyBase.New()
>
> InitializeComponent()
>
> If stgNameOfReport = "" Then Exit Sub
>
> Me.Text = "Report Data"
>
> Call ReportList(stgNameOfReport, stgQueryInfo)
>
> End Sub
>
> Private Sub ReportList(stgNameOfReport As String, Optional
> stgQueryInfo As String = "", Optional intID As Integer = 0)
>
> Dim LQCurrentReport
>
> Dim stgReportTitle As String = ""
>
> Dim DCAppMain As New
> DCAppMainDataContext(SV.ConnectionStringServer)
>
> Dim rds = New ReportDataSource()
>
> Select Case stgNameOfReport
>
> Case "All Records"
>
> stgReportTitle = "All Records"
>
> LQCurrentReport = (From a In
> DCAppMain.vewStandardReport
>
> Select New fakStandardReport With { _
>
> .MainID = a.MainID, _
>
> .Stage = a.Stage, _
>
> .AssessorDate = a.AssessorDate, _
>
> .ClosedDate = a.ClosedDate, _
>
> .Opportunity = a.Opportunity, _
>
> .DueDate = a.DueDate, _
>
> .CompletedDate = a.CompletedDate, _
>
> .Score = a.Score, _
>
> .AceCell =
> GlobalProcedures.GetAceCellName(a.AceCellID), _
>
> .AceCellSub =
> GlobalProcedures.GetAceCellName(a.AceCellSubID), _
>
> .Assessor =
> PeopleProcedures.GetFullName(a.AssessorID), _
>
> .AssignedTo =
> PeopleProcedures.GetFullName(a.AssignedToID), _
>
> .CompletedBy =
> PeopleProcedures.GetFullName(a.CompletedByID), _
>
> .CompletedOpportunity =
> a.CompletedOpportunity, _
>
> .OpportunityID =
> a.OpportunityID}).ToList()
>
>
> Me.FakStandardReportBindingSource.DataSource = LQCurrentReport
>
>
> ReportViewerTable.LocalReport.ReportEmbeddedResource =
> "PSIAppMain.rptStandardReport.rdlc"
>
>
>
> Case "ScoringDescriptions"
>
> stgReportTitle = " Scoring Descriptions"
>
> Dim LQScoringDescriptions = From a In
> DCAppMain.tblExplanations
>
>
> Order By a.ScoreSort
>
>
> Select a.ExplanationID, a.ScoreSort, a.Selection, a.Point0Report,
> a.Point1Report, a.Point2Report, a.Point3Report, a.Point4Report,
> a.Point5Report
>
>
> Me.fakScoringDescriptionsBindingSource.DataSource =
> LQScoringDescriptions
>
>
> ReportViewerTable.LocalReport.ReportEmbeddedResource =
> "PSIAppMain.rptScoringDescriptions.rdlc"
>
> End Select
>
> rds.Name = "fakStandardReport"
>
> rds.Value = FakStandardReportBindingSource
>
> ReportViewerTable.LocalReport.DataSources.Add(rds)
>
> '-- Set the criteria textboxes on the report
>
> Dim paramList As New Generic.List(Of ReportParameter)
>
> paramList.Add(New ReportParameter("ReportTitle",
> SV.SystemAcronym & " - " & stgReportTitle, True))
>
> paramList.Add(New ReportParameter("ReportFooter",
> Utility.ReportFooter, True))
>
>
> Me.ReportViewerTable.LocalReport.SetParameters(paramList)
>
> Me.ReportViewerTable.RefreshReport()
>
> Me.ReportViewerTable.Dock = DockStyle.Fill
>
> End Sub
>
> ‘---------------------------------------------------------------------
> ---
>
>
>
>
>
> From: dba-VS [mailto:dba-vs-bounces at databaseadvisors.com] On Behalf Of
> Charlotte Foust
> Sent: Saturday, April 04, 2015 3:57 PM
> To: dba-vs at databaseadvisors.com
> Subject: [dba-VS] Report Generator in VS
>
>
>
> What do you guys use to generate reports in Visual Studio. I know a
> lot of people use Crystal Reports, but I hate that option.
>
>
>
>
>
> Charlotte Foust
>
> (916) 206-4336
>
> _______________________________________________
> dba-VS mailing list
> dba-VS at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/dba-vs
> http://www.databaseadvisors.com
>
_______________________________________________
dba-VS mailing list
dba-VS at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/dba-vs
http://www.databaseadvisors.com
-----------------------------------------------------------------
Why not visit our website www.bury.gov.uk
-----------------------------------------------------------------
Incoming and outgoing e-mail messages are routinely monitored for compliance with our information security policy.
The information contained in this e-mail and any files transmitted with it is for the intended recipient(s) alone. It may contain confidential information that is exempt from the disclosure under English law and may also be covered by legal,professional or other privilege.
If you are not the intended recipient, you must not copy, distribute or take any action in reliance on it.
If you have received this e-mail in error, please notify us immediately by using the reply facility on your e-mail system.
If this message is being transmitted over the Internet, be aware that it may be intercepted by third parties.
As a public body, the Council may be required to disclose this e-mail or any response to it under the Freedom of Information Act 2000 unless the information in it is covered by one of the exemptions in the Act.
Electronic service accepted only at legal.services at bury.gov.uk and on fax number
0161 253 5119 .
*************************************************************
_______________________________________________
dba-VS mailing list
dba-VS at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/dba-vs
http://www.databaseadvisors.com
More information about the dba-VS
mailing list