AJUDA COM ATUALIZAR CRYSTAL REPORTS
Pessoal, tenho problema com [ô]Atualizar[ô] do método VB 6.0. A coisa é assim, eu tenho uma aplicação que estou fazendo no VB 6.0, um DB MySQL. Eu fiz um relatório com o Crystal e ao visualizá-lo a partir do aplicativo em VB 6.0 em princÃpio, ele funciona bem, o problema é quando eu altero alguns dados no DB, em seguida, ler o relatório as alterações não se aplicam no relatório. A questão é que se você der [Ô]Refresh[Ô] no botão que está na barra de controle do CRViewer mesmo, os dados do relatório são atualizados muito bem, sem problemas! mas se eu faço isso por código, eu recebo um erro.
Erro:
Run-Time error [ô]-2147417848 (80010108)[ô]:
Method [ô]Refresh[ô] of object [ô]ICrystalReportViewer4[ô] failed
Codigo:
Dim Report As New CrystalReport1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Refresh --Linha do erro--
Screen.MousePointer = vbDefault
End Sub
Alguma ideia para atualizar esse relatorio automático?
Erro:
Run-Time error [ô]-2147417848 (80010108)[ô]:
Method [ô]Refresh[ô] of object [ô]ICrystalReportViewer4[ô] failed
Codigo:
Dim Report As New CrystalReport1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Refresh --Linha do erro--
Screen.MousePointer = vbDefault
End Sub
Alguma ideia para atualizar esse relatorio automático?
sleifer, nao precisa dessa linha, é só no projeto do relatorio , vc desmarcar a opcao em file\save data wiht report, deixa essa opcao desmarcada, salva o relatorio e teste novamente que vai dar tudo certo ok.
Alexandre, fiz o que disse mas continuou sem atualizar. Mais algo em mente? 
edit: resolvi mudando a forma de gerar o relatorio substitui o CRViewer(Crystal Reports Viewer Control) pelo CrystalReports(Crystal Reports Control) usando as linhas:
Private Sub mnuRelat_Click()
CrystalReport1.Reset
CrystalReport1.Destination = 0
CrystalReport1.ReportFileName = App.Path & [Ô]\Relatórios\maquinas.rpt[Ô]
CrystalReport1.DiscardSavedData = True
CrystalReport1.Action = 1
End Sub
edit: resolvi mudando a forma de gerar o relatorio substitui o CRViewer(Crystal Reports Viewer Control) pelo CrystalReports(Crystal Reports Control) usando as linhas:
Private Sub mnuRelat_Click()
CrystalReport1.Reset
CrystalReport1.Destination = 0
CrystalReport1.ReportFileName = App.Path & [Ô]\Relatórios\maquinas.rpt[Ô]
CrystalReport1.DiscardSavedData = True
CrystalReport1.Action = 1
End Sub
Tópico encerrado , respostas não são mais permitidas