1)no código abaixo, preciso acrescentar a linha que passa a senha para o banco mdb

2) a string sql, não funciona, não da erro, mas também não filtra a condição.

obs: uso vb6 + crystal 8.5 + access xp

Dim Aplicacao As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
Set Report = Aplicacao.OpenReport(App.Path & "listacli.rpt")
Report.SQLQueryString = "select * from clientes where tipo ='Fornecedor'"
Report.DiscardSavedData
Report.PrinterSetup (0)

frmreport.CRViewer1.ReportSource = Report
frmreport.CRViewer1.ViewReport
frmreport.Show 1

pessoal, da uma forcinha ai......

Caro colega,

 

Porque você opta por um "selection formula" ao invés de passar uma query?

 

Se precisar de um exemplo...

 

Um abraço e boa sorte.

felipe, a idéia é passar uma query mesmo, mas não esta dando certo, quero um exemplo sim.

Eu utilizo o crystal 9 e uso esse código, dê uma olhada nele e veja o que vc pode aproveitar

 

'Se for um subReport ao invés de OPenReport vc Coloca OpenSubReport(nome do subreport)
    Set Report = Aplicacao.OpenReport(Relatorio) 'Caminho do Relatório
    With FrmRelatorio
        'informa a senha do banco de dados referente ao relatório pedido
        Report.Database.LogOnServer "dao", "", "banco.mdb", "", "senha"
        'atualiza o banco de dados
        Report.DiscardSavedData
        'puxa o relatório
        .CRV.ReportSource = Report
        .CRV.ViewReport
    End With

 

Espero ter lhe ajudado.

 

Com filtro eu utilizo assim:

 

  'Se for um subReport ao invés de OPenReport vc Coloca OpenSubReport(nome do subreport)
    Set Report = Aplicacao.OpenReport(Relatorio) 'Caminho do Relatório
    StringSQL = "{tblclientes.nome} = " & "'" & FrmRelatorio.CmbNome.Text & "'"
    Report.RecordSelectionFormula = StringSQL
    With FrmRelatorio
        'informa a senha do banco de dados referente ao relatório pedido
        Report.Database.LogOnServer "dao", "", "banco.mdb", "", "senha"
        'atualiza o banco de dados
        Report.DiscardSavedData
        'puxa o relatório
        .CRV.ReportSource = Report
        .CRV.ViewReport
    End With