Agradeço o empenho contudo o erro de localização de parâmetro persiste.
O curioso é que esta estrutura de código eu uso há tempos e nunca houve este
retorno de erro.
--- Em delphi-br@yahoogrupos.com.br, Jean Barreiros <delphij...@...> escreveu
>
> Na parte do código abaixo você não estar usando do FetchPArams() antes passar
> os valores para os parametros, veja abaixo em azul:
> with bd.SQLRelVendas do
> begin
> FetchParams();
> parambyname(' x ').AsDate := Inicio.Date;
> parambyname(' y ').AsDate := Termino.Date;
> parambyname(' a ').AsString := CodDoAtendente.Caption;
> end;
>
>
> Destaquei também no código acima em vermelho o SQLRelVendas para informar que
> ele deve ser um TClientDataSet;
> se você tiver passando os parâmetros para um TSQLQuery comece a passar para o
> TClientDataSet;
> como abaixo:
>
> with bd.CDSRelVendas do
> begin
> FetchParams();
> parambyname(' x ').AsDate := Inicio.Date;
> parambyname(' y ').AsDate := Termino.Date;
> parambyname(' a ').AsString := CodDoAtendente.Caption;
>
> end;
>
> espero ter ajudado.
> Jean Barreiros
> Programador/Web-Designer
> Delphi, C++, PHP, JavaScript
> FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
> msn: delphij...@...
> e-mail: delphij...@...
>
>
>
>
> ________________________________
> De: Levy <levypere...@...>
> Para: delphi-br@yahoogrupos.com.br
> Enviadas: Quarta-feira, 30 de Junho de 2010 18:46:35
> Assunto: [delphi-br] Parametro não encontrado
>
>
> Tenho um código que já revi n vezes que apresenta sempre o retorno de erro
> que o parametro não foi encontrado. Seja qual for o parametro.
>
> Segue o código:
>
> ---
> bd.SQLRelVendas.close;
>
> with bd.SQLRelVendas.SQL do
> begin
> clear;
> add( ' Select pedido, emissao, cliente, sum( qte * valor ) as total From
> ArquivoABC ');
> add( ' Where cliente <> "" ' );
> add( ' and pedido <> "" ' );
> add( ' and qte <> "" ');
> add( ' and emissao >= :x ' );
> add( ' and emissao <= :y ' );
> add( ' and atendente =:a ' );
> add( ' group by pedido, emissao, cliente ' );
> add( ' order by emissao desc ' );
> end;
>
> with bd.SQLRelVendas do
> begin
> parambyname(' x ').AsDate := Inicio.Date;
> parambyname(' y ').AsDate := Termino.Date;
> parambyname(' a ').AsString := CodDoAtendente.Caption;
>
> end;
>
> bd.SQLRelVendas.execsql;
> ---
>
>
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
