CONECTAR CRYSTAL REPORT 8 COM O VB

JLSMA 25/01/2010 17:14:44
#332805
BOA TARDE

MONTEI UM RELATORIO COM O CRYSTAL REPORT 8, ESTA FUNCIONANDO PERFEITAMENTE, PORéM PRECISO DO SEGUINTE

CONECTAR ELE O RELATORIO AO VB E COLOCAR AS OPÕES DE FILTRO EM UM FORM.

A CONEÇÃO COM O BANCO DE DADOS VIA VB COMO FUNCIONA, JA QUE O CRYSTAL SE CONECTA DIRETO AO BANCO?

NOME DO RELATORIO DEMONSTRATIVO.RPT, BANCO DADOS.MDB

ALGUEM DAR UM DICA SOBRE COMO FAZER

OBRIGADO JAIR
JLSMA 26/01/2010 09:54:46
#332846
TETEI CONECTAR DESTA FORMA MAS NÃO FUNCIONA


CrystalReport1.DataFiles(0) = App.Path & [Ô]\Dados.mdb[Ô]
o select como posso colocar aqui

CrystalReport1.Connect = [Ô];pwd=[Ô][Ô]
CrystalReport1.ReportFileName = App.Path & [Ô]\Demonstrativo.rpt[Ô]

CrystalReport1.WindowState = crptMaximized [ô]maximiza a tela do relatório
CrystalReport1.Destination = 0
CrystalReport1.PrintReport

estou usando crystal report 8 e vb6 c/ sp6
LLAIA 26/01/2010 10:43:41
#332851
FERRAZ 26/01/2010 10:43:53
#332852
JLSMA, veja asim se funciona ae:

Na guia general inclua:

Option Explicit
Dim Report As CrystalReport


No Load do form que vc vai chamar o crystal inclua:

Private Sub Form_Load()
CrystalRet.ReportFileName = [Ô]C:\caminho do seu sistema\seu report[Ô]
End Sub


No Form_Unload(cancel as integer), vamos derrubar a variavel, para evitar que fique na memoria

Private Sub Form_Unload(Cancel As Integer)
Set Report = Nothing
End Sub


Bom estudo.
SINKERTEC 26/01/2010 11:03:20
#332857
No código do Ferraz faltou isso

CrystalRep.Action = 1
FERRAZ 26/01/2010 14:02:22
#332880
Valeu, SINKERTEC, no Form_Load, coleque isso:

Private Sub Form_Load()
CrystalRet.ReportFileName = [Ô]C:\caminho do seu sistema\seu report[Ô]
CrystalRep.Action = 1
End Sub


Vc tbem pode colocar outras propriedades, fique avontade, JLSMA.
JLSMA 27/01/2010 12:05:18
#332941
Option Explicit
Dim Report As CrystalReport

Dim DB As Database
Dim Rs As Recordset


Private Sub Form_Load()

Set DB = OpenDatabase(App.path & [Ô]\dados.mdb[Ô])
Set Rs = DB.OpenRecordset([Ô]Select * from DmLancamento[Ô])

CrystalReport1.DataFiles(0) = App.path & [Ô]\Dados.mdb[Ô]
CrystalReport1.Connect = [Ô];pwd=[Ô][Ô][Ô]
CrystalReport1.DataSource = [Ô]Select * From DmLancamento[Ô] [ô] erro type mismatch
CrystalReport1.ReportFileName = App.path & [Ô]\Designer\Demonstrativo.rpt[Ô]
CrystalReport1.Action = 1 [ô] ERRO UNABLE TO LOAD REPORT 20525
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Destination = 0
CrystalReport1.PrintReport

OCORRE ERRO NA SEGUINTE LINHAS
CrystalReport1.DataSource = [Ô]Select * From DmLancamento[Ô] [ô] ERRO TYPE MISMATCH
CrystalReport1.Action = 1 [ô] ERRO UNABLE TO LOAD REPORT 20525
End Sub


Private Sub Form_Unload(Cancel As Integer)
Set Report = Nothing
End Sub
WSOUZA 27/01/2010 15:50:54
#332963 Resposta escolhida
Boa tarde !

Pegando carona na pergunta do amigo. Uso Crystal 8.5 e Visual Basic 6.0...o meu relatório já está montado e funcionando, só estou com difuculdades na hora de gerar o instalador ( uso o Inno Setup ). O seguinte erro é dado : Error-2147206460.

Estou usando um Viewer para visualizar os relatórios. Alguém já teve este problema ?

Grato pela atenção

William
Tópico encerrado , respostas não são mais permitidas
Voltar