Dim CR_App As New CRAXDRT.Application
Dim CR_Report As CRAXDRT.Report

Set CR_Report = CR_App.OpenReport("Relatorio.rpt")

Pode ser assim :

SQL="SELECT * FROM TABELA1, TABELA2 WHERE titulo='" & Parametro & "' AND Data .... "
cr_Report.SQLQueryString=SQL
OU assim:

colocar a SQL em um Recordset

cr_Report.Database.SetDataSource Recordset

 

Como uso a versão 11.0, não posso testar a sintaxe no 8.0

Susana

 

No VB o componente do crystal tem uma propriedade chamada   SQLQUERY,  nela eu coloco a query que quero passar para o crystal. Funciona perfeitamente no crystal 6.0. Não tive oportunidade de fazer testes com versões posteriores.

Vaca, boa tarde..

 

        De uma olhada na seção de dicas..

        Post lá, já a algum tempo, a maneira de usar Crystal e arquivos .TTX, ali voce vai encontrar como enviar RECORDSET do vb para o Crystal.

 

 

muito obrigado por todos.. mais jah arrumei um jeito de fazer.. naum eh o mais facil.. mais funciona corretamente.... criei uma consulta sql via codigo no vb para o acess e acesso ela no relatório... como eh urgente vo deixar assim mais o proximo passo eh passar esse relatorio para como o erico disse... mesmo assim muito obrigado