Ola Amigos

Aqui estou novamente.Depois de conseguir fazer funcionar meu primeiro relatorio no crystal 9, fui fazer o segundo e por algum motivo o mesmo nao funcionou.

Esta aparecendo uma mensagem de falha de Login com o SQL e o curioso e que o relatorio que funcionou esta com a mesma rotina.

Ei fiz assim.

' Declare the application object
Global crxApplication As New CRAXDRT.Application

' Declare report object
Global crxReport As CRAXDRT.Report

' Declare database objects
Global crxDatabase As CRAXDRT.database
Global crxDatabaseTables As CRAXDRT.DatabaseTables
Global crxDatabaseTable As CRAXDRT.DatabaseTable

Coloquei o objeto do Crystal em um Form.

Executo a Query

rscmdAux.Open strSelect, envSISCNTR.cntSISCNTR, adOpenForwardOnly, adLockReadOnly

' Pass the Report object to the CrViewer control
CR9.ReportSource = rscmdAux
   
'Set our Database object to the Reports Database object
Set crxDatabase = crxReport.database

'Set our DatabaseTables object to the Tables collection of our Database object
Set crxDatabaseTables = crxDatabase.Tables

' View the report in the CrViewer
CR9.ViewReport  (Aqui e aberto o relatorio do Crystal sem registro algum, uma vez que ocorre o erro de falha de logon)

Por acaso alguem teria uma sintaxe para me enviar?

Muito Obrigado

 

 

 

 

 

 

Essa rotina abaixo exibe um relatório do Crystal 9, para essa rotina foi criado um relatório em ADO e em Access.

 

Public Aplicacao As New CRAXDRT.Application
Public Report As New CRAXDRT.Report

Public Sub Imprimir_Nome(Relatorio As String, Codigo As String, Tabela As String)

 

Dim StringSQL As String
    'Se for um subReport ao invés de OPenReport vc Coloca OpenSubReport(nome do subreport)
    Set Report = Aplicacao.OpenReport(Relatorio) 'Caminho do Relatório
    StringSQL = "{" & Tabela & "} = " & Codigo & ""
    Report.RecordSelectionFormula = StringSQL
    With Formulario
        'informa a senha do banco de dados referente ao relatório pedido
        Report.Database.LogOnServer "DAO", "", "Banco de Dados", "", "senha"
        'atualiza o banco de dados
        Report.DiscardSavedData
        'puxa o relatório
        .CRV.ReportSource = Report
        .CRV.ViewReport
    End With
Já para passar parametros em um relatório criado em ADO:

 

Public Sub Imprimir_Relat_Formula(Formulario As Form, Relatorio As String, Formula As String)

Dim StringSQL As String
Dim Caminho As String
Dim Senha As String

    Senha = "Senha"
    'Caminho = "Caminho onde o relatorio e o banco se encontra"

    'Se for um subReport ao invés de OPenReport vc Coloca OpenSubReport(nome do subreport)
    Set Report = Aplicacao.OpenReport(Caminho & Relatorio, 1) 'Caminho do Relatório
    StringSQL = Formula
    Report.RecordSelectionFormula = StringSQL
    With Formulario
        'conexão com o banco de dados via ADO
        Report.Database.Tables.Item(1).ConnectBufferString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Caminho & "Banco de Dados;Jet OLEDB:database Password=senha"
        Report.Database.Tables.Item(1).DllName = "crdb_ado.dll"
        'atualiza o banco de dados
        Report.DiscardSavedData
        'puxa o relatório
        .CRV.ReportSource = Report
        .CRV.ViewReport
    End With

'Fechar Banco de dados

    Set Aplicacao = Nothing
    Set Report = Nothing
   
End Sub

 

Agora é só ir para a alegria.

 

Flw

 

T+

 

Muito obrigado Joao Carlos

 

Irei experimentar e depois direi o que aconteceu.

 

 

Um Abraco