CRYSTAL REPORTS XI, FALHA DE LOGON.
Boa tarde pessoal.
Trabalhava com crystal reports 8, e resolvi me atualizar um pouco, partindo pro Crystal Reports XI.
Criei os relatórios no desenvolvedor do Crystal, utilizando uma base ODBC para conexão com o MySQL, visualizo as informações corretamente no visualizador do Crystal.
Mas quando tento abrir pelo VB6, através do código:
10 strCaminhoRPTs = App.Path & [Ô]\Relatorios\[Ô]
[ô]
[ô] [ô] Mouse Com Ampuleta durante Preparo do Relatorio
20 Screen.MousePointer = vbHourglass
[ô]
[ô]
[ô] [ô] Usando o Metodo [Ô].OpenReport[Ô] do Objeto [Ô]Crystal Reports Application[Ô]
[ô] [ô] passando o nome do Relatorio Externo .RPT
30 Set crxRelatorio = crxApp.OpenReport( _
strCaminhoRPTs & [Ô]\[Ô] & strNomeRelatorioRPT)
[ô] [ô] Descarta dados salvos no arquivo RPT se for o caso
[ô] [ô] Assegura que o Relatorio sera impresso com dados NOVOS de acordo com o RecordSet passado
40
crxRelatorio.DiscardSavedData
[ô] [ô] Criar objeto ADO RecordSet
50 Set rstRelatorio = New ADODB.Recordset
[ô]
[ô] [ô] Abre ADO RecordSet de acordo com comando SQL passado - strSQL
60 Conecta True
[ô]
70 rstRelatorio.Open sqlrelatorio, Conexao, adOpenStatic, adLockReadOnly
[ô] [ô] Passa RecordSet para o Relatorio RPT
80 crxRelatorio.Database.SetDataSource rstRelatorio
crxRelatorio.Database.SetDataSource rstRelatorio.DataSource
90 crxRelatorio.RecordSelectionFormula = Formula
crxRelatorio.Database.Verify
[ô]
[ô]
[ô] [ô] Passao o RecordSet (ReportSource) para o Controle [Ô]CrViewer[Ô] e Mostra Relatorio
100 crxRelatorio.EnableSelectDistinctRecords = True
110 CRViewer.ReportSource = crxRelatorio
120 crxRelatorio.ReportTitle = [Ô]Relatório[Ô]
130 CRViewer.ViewReport
[ô]
[ô] [ô] Abre Relatorio em formato Tela Cheia
140 frmVisualiza.WindowState = vbMaximized
[ô]
[ô] [ô] Loop Enquanto o Relatorio eh Visualizado pelo Usuario
[ô] [ô] Usando [Ô]DoEvents[Ô] permite que o Sistema Operacional tenha
[ô] [ô] Controle durante a Visualizacao do Relatorio
150 While CRViewer.IsBusy
160 DoEvents
170 Wend
180 Set crxRelatorio = Nothing
[ô] Mostra Relatorio com 100% de Zoom
[ô]
190 CRViewer.ViewReport
200 CRViewer.Zoom 100
210 Screen.MousePointer = vbDefault
O relatório não abre de jeito nenhum, dá um erro, dizendo [Ô]Falha de Logon[Ô].
Sei que deve ser alguma coisa referente ao ODBC, mas não tenho ideia de onde alterar.
Alguém pode me dar uma solução?
Trabalhava com crystal reports 8, e resolvi me atualizar um pouco, partindo pro Crystal Reports XI.
Criei os relatórios no desenvolvedor do Crystal, utilizando uma base ODBC para conexão com o MySQL, visualizo as informações corretamente no visualizador do Crystal.
Mas quando tento abrir pelo VB6, através do código:
10 strCaminhoRPTs = App.Path & [Ô]\Relatorios\[Ô]
[ô]
[ô] [ô] Mouse Com Ampuleta durante Preparo do Relatorio
20 Screen.MousePointer = vbHourglass
[ô]
[ô]
[ô] [ô] Usando o Metodo [Ô].OpenReport[Ô] do Objeto [Ô]Crystal Reports Application[Ô]
[ô] [ô] passando o nome do Relatorio Externo .RPT
30 Set crxRelatorio = crxApp.OpenReport( _
strCaminhoRPTs & [Ô]\[Ô] & strNomeRelatorioRPT)
[ô] [ô] Descarta dados salvos no arquivo RPT se for o caso
[ô] [ô] Assegura que o Relatorio sera impresso com dados NOVOS de acordo com o RecordSet passado
40
crxRelatorio.DiscardSavedData
[ô] [ô] Criar objeto ADO RecordSet
50 Set rstRelatorio = New ADODB.Recordset
[ô]
[ô] [ô] Abre ADO RecordSet de acordo com comando SQL passado - strSQL
60 Conecta True
[ô]
70 rstRelatorio.Open sqlrelatorio, Conexao, adOpenStatic, adLockReadOnly
[ô] [ô] Passa RecordSet para o Relatorio RPT
80 crxRelatorio.Database.SetDataSource rstRelatorio
crxRelatorio.Database.SetDataSource rstRelatorio.DataSource
90 crxRelatorio.RecordSelectionFormula = Formula
crxRelatorio.Database.Verify
[ô]
[ô]
[ô] [ô] Passao o RecordSet (ReportSource) para o Controle [Ô]CrViewer[Ô] e Mostra Relatorio
100 crxRelatorio.EnableSelectDistinctRecords = True
110 CRViewer.ReportSource = crxRelatorio
120 crxRelatorio.ReportTitle = [Ô]Relatório[Ô]
130 CRViewer.ViewReport
[ô]
[ô] [ô] Abre Relatorio em formato Tela Cheia
140 frmVisualiza.WindowState = vbMaximized
[ô]
[ô] [ô] Loop Enquanto o Relatorio eh Visualizado pelo Usuario
[ô] [ô] Usando [Ô]DoEvents[Ô] permite que o Sistema Operacional tenha
[ô] [ô] Controle durante a Visualizacao do Relatorio
150 While CRViewer.IsBusy
160 DoEvents
170 Wend
180 Set crxRelatorio = Nothing
[ô] Mostra Relatorio com 100% de Zoom
[ô]
190 CRViewer.ViewReport
200 CRViewer.Zoom 100
210 Screen.MousePointer = vbDefault
O relatório não abre de jeito nenhum, dá um erro, dizendo [Ô]Falha de Logon[Ô].
Sei que deve ser alguma coisa referente ao ODBC, mas não tenho ideia de onde alterar.
Alguém pode me dar uma solução?
Faça seu login para responder