Passagem de Parametro
30/08/2004
0
Dm_Rel.SQL_RConCli.Close;
dm_Rel.SQL_RConCli.CommandText := ´select * from CLIENTES where (´+
´((CLI_TPOCOMPRA = :VTPO) OR (:VTPO) = ´´)) AND ((CLI_DEBITOS >= :VVALOR) OR (:VVALOR = 0.00)) ´+
´AND ( ((cast(today as date) - cast(CLI_DTULTCOM1 AS datetime)) >= :vafasta) or (:vafasta = 0))) order by CLI_NOME´;
dm_Rel.SQL_RConCli.ParamByName(´VTpo´).AsString:=edit3.Text;
Dm_Rel.SQL_RConCli.ParamByName(´VVALOR´).AsCurrency:=Currencyedit1.Value;
Dm_Rel.SQL_RConCli.ParamByName(´VAFASTA´).AsInteger:=strtoint(edit4.Text);
end
Quando tento passar estes paramentro, no ´VValor´ dá erro, alguem poderia me ajudar.
Emrry
Emery
Posts
30/08/2004
Lucas Silva
30/08/2004
Lucas Silva
Não entendi.....
Os parâmetros estão configurados?
30/08/2004
Emery
COMMAND.TEXT:=´ ´....
Entendido
30/08/2004
Lucas Silva
ex:
and codigo =:parametro // ao invés disto coloque: and codigo = ´´´edit1.text ´´´ ; // por exemplo!
30/08/2004
Paulo_amorim
Qual eh o tipo do parâmetro VValor? Ele eh passado como AsFloat?
Você deve configurar os parâmetros adequadamente
Até+
Clique aqui para fazer login e interagir na Comunidade :)