Crystal report - -2147191835 error message

Question

Hi,
We are using a ASP apge to call crystal reports and it is giving -2147191835 error message after the database connection.  The report opens perfectly via crystal viewer with the same DSN and user id and pwd.
Any Hints?
Thanks.

Answer 1

I did search but was not able to find anything with -2147191835, Cna you let me know what you need.
Below is the code that is makeing the call... fails at the end....
If Not IsObject (session("oApp")) Then                             
  Set session("oApp") = Server.CreateObject("CrystalRuntime.Application.9")
  'Set session("oApp") = Server.CreateObject("CrystalDecisions.CrystalReports.Engine")
End If                                                              
Path = Request.ServerVariables("PATH_TRANSLATED")                    
While (Right(Path, 1) <> "\" And Len(Path) <> 0)                     
iLen = Len(Path) - 1                                                 
Path = Left(Path, iLen)                                              
Wend                                                                               
If IsObject(session("oRpt")) then
     Set session("oRpt") = nothing
End if
'Response.Write "Test 123: " & path & reportname & "....  "
On error resume next
Set session("oRpt") = session("oApp").OpenReport(path & reportname, 1)
'Set session("oRpt") = session("oApp").OpenReport("
sdms013\data\Transfer\CUAdvice.rpt")
'Set session("oRpt") = session("oApp").OpenReport("c:\inetpub\wwwroot\siebel\Report1.rpt")
'Set session("oRpt") = session("oApp").OpenReport("D:\Crystal_MRM\Report1.rpt")
'Response.Write "After open report "
If Err.Number <> 0 Then
  Response.Write "Error Occurred creating Report Object: " & Err.Description
  Set Session("oRpt") = nothing
  Set Session("oApp") = nothing
  Session.Abandon
  Response.End
End If
session("oRpt").MorePrintEngineErrorMessages = False
session("oRpt").EnableParameterPrompting = False
session("oRpt").DiscardSavedData
Set mainReportTableCollection = Session("oRpt").Database.Tables
response.write "<br>Before DB Connection<br>"
For Each mnTable in mainReportTableCollection
With mnTable.ConnectionProperties
.Item("user ID") = "test"
.Item("Password") = "test"
.Item("DSN") = "CR_Siebel"
.Item("Database") ="siebeldb"
End With
Next
On Error Resume Next
session("oRpt").ReadRecords
If Err.Number <> 0 Then                                              
Response.Write "Error Occurred Reading Records: " & Err.number
     Set Session("oRpt") = nothing
Set Session("oApp") = nothing
Session.Abandon
Response.End
Else
If IsObject(session("oPageEngine")) Then                             
       set session("oPageEngine") = nothing
End If
set session("oPageEngine") = session("oRpt").PageEngine
End If
Fails at this line