CRYSTAL REPORTS 8.5 SEM ODBC NO VB6
Amigos, preciso urgentemente de um exemplo de como acessar um Relatório do Crystal, sem ODBC.
Já salvei o Relatório na opção que eu quero, acessando diretamente o Banco de Dados, mais eu não estou conseguindo rodá-lo pelo VB6.
Eu preciso que os dados da conexão sejam enviados pelo VB, pois uso vários Bancos de Dados, e preciso enviar o nome do banco de dados dinamicamente.
Obrigada antecipadamente.
Já salvei o Relatório na opção que eu quero, acessando diretamente o Banco de Dados, mais eu não estou conseguindo rodá-lo pelo VB6.
Eu preciso que os dados da conexão sejam enviados pelo VB, pois uso vários Bancos de Dados, e preciso enviar o nome do banco de dados dinamicamente.
Obrigada antecipadamente.
Tem MSN? A minha aplicação usa CR 9, podemos trocar uma ideia!
Boa tarde
Eu acesso da seguinte forma meu relatório do crystal 8.5 com Acess e VB6
Dim crApp As New CRAXDRT.Application
Dim crRptRouter As New ReportSourceRouter
Dim crxDatabaseField As CRAXDRT.DatabaseFieldDefinition
Dim crRpt1 As New CRAXDRT.Report
Dim StringSQL As String
On Error GoTo erro
Set crRpt1 = crApp.OpenReport(App.Path & [Ô]elfornecedor.rpt[Ô])
[ô]abre base de dados
Dim CRXDatabaseTable As CRAXDRT.DatabaseTable
Dim iC As Integer
iC = 1
For Each CRXDatabaseTable In crRpt1.database.Tables
crRpt1.database.Tables(iC).Location = Caminho [ô]Caminho da base de dados
crRpt1.database.Tables(iC).SetLogOnInfo [Ô][Ô], [Ô][Ô], [Ô][Ô], [Ô]senha[Ô]
iC = iC + 1
Next CRXDatabaseTable
crRpt1.DiscardSavedData
crRptRouter.AddReport crRpt1
[ô]frmRelatorio é uma tela que criei para exibir o relatório do crystal, mas pode exibir apenas o seu relatorio.
Load frmRelatorio
frmRelatorio.CRViewer1.ReportSource = crRptRouter
frmRelatorio.CRViewer1.ViewReport
frmRelatorio.Show vbModal
Exit Sub
qualquer duvida manda uma M.I que eu respondo, abs....
Eu acesso da seguinte forma meu relatório do crystal 8.5 com Acess e VB6
Dim crApp As New CRAXDRT.Application
Dim crRptRouter As New ReportSourceRouter
Dim crxDatabaseField As CRAXDRT.DatabaseFieldDefinition
Dim crRpt1 As New CRAXDRT.Report
Dim StringSQL As String
On Error GoTo erro
Set crRpt1 = crApp.OpenReport(App.Path & [Ô]elfornecedor.rpt[Ô])
[ô]abre base de dados
Dim CRXDatabaseTable As CRAXDRT.DatabaseTable
Dim iC As Integer
iC = 1
For Each CRXDatabaseTable In crRpt1.database.Tables
crRpt1.database.Tables(iC).Location = Caminho [ô]Caminho da base de dados
crRpt1.database.Tables(iC).SetLogOnInfo [Ô][Ô], [Ô][Ô], [Ô][Ô], [Ô]senha[Ô]
iC = iC + 1
Next CRXDatabaseTable
crRpt1.DiscardSavedData
crRptRouter.AddReport crRpt1
[ô]frmRelatorio é uma tela que criei para exibir o relatório do crystal, mas pode exibir apenas o seu relatorio.
Load frmRelatorio
frmRelatorio.CRViewer1.ReportSource = crRptRouter
frmRelatorio.CRViewer1.ViewReport
frmRelatorio.Show vbModal
Exit Sub
qualquer duvida manda uma M.I que eu respondo, abs....
Tópico encerrado , respostas não são mais permitidas