data como parametros em sql...

Delphi

06/06/2005

Estou fazendo a seguinte sintaxe sql.

Banco de dados Sql Server 7

Update Cliente
Set CodCliente =:Clie
Where DataVencimento =:DataVencto

ParamByname(´Clie´).AsString := EdCliente.Text;
ParamByName(´DataVencto´).AsDateTime := StrToDate(EdDataVencto.Text);

Nesse caso com os parâmetros declarados previamente, gostaria de saber como criar uma situação para qdo o EdDataVencto for branco passar o parâmetro ´DataVencto´.

Tentei assim:

if EdDataVencto.Text <>´´ then
ParamByName(´DataVencto´).AsDateTime := StrToDate(EdDataVencto.Text)
else
ParamByName(´DataVencto´).AsDateTime := null;


Thiagopedro

Thiagopedro

Curtidas 0

Respostas

Raserafim

Raserafim

06/06/2005

uma opção é substituir o AsDateTime por Value, já que assim fica como Variant pondendo então receber null:
if EdDataVencto.Text <>´´ then 
  ParamByName(´DataVencto´).AsDateTime := StrToDate(EdDataVencto.Text) 
else 
  ParamByName(´DataVencto´).value := null;



GOSTEI 0
POSTAR