CONEXAO VB6 ORACLE CRYSTAL XI
Pessoal, bom dia.
Alguem pode me auxiliar?
Faz tempo que nao programava em VB6
Mas fiz um pequeno projeto para fazer uma apuração de horas trabalhadas pelos colaboradores
Tenho uma Base ORACLE XE versao 10
Crystal reports XI
Windows 10
O meu projeto VB ja finalizei e está funcional.
O oracle configurado
O crystal ja desenvolvi o relatorio com os agrupamentos necessarios e funcionando, ( quando executado direto pelo crystal e conectado a base oracle)
Porem ja estudei varios artigos, videos, e nao consegui fazer a chamado do relatorio do crystal pelo meu projeto VB.
Nao consigo instalar o componente crviewer e nao sei qual outro componente poderia me ajudar na chamada.
Já esgotei minhas tentativas.
Precisaria entregar esse projeto amanha.
Me auxiliem por favor.
Até pago um almoço.
Pra voces que tem largo conhecimento, nao deve ser complicado.
Se puderem conectar no meu micro pelo anydesk, agradeceria muito.
Conto com voces.
Obrigado
se precisarem, meu email é toninho.roque@gmail.com
Alguem pode me auxiliar?
Faz tempo que nao programava em VB6
Mas fiz um pequeno projeto para fazer uma apuração de horas trabalhadas pelos colaboradores
Tenho uma Base ORACLE XE versao 10
Crystal reports XI
Windows 10
O meu projeto VB ja finalizei e está funcional.
O oracle configurado
O crystal ja desenvolvi o relatorio com os agrupamentos necessarios e funcionando, ( quando executado direto pelo crystal e conectado a base oracle)
Porem ja estudei varios artigos, videos, e nao consegui fazer a chamado do relatorio do crystal pelo meu projeto VB.
Nao consigo instalar o componente crviewer e nao sei qual outro componente poderia me ajudar na chamada.
Já esgotei minhas tentativas.
Precisaria entregar esse projeto amanha.
Me auxiliem por favor.
Até pago um almoço.
Pra voces que tem largo conhecimento, nao deve ser complicado.
Se puderem conectar no meu micro pelo anydesk, agradeceria muito.
Conto com voces.
Obrigado
se precisarem, meu email é toninho.roque@gmail.com
vamos la
Para usar o Crystal Reports Viewer no VB6, você precisa registrar o componente Crystal Reports ActiveX Designer Runtime Library no Windows.
Arquivos comuns necessários
CRAXDRT.DLL (Crystal Reports Runtime)
CRViewer.DLL (Crystal Reports Viewer)
registrar manualmente:
Localize os arquivos mencionados no diretório de instalação do Crystal Reports (normalmente em C:\Program Files\Common Files\Crystal Decisions\...).
Abra o Prompt de Comando como Administrador.
Registre os arquivos usando o comando:
regsvr32 "Caminho_do_arquivo\CRAXDRT.DLL"
regsvr32 "Caminho_do_arquivo\CRViewer.DLL"
Adicione o componente ao VB6
Após registrar os arquivos, adicione o controle ao projeto:
No VB6, clique em Project > Components.
Procure por Crystal Reports ActiveX Viewer Control e selecione.
Adicione o controle no formulário.
Conecte-se ao Oracle Database
Certifique-se de que o ODBC Driver para Oracle está configurado no sistema. aqui especifica se é 64 ou 32 porque da erro
Configure a conexão no Crystal Reports e salve o arquivo .rpt.
exemplo básico de como exibir o relatório no Viewer:
Dim CRApp As New CRAXDRT.Application
Dim CRReport As CRAXDRT.Report
Private Sub Form_Load()
' Carregar o relatório
Set CRReport = CRApp.OpenReport("C:\Caminho\Do\Relatorio.rpt")
' Configurar os parâmetros, se necessário
CRReport.ParameterFields(1).AddCurrentValue "ValorDoParametro"
' Configurar o Viewer
CRViewer1.ReportSource = CRReport
CRViewer1.ViewReport
End Sub
e uma outra Alternativa sem CRViewer
Se você não conseguir registrar o CRViewer, pode exportar o relatório diretamente para PDF e abri-lo no visualizador padrão:
Dim CRApp As New CRAXDRT.Application
Dim CRReport As CRAXDRT.Report
Private Sub Form_Load()
' Carregar o relatório
Set CRReport = CRApp.OpenReport("C:\Caminho\Do\Relatorio.rpt")
' Exportar para PDF
CRReport.ExportOptions.DestinationType = crEDTDiskFile
CRReport.ExportOptions.DiskFileName = "C:\Caminho\Relatorio.pdf"
CRReport.ExportOptions.FormatType = crEFTPortableDocFormat
CRReport.Export False
' Abrir o PDF
Shell "cmd /c start C:\Caminho\Relatorio.pdf", vbNormalFocus
End Sub
Para usar o Crystal Reports Viewer no VB6, você precisa registrar o componente Crystal Reports ActiveX Designer Runtime Library no Windows.
Arquivos comuns necessários
CRAXDRT.DLL (Crystal Reports Runtime)
CRViewer.DLL (Crystal Reports Viewer)
registrar manualmente:
Localize os arquivos mencionados no diretório de instalação do Crystal Reports (normalmente em C:\Program Files\Common Files\Crystal Decisions\...).
Abra o Prompt de Comando como Administrador.
Registre os arquivos usando o comando:
regsvr32 "Caminho_do_arquivo\CRAXDRT.DLL"
regsvr32 "Caminho_do_arquivo\CRViewer.DLL"
Adicione o componente ao VB6
Após registrar os arquivos, adicione o controle ao projeto:
No VB6, clique em Project > Components.
Procure por Crystal Reports ActiveX Viewer Control e selecione.
Adicione o controle no formulário.
Conecte-se ao Oracle Database
Certifique-se de que o ODBC Driver para Oracle está configurado no sistema. aqui especifica se é 64 ou 32 porque da erro
Configure a conexão no Crystal Reports e salve o arquivo .rpt.
exemplo básico de como exibir o relatório no Viewer:
Dim CRApp As New CRAXDRT.Application
Dim CRReport As CRAXDRT.Report
Private Sub Form_Load()
' Carregar o relatório
Set CRReport = CRApp.OpenReport("C:\Caminho\Do\Relatorio.rpt")
' Configurar os parâmetros, se necessário
CRReport.ParameterFields(1).AddCurrentValue "ValorDoParametro"
' Configurar o Viewer
CRViewer1.ReportSource = CRReport
CRViewer1.ViewReport
End Sub
e uma outra Alternativa sem CRViewer
Se você não conseguir registrar o CRViewer, pode exportar o relatório diretamente para PDF e abri-lo no visualizador padrão:
Dim CRApp As New CRAXDRT.Application
Dim CRReport As CRAXDRT.Report
Private Sub Form_Load()
' Carregar o relatório
Set CRReport = CRApp.OpenReport("C:\Caminho\Do\Relatorio.rpt")
' Exportar para PDF
CRReport.ExportOptions.DestinationType = crEDTDiskFile
CRReport.ExportOptions.DiskFileName = "C:\Caminho\Relatorio.pdf"
CRReport.ExportOptions.FormatType = crEFTPortableDocFormat
CRReport.Export False
' Abrir o PDF
Shell "cmd /c start C:\Caminho\Relatorio.pdf", vbNormalFocus
End Sub
Obrigado Fabricio.
Te mandei um email
Abs
Te mandei um email
Abs
Citação:Obrigado Fabricio.Te mandei um email Abs
irmao nao tenho nem o crystal instalado aqui e nem o vb6 a muitos anos nao os uso, e meus relatorios, são feitos diretos em html ou em txt
Faça seu login para responder