CARREGAR RECORSER NO CRYSTAL REPORT
ola boa tarde alguem sabe como e se tem como carregar um recordset no cristal
ja tenho o relatorio pronto o que eu preciso e filtrar o recorset por datas e jogar em um relatorio no crystal
ja tenho o recorset e ta filtrando com dtpicker que eu fiz
ja tenho o relatorio pronto o que eu preciso e filtrar o recorset por datas e jogar em um relatorio no crystal
ja tenho o recorset e ta filtrando com dtpicker que eu fiz
O que vc pode fazer é passar a sua query pro report, Exemplo:
.ReportFileName = App.Path & [Ô]\gruposubgrupos.rpt[Ô]
.WindowTitle = [Ô]Relatorio: Grupo e SubGrupo Móveis[Ô]
.SQLQuery = [Ô]SELECT SuperGrupoMoveis.cdGrupo, SuperGrupoMoveis.nmGrupo, GrupoMoveis.SubCodigo_GrupoMov, GrupoMoveis.Descricao_GrupoMov [Ô] & _
[Ô] FROM SuperGrupoMoveis SuperGrupoMoveis INNER JOIN [Ô] & _
[Ô] GrupoMoveis GrupoMoveis ON SuperGrupoMoveis.cdGrupo = GrupoMoveis.Codigo_GrupoMov [Ô] & _
[Ô] ORDER BY SuperGrupoMoveis.cdGrupo[Ô]
If .PrintReport <> 0 Then msgBox [Ô]Erro ao imprimir: [Ô] & err.description
.ReportFileName = App.Path & [Ô]\gruposubgrupos.rpt[Ô]
.WindowTitle = [Ô]Relatorio: Grupo e SubGrupo Móveis[Ô]
.SQLQuery = [Ô]SELECT SuperGrupoMoveis.cdGrupo, SuperGrupoMoveis.nmGrupo, GrupoMoveis.SubCodigo_GrupoMov, GrupoMoveis.Descricao_GrupoMov [Ô] & _
[Ô] FROM SuperGrupoMoveis SuperGrupoMoveis INNER JOIN [Ô] & _
[Ô] GrupoMoveis GrupoMoveis ON SuperGrupoMoveis.cdGrupo = GrupoMoveis.Codigo_GrupoMov [Ô] & _
[Ô] ORDER BY SuperGrupoMoveis.cdGrupo[Ô]
If .PrintReport <> 0 Then msgBox [Ô]Erro ao imprimir: [Ô] & err.description
certo mas eu tenho que montar os text no crystal antes ou nao precisa tipo datareport que quando eu carrego o recorset no datasource ele proprio joga os campos da tabela no relatorio eu apenas tenho que criar os text antes e pronto é isso.
só melhorando a resposta do jcarlos pra usar com o que vc quer , faz assim, pegando a data da tela
.SQLQuery = [Ô]SELECT SuperGrupoMoveis.cdGrupo, SuperGrupoMoveis.nmGrupo, GrupoMoveis.SubCodigo_GrupoMov, GrupoMoveis.Descricao_GrupoMov [Ô] & _
[Ô] FROM SuperGrupoMoveis SuperGrupoMoveis INNER JOIN [Ô] & _
[Ô] GrupoMoveis GrupoMoveis ON SuperGrupoMoveis.cdGrupo = GrupoMoveis.Codigo_GrupoMov [Ô] & _
[Ô] and data = [ô][Ô] & me.txtdata.text & [Ô][ô][Ô]
[Ô] ORDER BY SuperGrupoMoveis.cdGrupo[Ô]
.SQLQuery = [Ô]SELECT SuperGrupoMoveis.cdGrupo, SuperGrupoMoveis.nmGrupo, GrupoMoveis.SubCodigo_GrupoMov, GrupoMoveis.Descricao_GrupoMov [Ô] & _
[Ô] FROM SuperGrupoMoveis SuperGrupoMoveis INNER JOIN [Ô] & _
[Ô] GrupoMoveis GrupoMoveis ON SuperGrupoMoveis.cdGrupo = GrupoMoveis.Codigo_GrupoMov [Ô] & _
[Ô] and data = [ô][Ô] & me.txtdata.text & [Ô][ô][Ô]
[Ô] ORDER BY SuperGrupoMoveis.cdGrupo[Ô]
certo isso eu entendi mas tenho montar antes os texts do crystal é isso
sim sim, vc tem que jogar esse select dentrto do crystal e criar o relatorio
se entendi seria isto
CrystalReport1.SQLQuery=[Ô]aqui vai minha SQL [Ô]
CrystalReport1.Destination = 0 [ô]imprime na tela
CrystalReport1.ReportFileName = [Ô]C:\RELATORIOSCRYSTAL\Teste Crystalelatorio.rpt[Ô] [ô]caminho nome do relatorio
CrystalReport1.Action = 1 [ô]inicia impressao
tem cmo fazer assim ou estou errado
CrystalReport1.SQLQuery=[Ô]aqui vai minha SQL [Ô]
CrystalReport1.Destination = 0 [ô]imprime na tela
CrystalReport1.ReportFileName = [Ô]C:\RELATORIOSCRYSTAL\Teste Crystalelatorio.rpt[Ô] [ô]caminho nome do relatorio
CrystalReport1.Action = 1 [ô]inicia impressao
tem cmo fazer assim ou estou errado
o meu funciona deste jeito, VBDESENVOLVEDOR.
aproveitando o topico
teria como fazer isto?
aproveitando o topico
teria como fazer isto?
CrystalReport1.ReportFileName = [Ô] & App.Path & [Ô]elatorio.rpt
cara daria no mesmo pois pega o caminho do relatorio
quando minha estrutura do SQL vc ja fez assim
CrystalReport1.SQLQuery=[Ô]aqui vai minha SQL [Ô]
CrystalReport1.Destination = 0 [ô]imprime na tela
CrystalReport1.ReportFileName = [Ô] & App.Path & [Ô] elatorio.rpt [ô]caminho nome do relatorio
CrystalReport1.Action = 1 [ô]inicia impressao
quando minha estrutura do SQL vc ja fez assim
CrystalReport1.SQLQuery=[Ô]aqui vai minha SQL [Ô]
CrystalReport1.Destination = 0 [ô]imprime na tela
CrystalReport1.ReportFileName = [Ô] & App.Path & [Ô] elatorio.rpt [ô]caminho nome do relatorio
CrystalReport1.Action = 1 [ô]inicia impressao
eu fasso para buscar pela combo CrystalReport1.SelectionFormula = [Ô]{checklist.placa} = [ô][Ô] & Combo1.Text & [Ô][ô][Ô]
strFormula = [Ô]({ALUNOS.TBCLI_DATANASC} >= Date(2010, 03, 01)) and ({ALUNOS.TBCLI_DATANASC} <= Date(2010, 03, 31))[Ô]
strFormula = [Ô]({ALUNOS.TBCLI_DATANASC} >= Date(2010, 03, 01)) and ({ALUNOS.TBCLI_DATANASC} <= Date(2010, 03, 31))[Ô]
assim do jeito que eu fiz sera funciona
CrystalReport1.SQLQuery=[Ô]select * from TBagendas where data = #variaveldata# [Ô]
CrystalReport1.Destination = 0 [ô]imprime na tela
CrystalReport1.ReportFileName = [Ô] & App.Path & [Ô] elatorio.rpt [ô]caminho nome do relatorio
CrystalReport1.Action = 1 [ô]inicia impressao
direto pelo VB 6 programando em um botao e um campo digitar a data
CrystalReport1.SQLQuery=[Ô]select * from TBagendas where data = #variaveldata# [Ô]
CrystalReport1.Destination = 0 [ô]imprime na tela
CrystalReport1.ReportFileName = [Ô] & App.Path & [Ô] elatorio.rpt [ô]caminho nome do relatorio
CrystalReport1.Action = 1 [ô]inicia impressao
direto pelo VB 6 programando em um botao e um campo digitar a data
Tópico encerrado , respostas não são mais permitidas