asked on

crystal reports XI sp 2 called from VB.Net 2008

In a VB.Net project, the code below comes from my main form. It calls a second form, fCRV which has a single control, a crystal report viewer (crvMain). There are two different reports involved.

I need to modify this code such that I set the log on information for the crystal report (server, database, no integrated security, user id, and password). Both reports use the same connection information.

How is that done in VB.Net (2008)?

Thanks.

Public Shared Sub PrintReport(ByVal f As Form1)
        Try
            Dim vchrNo As String

            'qty mode report is called: ReceiverVariance-CR11.rpt -- change config to QtyModeReport
            'voucher mode report is called: APVoucherRecapReport-CR11 -- add to config VoucherModeReport

            If Globals.QtyModeIndicator = True Then
                fCRV.crvMain.ReportSource = Globals.QtyModeRept
                'if clicked, let the report ask for a parameter else pass it a selection formula
                If Not Globals.ReportCalledByClick Then
                    fCRV.crvMain.SelectionFormula = "{ag_ap_match_variance_report.pack_no} = " & Chr(34) & f.billNo.Text & Chr(34)
                End If
                fCRV.ShowDialog()
            Else
                fCRV.crvMain.ReportSource = Globals.VoucherModeRept
                'if clicked, let the report ask for a parameter else pass it a selection formula
                'get voucher number
                Dim dr As DataGridViewRow = f.dgvVouchers.SelectedRows(0)
                VchrNo = dr.Cells(1).Value.ToString

                If Not Globals.ReportCalledByClick Then
                    fCRV.crvMain.SelectionFormula = "{aptrxfil_sql.vchr_no} = " & Chr(34) & vchrNo & Chr(34)
                End If
                fCRV.ShowDialog()
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Sub

Open in new window

Mike McCracken

This is one of the most asked questions here. Unfortunately what works for one report doesn't always work for another.

One way around this is to pass the report a dataset.
http://www.emoreau.com/Entries/Articles/2006/09/Feeding-Crystal-Reports-from-your-application.aspx

Does the report run if you provide the connection information when asked?

mlmcc

Mike McCracken

Check this method
http://msdn.microsoft.com/en-us/library/ms227750%28VS.80%29.aspx

mlmcc

ASKER CERTIFIED SOLUTION

Mike McCracken

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

g_johnson

ASKER

Hello mimcc.

I can't use a dataset; that part's out of my control. I'm trying to invoke several, pre-written reports. Given my code attached, whereby I set the report viewer source to a certain report, I can't figure out how to reference any of the properties or methods.

For example:
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
For Each tbCurrent In fCRV.crvMain.DataBase

is not available to me.

Mike McCracken

What references have you added to the application for Crystal?

Is this Crystal XI R2?

mlmcc

g_johnson

ASKER

Ultimately I solved it like this:
Public Shared Sub PrintReport(ByVal f As Form1)
Dim i As Integer
Dim ii As Integer
Dim iii As Integer
Dim vchrNo As String
Dim connInfo As New CrystalDecisions.Shared.TableLogOnInfo()
Dim objReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim subReportObj As CrystalDecisions.CrystalReports.Engine.SubreportObject
Dim subReportDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument

Try

If Globals.QtyModeIndicator = True Then
objReport.Load(Globals.QtyModeRept)
Else
objReport.Load(Globals.VoucherModeRept)
End If

'set connection info
connInfo.ConnectionInfo.UserID = "sa"
connInfo.ConnectionInfo.Password = "amergroc2004"
connInfo.ConnectionInfo.ServerName = Globals.ServerName
connInfo.ConnectionInfo.DatabaseName = Globals.DatabaseName

For i = 0 To objReport.Database.Tables.Count - 1
objReport.Database.Tables(i).ApplyLogOnInfo(connInfo)
Next

For i = 0 To objReport.ReportDefinition.Sections.Count - 1
For ii = 0 To objReport.ReportDefinition.Sections(i).ReportObjects.Count - 1
With objReport.ReportDefinition.Sections(i)
If .ReportObjects(ii).Kind = ReportObjectKind.SubreportObject Then
subReportObj = CType(.ReportObjects(ii), CrystalDecisions.CrystalReports.Engine.SubreportObject)
subReportDoc = subReportObj.OpenSubreport(subReportObj.SubreportName)
For iii = 0 To subReportDoc.Database.Tables.Count - 1
subReportDoc.Database.Tables(iii).ApplyLogOnInfo(connInfo)
Next
End If
End With
Next
Next

'qty mode report is called: ReceiverVariance-CR11.rpt -- change config to QtyModeReport
'voucher mode report is called: APVoucherRecapReport-CR11 -- add to config VoucherModeReport

If Globals.QtyModeIndicator = True Then
' fCRV.crvMain.ReportSource = Globals.QtyModeRept

'if clicked, let the report ask for a parameter else pass it a selection formula
If Not Globals.ReportCalledByClick Then
objReport.RecordSelectionFormula = "{ag_ap_match_variance_report.pack_no} = " & Chr(34) & f.billNo.Text & Chr(34)
'fCRV.crvMain.SelectionFormula = "{ag_ap_match_variance_report.pack_no} = " & Chr(34) & f.billNo.Text & Chr(34)
End If
'fCRV.ShowDialog()
Else
' fCRV.crvMain.ReportSource = Globals.VoucherModeRept
'if clicked, let the report ask for a parameter else pass it a selection formula
'get voucher number
Dim dr As DataGridViewRow = f.dgvVouchers.SelectedRows(0)
vchrNo = dr.Cells(1).Value.ToString

If Not Globals.ReportCalledByClick Then
objReport.RecordSelectionFormula = "{aptrxfil_sql.vchr_no} = " & Chr(34) & vchrNo & Chr(34)
'fCRV.crvMain.SelectionFormula = "{aptrxfil_sql.vchr_no} = " & Chr(34) & vchrNo & Chr(34)
End If
'fCRV.ShowDialog()
End If

fCRV.crvMain.ReportSource = Nothing

fCRV.crvMain.ReportSource = objReport

fCRV.ShowDialog()
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
End Sub

Thanks for pointing me in the right directon.

g_johnson

ASKER

Definitely pointed me in the right direction