Você conhe o IN?
where c.matricula IN ('+EDMATRICULAS.TEXT'+)
Luciano C. Simões
--- Em delphi-br@yahoogrupos.com.br, "Herik" <brevilh...@...> escreveu
>
> Estou fazendo uma consulta para gerar um relatorio, esa cosnulta está
> certinho, mais ele consulta apanas uma matricula no EDMATRICULAS.TEXT, eu no
> caso preciso que ela consulte varias matriculas, ou seja, ao colocar uma
> matricula e a virgula, outra matricula e a virgula, ele consulte e gere o
> relatorio de todas as matriculas inseridas, até não encontrar a virgula.
> Acredito precisar de um while mais eu nao tenho ideia de como fazer.
> Se alguem puder me ajuda reu agradeço...
> Segue abaixo a consulta que estou usando....
>
> procedure btnOKOnClick(Sender: TfrxComponent);
> begin
>
> qLOCAL.sql.clear;
> qCLIENTE.sql.clear;
> qCLIENTE.sql.add('select distinct c.matricula, c.categoria, c.nome,
> c.endereco, c.numero_imovel, c.hidrometro, c.complemento, c.ROTEIRO,');
> qCLIENTE.sql.add('c.ECO_AGUA_RES, c.ECO_AGUA_COM, c.ECO_AGUA_IND,
> c.ECO_AGUA_PUB, c.ECO_AGUA_UTP,');
> qCLIENTE.sql.add('c.ECO_ESG_RES, c.ECO_ESG_COM, c.ECO_ESG_IND, c.ECO_ESG_PUB,
> c.ECO_ESG_UTP, c.DT_INSTALACAO, l.nome,');
> qCLIENTE.sql.add('s.cpf_cnpj, s.bairro, s.telefone, s.codope');
> qCLIENTE.sql.add('from cliente c, sgcf s, local l');
> qCLIENTE.sql.add(' where c.matricula = ' + EDMATRICULAS.TEXT);
> qCLIENTE.sql.add('and c.matricula = s.matricula and c.i_local = l.i_local');
> QLOCAL.SQL.ADD('select * from servicos where i_servico = ' + CBSERVICO.TEXT);
> end;
>
