DICAS PARA CRYSTAL REPORT 9

LREZANI 02/08/2007 14:08:24
#229099
Olá pessoal;
Gostaria de saber como eu faço para mandar dados para um relatório diretamente do vb, sem ter que gravá-los em um BD.
Nunca necessitei disso, mas agora preciso fazer algo que seja rápido, pois as informações não são de grandes importâncias e portanto não preciso armazená-las.
Caso alguem tenha algum exemplo serei muito grato.
Obrigado.
USUARIO.EXCLUIDOS 02/08/2007 14:43:06
#229110 Resposta escolhida
Vc pode passar dados através de parametros criados no proprio Crystal.

Exemplo:

rpt.ParameterFields(0) = "NomeCliente;" & txtNoemCliente.Text & ";TRUE"

No Crystal basta entrar no menu Insert/Parameter Field
LREZANI 02/08/2007 14:51:41
#229116
Teria algum exemplo pratico bem simples para facilitar?
Obrigado.
USUARIO.EXCLUIDOS 02/08/2007 15:04:14
#229118
Neste exemplo vc cria no Crystal 2 parametros de nome (NomeCliente e TelCliente).

No VB vc passa os dados digitados através dos textbox (txtNomeCliente.text e txtTelCliente.text) diretamente para o Crystal atraves dos parâmetros criados.

Exemplo:

With NomeRpt
.Reset
.ReportFileName = App.Path & "\NomeDoSeuRPT.rpt"
.ParameterFields(0) = "NomeCliente;" & txtNomeCliente.Text & ";TRUE"
.ParameterFields(1) = "TelCliente;" & txtTelefone.Text & ";TRUE"
.WindowState = crptMaximized
.WindowShowSearchBtn = True
.Action = 1
end With

Qualquer dúvida do exemplo poste...
LREZANI 02/08/2007 15:16:21
#229124
Vou tentar implantar... Postarei em breve o resultado.
Obrigado.
LREZANI 03/08/2007 09:56:17
#229275
Fala Frau;
Veja como eu estou declarando no VB:

Public RptObj As CRAXDDRT.Report

[c]Private Sub Form_Load()
        Screen.MousePointer = vbHourglass
        Set RptApp = New CRAXDRT.Application
        Set RptObj = New CRAXDDRT.Report
        Set RptObj = RptApp.OpenReport("c:\Rela\Teste.rpt")

'       RptObj.ParameterFields(0) = "Nota Fiscal;" & TxtNumero & ";TRUE"
'       Gerou o erro "Subscript out of range"

        RptObj.ReadRecords
        CRViewer91.ReportSource = RptObj
        CRViewer91.ViewReport
        CRViewer91.Refresh
        Screen.MousePointer = vbDefault

End Sub

[/c]
Criei alguns campos no Crystal 9 (Parameter Fields) e tentei implantar o que me passou acima no meu código mas não funcionou.
Poderia me dar alguma sugestão, pois estou "quebrando a cabeça".
Obrigado.
USUARIO.EXCLUIDOS 03/08/2007 10:33:49
#229299
No site oficial do Crytal Reports tem um .PDF (link abaixo) com um monte de links para projetos exemplo em VB6 com CR 8, 8.5 e 9. Muito bom, recomendo.

http://support.businessobjects.com/communityCS/TechnicalPapers/apps_rdc.pdf.asp
LREZANI 03/08/2007 14:07:58
#229352
Obrigado pela ajuda pessoal... Abaixo a maneira como fiz:
 RptObj.ParameterFields.GetItemByName("Numero").AddCurrentValue TxtNumero.Text

Até+
Tópico encerrado , respostas não são mais permitidas
Voltar