Passagem de Parametros - Como?
03/04/2006
0
Pessoal, estou com este select:
[color=green: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?
[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
Curtir tópico
+ 0
Responder
Posts
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:
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
Clique aqui para fazer login e interagir na Comunidade :)