Xandi
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/05/2008 22:43 hs
Boa Noite Pessoal!!
Estou com o seguinte problema, eu utilizava o crystal report 4.6 que vem junto com o VB5, e utilizava o access 97 como banco, so que agora estou utilizando o access 2003, então baixei a versão do crystal 8.5, so que não consigo chamar o relatorio pelo VB6, alguem poderia me ajudar por favor? estou utilizando o código abaixo:
Cr1.SelectionFormula = "{TabTempImpressaoDatasComemorativas.flag_imprime} like '" & TxtImp & "'"
Cr1.DataFiles(0) = App.Path & "Flores.mdb"
Cr1.Connect = ";pwd=floresmaster"
Cr1.ReportFileName = App.Path & "PesquisaData.rpt"
Cr1.Destination = crptToWindow
Cr1.Action = 1
Simplismente não gerar o relatorio nem no video e nem na impressora alguem poderia me ajudar por favor.
|
|
|
|
|
|
IceEyes
|
BRASIL
MS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/05/2008 18:26 hs
acredito que esse cr1.datafiles(0) não é necessário
mas qual o erro que está no vb6?
|
|
|
|
Eduardo Lima
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 20/05/2008 14:33 hs
Olha vc vai precisar chamar um componente em seu projeto que é o Crystl32.ocx, em seguida adicione o componente. No Botão de impressão informe o seguinte comando abaixo. sSQL = ""
sSQL = "SELECT cad_estado.sigla, cad_estado.nom_estado, cad_estado.icms" & _
" From cad_estado cad_estado" & _
" Order by cad_estado.sigla" With crwRel 'Este é o nome do componente que vc adicionou em sua tela no vb (Crystl32.ocx)
.Connect = conn1
.ReportFileName = App.Path & "Estado.rpt"
.SQLQuery = sSQL
.Destination = 0
.Action = 1
End With
|
|
|
|
izzagar
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/08/2008 19:05 hs
Crystal Report 8.5
Private Sub mnuPCli_Click()
'Report1 é o Crystal32.ocx que esta no form principal para fazer a conexão com o relatório
'que deseja abrir
' Report1.ReportFileName = App.Path & '" colocar arquivo report abrir relatório"
' Rel_T é o arquivo que eu quero chamar para abrir o meu relatório
'Relatório completo com todos os registros existente no Banco de Dados
' não importa se Access é 97, 200, 2003, 2007, XP
' comando simples e eficiente em VB 6 para acessar relatório em Crystal Report 8.5
' '
Report1.ReportFileName = App.Path & "Rel_T.RPT"
Report1.Destination = crptToWindow
Report1.SelectionFormula = strSelectionForm
Report1.Action = 1
End Sub
um grade abraço espero ter ajudado
|
|
|
|
