Vendor code 12154 and 1005 error

Question

Hi,
I have developed an application which users the RDC API set (CR XI R2 SP4.5 version) to preview crystal reports. All types of reports works fine but except one. This report is a blank report with one sub-report. I have used native oracle connection to connect to the Oracle database when creating this layout. The main report is blank but it has a sub report with one view. When I run the report from Crystal Report Designer it works fine, but when I run it through my application it give the following error. Other report with sub-reports where the main report also has views works fine. Itu2019s just that reports with sub-reports where there are no views in the main report gives this error. I have debugged the code and found that it gives this error when Iu2019m setting the table location of the view in the sub-report. Hope you can help me to solve this issue.
I get two errors and they are,
Fail to open the connection. Database Vendor Code 12154
Fail to open the connection. Database Vendor Code 1005
Thanks in advance,
Chanaka

Answer 1

Hi Ludek,
Thank you for replying to my question. Here are the information you requested for.
Q: Also, please confirm that this is happening on the same computer where you designed the report?
A: I get the same errors when I run my application and try to view the reports from the same machine where I have installed Crystal Report Designer and created the reports from.
Q: And, if you take out the subreport and run it on it's own as a main report, can you log on to it in code?
A: If I take the sub-report and run it on itu2019s own it works fine from my code
Normally when I create reports with sub-reports I donu2019t browse and import and existing sub-report but I create a sub-report with the Report Wizard. All sub-reports are not on demand sub-reports as well.
Also, as I said before, other reports work fine. That is, reports without sub-reports which has views in the main report, reports without sub-reports where there are no views in the main report as well (blank report), reports with sub-reports where there are views in the main and sub-reports both. Also, for all these combinations I have checked with and without parameters in the main and sub-reports. The errors are only shown when the main report is blank (no views added) and has a sub-reports with views.
Q: Also, open the report in the CR designer, got to the subreport. Then to the Database menu and expand the properties icon. What does it say at Database type?
A: Selecting the sub-report and going the Database\Set Database Location and by clicking on the Properties dropdown (the + sign) I can see that the Database Type is Oracle Server which is correct as we always use the Native Oracle connection to connect to the database at design-time and at runtime when previewing the report from the application.
Q: Please provide the code you are using to log on to the database
A: Code is given below.
Further investigating in to the issue I saw that if the sub-report has parameters I get the error u201CFail to open the connection. Details: [Database Vendor Code: 12154]u201D. If the sub-reports doesnu2019t have parameters then I get the error u201CLogon failed. Details: [Database Vendor Code: 1005]u201D. Debugging in to the code from VB I see that itu2019s throwing the error when I try to set the table location for a view in the sub-report. Here the error number is -2147189176 and the error description is Logon failed. My guess is that both the errors are linked to this location setting and the main report not having views or database connection.
Regards,
Chanaka
In Main section
For tableCountInMainReport= 1 To crxReport.database.Tables.count
  RDCSetNthTableLogOnInfo(u2026u2026u2026.)
  RDCSetNthTableLocation(u2026u2026u2026u2026u2026..)
Next tableCountInMainReport
For each section in report
   If sub-report exist
       RDCSetNTableLogonAndLocSubReport(u2026u2026u2026u2026u2026)
   End if
Next section
Methods called from the main method
Public Function RDCSetNthTableLogOnInfo(ByVal tableIndex As Integer, ByVal server As String, ByVal database As String, ByVal userName As String, ByVal password As String) As String
   On Error GoTo ErrorHandler
   crxReport.database.Tables(tableIndex).ConnectionProperties.Item("Server") = server
   crxReport.database.Tables(tableIndex).ConnectionProperties.Item("User ID") = userName
   crxReport.database.Tables(tableIndex).ConnectionProperties.Item("Password") = password
   If (database <> Null) Or (database <> "") Then
      crxReport.database.Tables(tableIndex).ConnectionProperties.Add "Database", database
      RDCSetNthTableLogOnInfo = "True"
   End If
   RDCSetNthTableLogOnInfo = "True"
ErrorHandler:
   If Err.Number <> 0 Then
      MsgBox "Error in setting table logon information for " & crxReport.database.Tables(tableIndex).Name & "." & "Error number : " & Err.Number & " Error description : " & Err.Description, vbOKOnly, "Error"
      RDCSetNthTableLogOnInfo = "CR_ERROR"
   End If
End Function
Public Function RDCSetNthTableLocation(ByVal tableIndex As Integer, ByVal location As String) As String
   On Error GoTo ErrorHandler
   crxReport.database.Tables(tableIndex).location = location + "." + crxReport.database.Tables(tableIndex).location
   RDCSetNthTableLocation = "True"
ErrorHandler:
   If Err.Number <> 0 Then
      MsgBox "Error in setting the table location. Error number : " & Err.Number & " Error description : " & Err.Description, vbOKOnly, "Error"
      RDCSetNthTableLocation = "CR_ERROR"
   End If
End Function
Public Function RDCSetNTableLogonAndLocSubReport(ByVal setionCode As String, ByVal subreport As Integer, ByVal servers As String, ByVal databases As String, ByVal userNames As String, ByVal passwords As String, ByVal locations As String) As String
   Dim oSubreportObject As CRAXDRT.SubreportObject
   Dim locRet As String
   Dim sServers() As String
   Dim sDatabases() As String
   Dim sUsers() As String
   Dim sPasswords() As String
   Dim sLocations() As String
   Dim i As Integer
   On Error GoTo ErrorHandler
   If crxReport.Sections(setionCode).ReportObjects(subreport).Kind = crSubreportObject Then
      Set oSubreportObject = crxReport.Sections(setionCode).ReportObjects(subreport)
      Set oSubreport = oSubreportObject.OpenSubreport
      sServers = Split(servers, Chr$(31))
      sDatabases = Split(databases, Chr$(31))
      sUsers = Split(userNames, Chr$(31))
      sPasswords = Split(passwords, Chr$(31))
      sLocations = Split(locations, Chr$(31))
      If (oSubreport.database.Tables.count = UBound(sServers)) And _
         (oSubreport.database.Tables.count = UBound(sDatabases)) And _
         (oSubreport.database.Tables.count = UBound(sUsers)) And _
         (oSubreport.database.Tables.count = UBound(sPasswords)) And _
         (oSubreport.database.Tables.count = UBound(sLocations)) Then
         For i = 1 To oSubreport.database.Tables.count
            oSubreport.database.Tables(i).ConnectionProperties.Item("Server") = sServers(i)
            oSubreport.database.Tables(i).ConnectionProperties.Item("User ID") = sUsers(i)
            oSubreport.database.Tables(i).ConnectionProperties.Item("Password") = sPasswords(i)
            If (sDatabases(i) <> Null) Or (sDatabases(i) <> "") Then
               oSubreport.database.Tables(i).ConnectionProperties.Add "Database", sDatabases(i)
            End If
            locRet = ""
            locRet = RDCSetNthTableLocationSubReport(setionCode, subreport, i, sLocations(i))
            If (locRet <> "True") Then
               RDCSetNTableLogonAndLocSubReport = locRet
            End If
         Next i
         RDCSetNTableLogonAndLocSubReport = "True"
      Else
         RDCSetNTableLogonAndLocSubReport = "CR_ERROR"
      End If
   End If
ErrorHandler:
   If Err.Number <> 0 Then
      MsgBox "Error in setting logon information for " & oSubreport.database.Tables(i).Name & "in subreport." & "Error number : " & Err.Number & " Error description : " & Err.Description, vbOKOnly, "Error"
      RDCSetNTableLogonAndLocSubReport = "CR_ERROR"
   End If
End Function
Public Function RDCSetNthTableLocationSubReport(ByVal setionCode As String, ByVal subreport As Integer, ByVal tableIndex, ByVal location) As String
   Dim oSubreportObject As CRAXDRT.SubreportObject
   On Error GoTo ErrorHandler
   If crxReport.Sections(setionCode).ReportObjects(subreport).Kind = crSubreportObject Then
      Set oSubreportObject = crxReport.Sections(setionCode).ReportObjects(subreport)
      oSubreportObject.OpenSubreport.database.Tables(tableIndex).SetTableLocation location + "." + oSubreportObject.OpenSubreport.database.Tables(tableIndex).location, oSubreportObject.OpenSubreport.database.Tables(tableIndex).Name, ""
      RDCSetNthTableLocationSubReport = "True"
   Else
      RDCSetNthTableLocationSubReport = "CR_ERROR"
   End If
ErrorHandler:
   If Err.Number <> 0 Then
      MsgBox "Error in setting the table location in subreport. Error number : " & Err.Number & " Error description : " & Err.Description, vbOKOnly, "Error"
      RDCSetNthTableLocationSubReport = "CR_ERROR"
   End If
End Function