Blz, Galera.
Eu possuo uma aplição no vb e um relatório no crystal 8.5.
Como eu faço para puxar esse relatório através da minha aplicação sem eu usar o componente que tem no vb?
Como se fosse assim:
variavel = C:     esteelatorio.rpt.
Tem como?

Valeu

Olá Rafael, boa tarde.

 

Tem como sim. Para isso você precisa incluir as seguintes referencias no seu projeto VB:

- Crystal Reports 8.5 ActiveX Designer Runtime Library

- Crystal Reports Viwer Control

Uma vez feito isto, basta instanciá-lo no seu programa da seguinte maneira:

Dim crApplication As New CRAXDRT.Application

global V_Report As CRAXDRT.Report ' ( Esta variável deve ser visível no form de visualização )

Set crApplication = New CRAXDRT.Application
Set V_Report = crApplication.NewReport
Set V_Report = crApplication.OpenReport("C:esteelatorio.rpt")
V_Report.Database.LogOnServer "P2Ssql.DLL", "<Nome do Servidor>", "<Nome do Banco de Dados>", "<Usuario>", "<Senha>"

Você pode também passar fórmulas para o seu rpt da seguinte forma:

V_Report.RecordSelectionFormula = "campo = 'valor'"

 

frmVisao.Show  '(chama o form de visualização e mostra o relatorio, veja como abaixo)

 

Para visualizar o seu relatório é preciso fazer o seguinte:

 

Crie um Form novo e inclua o componente CRViewer.

No Load deste form inclua o seguinte código:

 

Private Sub Form_Load()
    
    CRViewer1.ReportSource = V_Report
   
    CRViewer1.ViewReport
   
End Sub

 

Espero ter colaborado.

Meu, você não tem um exemplo completo?

Está dando erro.

Me mande se tiver por favor.

Olá Rafael, bom dia.

 

O exemplo acima está completo, no que diz respeito a sua solicitação. Mande-me o erro que está ocorrendo que ficarei muito feliz em poder ajudar.

 

Um abraço.

Atenção: O CRViewer é um controle ActiveX que fica na barra de Ferramentas do VB. Para adicioná-lo você deve ir em Components e selecionar Crystal Report Viewer. Ou seja, você sempre deverá usar um controle do Crystal, mas não necessariamente o controle CrystalReport.ocx que é mais antigo e dá erro em alguns relatórios, pois a Seagate descontinuou este controle.

 

Sandro.

mandei no seu email um programinha que fiz para exibir relatorios e está dando erro. Não encontro esse erro. vê qual erro pode ser, por favor.