Quem sabe um IF não te ajuda nisto ??
Tipo,
With MeuComponenteADO do
begin
sql.text:=' Insert into tabela (campo1, campo2'+
IfThen(DATAEHNULA, '',',CampoData')+
') values (:campo1,:campo2'+
IfThen(DATAEHNULA, '',',:CampoData')+
')';
If not DATAEHNULA then
ParamByName('CampoData').AsDateTime:= EditQueTemA Data;
end;
???
Abraços, espero ter ajudado !!
Moacir
laureanonu...@yahoo.com.br escreveu:
> Colega Moacir,
>
> "query.Parameters.ParamByName('dt_inclusao').clear !!!!!!!!!!!!!!!!"
>
> Não funciona mesmo, em BDE tranquilo, em ADO/DBGO não vai.
>
> Estou utilizando ADO/DBGO!!!!!!!!!!!!!!!!!!!!!!!!
>
> Qualquer ajuda é bem-vinda, muito obrigado.
>
> []´s Nunes.
> Pg 8.2, Delphi 2007 + ADO
>
> ----- Original Message -----
> From: "Moacir - GMail" <prism...@gmail.com>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Thursday, February 12, 2009 8:33 PM
> Subject: Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco?
>
>
>
>> query.Parameters.ParamByName('dt_inclusao').clear !!!!!!!!!!!!!!!!
>>
>>
>>
>>
>> jrsilvas...@yahoo.com.br escreveu:
>>
>>> Tenta query.Parameters.ParamByName('dt_inclusao').asvariant := null;
>>>
>>>
>>>
>>> ----- Original Message -----
>>> From: laureanonu...@yahoo.com.br
>>> To: delphi-br@yahoogrupos.com.br
>>> Sent: Thursday, February 12, 2009 9:32 AM
>>> Subject: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco?
>>>
>>>
>>> Colegas,
>>>
>>> Eu estou com um problema para passar datas nulas ao banco via ADO/DBGO.
>>>
>>> O ADO ( DBGO ) nao aceita:
>>>
>>> query.Parameters.ParamByName('dt_inclusao').clear.
>>>
>>> nem tampouco...
>>>
>>> query.Parameters.ParamByName('dt_inclusao').value := null;
>>>
>>> Como devo proceder para passar a data para o banco com valor nulo?
>>>
>>> Qualquer ajuda é bem-vinda, muito obrigado.
>>>
>>> []´s Nunes.
>>> Pg 8.2, Delphi 2007 + ADO
>>>
>>>
>>>
>>>
>> ------------------------------------
>>
>> --
>> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>>
>>
>>
>>
>> __________ Informao do ESET NOD32 Antivirus, verso da vacina 3846
>> (20090211) __________
>>
>> A mensagem foi verificada pelo ESET NOD32 Antivirus.
>>
>> http://www.eset.com
>>
>>
>>
>>
>
> __________________________________________________
> Fa�a liga��es para outros computadores com o novo Yahoo! Messenger
> http://br.beta.messenger.yahoo.com/
>
>
> ------------------------------------
>
>
[As partes desta mensagem que não continham texto foram removidas]
