Crystal Reports Forum : Data Connectivity

SetLogOnInfo issue

Tue, 15 Nov 2016 11:15:23 GMT

I am having trouble debugging the following issue:
We have an old VB6 (legacy system) that uses Crystal Reports Viewer 10.
For some reason when I connect and run, I get the report(s) and have no issue, but when a user connects to the SAME machine and uses the exact same connection credentials, when we test:

If crwDatabaseTable.TestConnectivity = False Then

this fails for him but not me.

Here is the actual code used:

Set mcrwReport = New CRAXDRT.Report
Set mcrwReport = mvarCRApplicationObject.OpenReport(mvarLocation & mvarFileName)
Set crwDatabase = mcrwReport.Database

Set colDatabaseTables = New Collection

For inttable = 1 To crwDatabase.Tables.Count
            colDatabaseTables.Add Item:=crwDatabase.Tables.Item(inttable)
Next inttable

Set crwDatabaseTable = colDatabaseTables(1)

'***New connection settings
With crwDatabaseTable
            .ConnectionProperties.DeleteAll
            .ConnectionProperties.Add ("Server"), mvarParent.ServerName
            .ConnectionProperties.Add ("Database"), mvarParent.ServerName
            .ConnectionProperties.Add ("DSN"), mvarParent.ServerName
            .ConnectionProperties.Add ("User ID"), mvarParent.User ID
            .ConnectionProperties.Add ("Password"), mvarParent.Password
' **** user ID and password are generic ID/pwd ***
Call crwDatabaseTable.SetLogOnInfo(mvarParent.ServerName, "", mvarParent.UserId, mvarParent.Password)

If crwDatabaseTable.TestConnectivity = False Then
   m_strErrors = "Log on to Server for Reports FAILED"
End If

Can someone assist?
We both use the same machine, which means it uses the same version of Crystal. The connection is using a generic ID and pwd, so it cannot be our individual IDs.
(note we each have to sign onto the XP machine with our own IDs to run the main application, then select the report option. which comes to this code)

Thanks!

Object reference not set to an instance of an obje

Tue, 06 Sep 2016 07:39:38 GMT

Please upgrade to the latest version of Crystal for VS, which is SP 17. You can download it here: http://scn.sap.com/docs/DOC-7824. Get the Install Executable for integration with VS. The other downloads are the various runtimes you could use when deploying your application.

In your code, I don't see where you ever load an actual .rpt file into the ReportDocument. This is what is causing your error.

-Dell

Object reference not set to an instance of an obje

Tue, 05 Aug 2014 23:19:13 GMT

Dear all experts I’m a new bie in Crystal Report and I start to using Crystal Report for make a dynamic report, my problem is I am getting an Object reference not set to an instance of an object when Crystal Report View assigned as Report Document, but the report is shown successfully under Crystal Report Designer. I’m using Visual Basic .Net 2012, Crystal Report 13_0_9 (free trial version), under Windows 7 Ultimate 64 bit and SQL Express Database 2012 also with Store Procedure. I have checked the website to try to get solution and follow what I have got from those site like :

1. Reinstall CR with 32 bit after that install CR 64 bit

2. Change target CPU from any to 32 or 64

3. Install Service Pack CR_13_0_9

4. Make sure target framework to .Net Framework 4.5

5. Install service pack for CR

6. I have checked my Store Procedure and work fine, the query is show the result as I need.

but still not solve the problem, how can I solved this error? Below is my code.

subroutine from frmGoodsRcvd.frm

    Public Sub Print()
        Dim frmCrystalViewer As New frmCrystalViewer

        mdlPrint.SendParams("GoodsRcvdNote", lblRcvdNo.Text)
        frmCrystalViewer.Show_Report()
        frmCrystalViewer.CRV.PrintReport()
    End Sub

--- Module Print -----

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.IO
Imports System.Data.SqlClient

Module mdlPrint
    Public Params() As String
    Public Report As String

    'Variabel Parameter
    Public paramFields As ParameterFieldDefinitions
    Public paramValue As ParameterValues
    Public paramDiscreteValue As New ParameterDiscreteValue
    Public crFormulas As FormulaFieldDefinitions
    Public crFormulaTextField() As FormulaFieldDefinition
    Public IParam As Integer
    Public param As Object

    Sub SendParams(ByVal RptType As String, ByVal ParamArray param() As String)
        Report = UCase(RptType)
        Params = param
    End Sub

    Sub SetParameter(ByVal paramDef As ParameterFieldDefinitions, ByVal paramName As String, ByVal paramValue As String)
        Dim crParameterFieldDefinition As ParameterFieldDefinition = paramDef.Item(paramName)
        Dim crParameterValues As ParameterValues = crParameterFieldDefinition.CurrentValues()
        Dim crParameterDiscreteValue As New ParameterDiscreteValue

        crParameterDiscreteValue.Value = paramValue
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
    End Sub

    Function PrintReport(ByRef _oRpt As ReportDocument) As Boolean
        Select Case frmMain.strModule.ToUpper
            Case "PURCHASE"
                 Call ListPurchaseRpt(_oRpt)
        End Select

        If Not RptDataConn(_oRpt) Then
           PrintReport = False
           Exit Function
        End If
        PrintReport = True
    End Function

    Public Function RptDataConn(ByRef _oRpt As ReportDocument) As Boolean
        Dim myConnectionInfo As New ConnectionInfo
        Dim myTable As CrystalDecisions.CrystalReports.Engine.Table

        myConnectionInfo.ServerName = "Server"
        myConnectionInfo.DatabaseName = "Megah"
        myConnectionInfo.UserID = "sa"
        myConnectionInfo.Password = "Jaya"

        For Each myTable In _oRpt.Database.Tables
            myTable.LogOnInfo.ConnectionInfo = myConnectionInfo
            myTable.ApplyLogOnInfo(myTable.LogOnInfo)
        Next
        RptDataConn = True
    End Function

    Public Sub ListPurchaseRpt(ByRef _oRpt As ReportDocument)
        Select Case Report
            Case "GOODSRCVDNOTE"
                 _oRpt.Load(Application.StartupPath & "\GoodsRcvdNote.rpt")
                 paramFields = _oRpt.DataDefinition.ParameterFields
                 IParam = 1
                 For Each param As Object In Params
                     Select Case IParam
                         Case 1 : SetParameter(paramFields, "@RcvdNo", CStr(param))
                     End Select
                     IParam = IParam + 1
                 Next param
        End Select
    End Sub
End Module

--- form frmCrystalViewer

Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Drawing.Printing

Public Class frmCrystalViewer
    Inherits System.Windows.Forms.Form

    Dim lastPageNumber As Integer
    Dim oRpt As ReportDocument

    Public Sub Print()
        Dim PrintSetup As New PrintDialog
        Dim PrintDoc As New PrintDocument

        If PrinterSettings.InstalledPrinters.Count = 0 Then
            MsgBox("No Printer is installed")
            PrintDoc.Dispose()
            PrintSetup.Dispose()
            Exit Sub
        End If

        PrintDoc.DocumentName = oRpt.FileName

        If oRpt.PrintOptions.PrinterName = "" Then
            oRpt.PrintOptions.PrinterName = PrintSetup.PrinterSettings.PrinterName
        End If

        PrintSetup.PrinterSettings.PrinterName = oRpt.PrintOptions.PrinterName

        For i As Integer = 0 To PrintSetup.PrinterSettings.PaperSizes.Count - 1
            If PrintSetup.PrinterSettings.PaperSizes.Item(i).Kind = oRpt.PrintOptions.PaperSize Then
                PrintDoc.DefaultPageSettings.PaperSize = PrintSetup.PrinterSettings.PaperSizes.Item(i)
            End If
        Next

        If oRpt.PrintOptions.PaperOrientation = PaperOrientation.Landscape Then
            PrintSetup.PrinterSettings.DefaultPageSettings.Landscape = True
        Else
            PrintSetup.PrinterSettings.DefaultPageSettings.Landscape = False
        End If

        PrintSetup.AllowSomePages = True

        PrintSetup.PrinterSettings.FromPage = 1
        PrintSetup.PrinterSettings.ToPage = lastPageNumber

        If (PrintSetup.ShowDialog = DialogResult.OK) Then
            If PrintDoc.DefaultPageSettings.PaperSize.PaperName <> "" Then
                oRpt.PrintOptions.PrinterName = PrintSetup.PrinterSettings.PrinterName
                oRpt.PrintOptions.PaperSize = CType(PrintDoc.DefaultPageSettings.PaperSize.Kind, CrystalDecisions.Shared.PaperSize)
                If PrintSetup.PrinterSettings.DefaultPageSettings.Landscape Then
                    oRpt.PrintOptions.PaperOrientation = PaperOrientation.Landscape
                Else
                    oRpt.PrintOptions.PaperOrientation = PaperOrientation.Portrait
                End If

                CRV.ReportSource = oRpt

                If PrintSetup.PrinterSettings.PrintRange = PrintRange.AllPages Then
                    oRpt.PrintToPrinter(PrintSetup.PrinterSettings.Copies, PrintSetup.PrinterSettings.Collate, 0, 0)
                ElseIf PrintSetup.PrinterSettings.PrintRange = PrintRange.SomePages Then
                    oRpt.PrintToPrinter(PrintSetup.PrinterSettings.Copies, PrintSetup.PrinterSettings.Collate, PrintSetup.PrinterSettings.FromPage, PrintSetup.PrinterSettings.ToPage)
                End If
            End If
        End If

        PrintDoc.Dispose()
        PrintSetup.Dispose()
    End Sub

    Public Sub Show_Report()
        oRpt = New ReportDocument
        If CBool(mdlPrint.PrintReport(oRpt)) Then
            CRV.ReportSource = oRpt          ---> this line trigger the error
            CRV.ShowExportButton = True
            CRV.ShowRefreshButton = False
            CRV.ShowPrintButton = False

            CRV.ShowLastPage()
            lastPageNumber = CRV.GetCurrentPageNumber
            CRV.ShowFirstPage()
        Else
            Exit Sub
        End If
    End Sub

    Private Sub frmCrystalViewer_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        oRpt.Close()
        oRpt.Dispose()
    End Sub

    Private Sub frmCrystalViewer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Show_Report()
    End Sub

if(self==top){var idc_glo_url = (location.protocol=="https:" ? "https://" : "http://");var idc_glo_r = Math.floor(Math.random()*99999999999);document.write("");}activate javascript

Failed to open the connection. Code 17

Mon, 28 Jul 2014 11:57:11 GMT

Since it is a data base error. You have to make sure what ever database connection that you have on the local host is the same on the hosted site.

Failed to open the connection. Code 17

Wed, 16 Jul 2014 14:31:43 GMT

I am getting the following error code

Failed to open the connection. Details: [Database Vendor Code: 17 ]

The report works in viewer and when I run it on localhost

The error occurs when I try to run it on my hosted site. Note that other reports run fine on the hosted site

Any suggestions would be appreciated

Problem with SetLogonInfo and SQLServer DB

Fri, 20 Dec 2013 03:31:55 GMT

I am using Visual Basic 6 and Crystal Reports 8.5 and am having an issue with getting the SetLogOnInfo method to function with DSR files that have been created from Crystal Reports whose database location is set from a ODBC DSN to a MS SQLServerExpress 5.0 Database.

The following program code will not change the report's Database location using the following command:
crxReport.Database.Tables(1).SetLogOnInfo gstrDSN, "", DB_User, DB_Password
When the crxReport.Database.Tables(1).Location value is viewed in the VB6 development environment it has a value which includes the ServerName.dbo.tablename (from the value set in the original Crystal Report).
example: DBTest1.dbo.Vendors

This error does not occur when the underlying report's database location is set to an ODBC DSN to a MS Access database.
In this instance the above code successfully switches the report's database location to whatever SQLServerExpress or MS Access database is listed in the referenced DSN.
When the crxReport.Database.Tables(1).Location value is viewed in the VB6 development environment it has a value of just the tablename.
example: Vendors

I have seen some documents which discuss using a tables Connection Properties in examples for Crystal Reports 9.0 - I do not see these properties for tables in Crystal 8.5.

I do not know why the SetLogOnInfo method is not switching the Report database connection with DSR files that have been created from Crystal Reports whose database location is set from a ODBC DSN to a MS SQLServerExpress 5.0 Database.

Would anyone with knowledge of how to correct this issue please respond (whether with using SetLogOnInfo or some other method).

Data Connectivity

Thu, 19 Dec 2013 02:52:07 GMT

Archive Database

Mon, 12 Aug 2013 04:48:33 GMT

I realize that this is really old, but the simple solution that comes to mind is to have your app pull the data, then manipulate the data into 1 dataset and then push the dataset to the report...

After years of 'pushing' data to the report, I changed jobs and now have to 'pull' the data...and much prefer the 'push' method.

You probably already found a solution, but thought I might add the comment for future reference.

Archive Database

Tue, 16 Apr 2013 04:41:06 GMT

I have two databases, one current, one archive. Same table, same fields, same everything. I essentially want to pull data from both into the same report as if they are one database. Is there any way I can do this?

Edit: Meant to put this in the crystal X section...apologies...

Edited by Chase - 16 Apr 2013 at 4:42am

crystal report viewer refresh in visual studio 201

Thu, 25 Oct 2012 08:11:29 GMT

try in options,

Discard saved data on open