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]
