Passagem de Parametro

Delphi

30/08/2004

Uso D7 + DbExpress + FB 1.5

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

Emery

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

30/08/2004

Configure o tipo do parâmetro na propriedade [b:114b90955d]params [/b:114b90955d]da query SQL_RConCli.Close;


GOSTEI 0
Emery

Emery

30/08/2004

pois eu uso esta query para várias consultas.

Emery


GOSTEI 0
Lucas Silva

Lucas Silva

30/08/2004

pois eu uso esta query para várias consultas.

Não entendi.....

Os parâmetros estão configurados?


GOSTEI 0
Emery

Emery

30/08/2004

Ou seja eu estou sempre enviando uma nova linha de comando atrasvés do comando

COMMAND.TEXT:=´ ´....

Entendido


GOSTEI 0
Lucas Silva

Lucas Silva

30/08/2004

então ao invés de criar parâmetros, coloque direto o valor...

ex:
and codigo =:parametro // ao invés disto

coloque:
and codigo = ´´´edit1.text ´´´ ; // por exemplo!



GOSTEI 0
Paulo_amorim

Paulo_amorim

30/08/2004

Olá

Qual eh o tipo do parâmetro VValor? Ele eh passado como AsFloat?

Você deve configurar os parâmetros adequadamente

Até+


GOSTEI 0
POSTAR