olá amigos!

to qurbrando a cabeça com o crystal...

 

preciso carregar o relatorio com um sql ( esta tem todos os filtros da pesquisa)

to usando assim, porem ele num ta rodando a SQL

 

Private Sub Command2_Click()
Dim LcRPT$, strsql$
LcRPT = App.Path & "Report3.rpt"

strsql = "SELECT tbl_finan_cr.Valor,  tbl_finan_cr.NNF,  tbl_finan_cr.DT_emissao,  tbl_finan_cr.DT_Venc," & _
       "tbl_finan_cr.DT_PGTO , tbl_finan_cr.VL_Pago, tbl_finan_cr.idconta, tbl_cliente.apelido, tbl_bancos.descricao" & _
       " From tbl_finan_cr" & _
       " INNER JOIN tbl_cliente ON (tbl_finan_cr.IdCli = tbl_cliente.codigocli)" & _
       " INNER JOIN tbl_bancos ON (tbl_finan_cr.idconta=tbl_bancos.id)" & _
       " WHERE ( ((Dt_emissao) BETWEEN  '2007-06-06' AND  '2008-03-06') AND (statusCR IN ('A','P','B')) AND (TP_Cobranca IN (4)) AND (tipo = 'C') )"

         Set Report = Appl.OpenReport(LcRPT, 1)
         Report.DiscardSavedData
         Report.Database.SetDataSource "dns =DNS_mysql_coreplas"
         Report.SQLQueryString = strsql ' aqui deveria rodar a minha sql

        Debug.Print Report.SQLQueryString
    With CrystalActiveXReportViewer1

        .ReportSource = Report
        .DisplayToolbar = True
        .DisplayGroupTree = False
        .DisplayTabs = True
       
        .RefreshEx True
        .Refresh
        .ViewReport
   End With
        Appl.CanClose
        Set Appl = Nothing
End Sub