"the server is not yet opened" 
Author Message
 "the server is not yet opened"

Ok, im trying to use ParameterFields and VB to pass a parameter value to a rpt.  I do all the normal stuff, but when i try ViewReport in my code...i get "the server is not yet opened"

    Dim crystalapp As CRAXDRT.Application
    Dim creport As CRAXDRT.Report

    Set crystalapp = New CRAXDRT.Application

    Set creport = crystalapp.OpenReport(App.Path + "\Report1.rpt")

    '--try to set the paramater
    creport.ParameterFields(1).AddCurrentValue ("12345")

    '--also tried this, but didnt work
    'creport.Parameterfields(1) = "test;12345;true"

    CRViewer1.ReportSource = creport
    CRViewer1.ViewReport        '---get error here

    Set creport = Nothing
    Set crystalapp = Nothing

help ?



Sat, 29 Oct 2005 05:41:55 GMT  
 "the server is not yet opened"

    You have to set the connection for the report. Try this,

creport .Database.LogOnServer "Pdsodbc.dll", DSN, , User, Password

    There other ways to to this. Take a look a the Crystal help (usually at "C:\Program Files\Seagate Software\Report Designer Component\Crrdc.hlp") an look for LogOnServer  and LogOnServerEx

    Good Luck


  Ok, im trying to use ParameterFields and VB to pass a parameter value to a rpt.  I do all the normal stuff, but when i try ViewReport in my code...i get "the server is not yet opened"

      Dim crystalapp As CRAXDRT.Application
      Dim creport As CRAXDRT.Report

      Set crystalapp = New CRAXDRT.Application

      Set creport = crystalapp.OpenReport(App.Path + "\Report1.rpt")

      '--try to set the paramater
      creport.ParameterFields(1).AddCurrentValue ("12345")

      '--also tried this, but didnt work
      'creport.Parameterfields(1) = "test;12345;true"

      CRViewer1.ReportSource = creport
      CRViewer1.ViewReport        '---get error here

      Set creport = Nothing
      Set crystalapp = Nothing

  help ?



Sat, 29 Oct 2005 20:54:00 GMT  
 "the server is not yet opened"

well, in another example i tried, i used OpenReport, then set the ReportSource property of the Crystal viewer and it loaded up fine
in the man time, ill try logon


      You have to set the connection for the report. Try this,

  creport .Database.LogOnServer "Pdsodbc.dll", DSN, , User, Password

      There other ways to to this. Take a look a the Crystal help (usually at "C:\Program Files\Seagate Software\Report Designer Component\Crrdc.hlp") an look for LogOnServer  and LogOnServerEx

      Good Luck


    Ok, im trying to use ParameterFields and VB to pass a parameter value to a rpt.  I do all the normal stuff, but when i try ViewReport in my code...i get "the server is not yet opened"

        Dim crystalapp As CRAXDRT.Application
        Dim creport As CRAXDRT.Report

        Set crystalapp = New CRAXDRT.Application

        Set creport = crystalapp.OpenReport(App.Path + "\Report1.rpt")

        '--try to set the paramater
        creport.ParameterFields(1).AddCurrentValue ("12345")

        '--also tried this, but didnt work
        'creport.Parameterfields(1) = "test;12345;true"

        CRViewer1.ReportSource = creport
        CRViewer1.ViewReport        '---get error here

        Set creport = Nothing
        Set crystalapp = Nothing

    help ?



Sat, 29 Oct 2005 21:49:13 GMT  
 
 [ 3 post ] 

 Relevant Pages 

1. Error: "Server not yet opened"

2. "Server not yet opened"

3. "server not yet opened" error

4. "server not yet opened" error

5. Connection not Open + Server has not yet been opened error messages

6. Yet again "Server has not yet been opened"

7. Help on "function not yet implemented"

8. "Server not yet opened" Error when opening report form

9. VB6, CRP7, SQL-server "Server has not yet been opened" message.

10. Server has not yet been opened message with VB6, CRP7 and SQL-server

11. CreateObject("Excel","//server"), MsgBox output

12. CreateObject("Excel","//server"), MsgBox output

 

 
Powered by phpBB® Forum Software