Passagem de Parametros - Como?

03/04/2006

Pessoal, estou com este select:

[color=green:5b4bf1d72e]
select a.vl_lancamento, d.descricao_pagto, data_lancamento, a.quantidade, b.id_cliente, b.nome_cli, c.descricao_item from cc a, clientes b, item c, tipo_pagto d where a.id_cliente = b.id_cliente and a.id_item = c.id_item and a.id_tipo_pagto = d.id_tipo_pagto and b.id_cliente = :idcli and data_lancamento = :dtlanc and id_tipo_pagto = :tipopagto
[/color:5b4bf1d72e]

Preciso passar os parametros: idcli, dtlanc e tipopagto
Como faço para passar estes parametros para o select?
To pensando em fazer um form com uns edits, onde eu informo o codigo do cliente, data lancamento e tipo de pagamento
mas como faço para passar pro select?


Ricieri

Respostas

04/04/2006

Paullsoftware

se entendi bem a sua pergunta, Normalmente se faz assim:

Query.Close;
Query.ParamByName(´Parametro1´).AsInteger := StrToInt(EditCodigo.Text);
Query.ParamByName(´Parametro2´).AsString := EditNome.Text;
Query.ParamByName(´Parametro3´).AsDate := StrToDate(EditNome.Text);
Query.Open;

espero ter ajudado :wink:


Responder Citar