Problema com Query e parametros

Question

Bom dia.Caros, estou tento problemas com parametrosque n�o s�o do tipo String em uma determinada Query.O problema est� no momento em que gostaria de atribuir NULL em camposda minha tabela que n�o seja...

Emerson Nascimento · Answer

tente:Param.AsVariant := null;...

Rb2228 · Answer

como us�-lo caro emerson?fiz mais algumas tentavias com null, porem a data insiste em ficar 30/12/1899campos do tipo inteiro e float ficam 0.obrigado......

Edilcimar · Answer

se vc quiser a data em branco, simplesmente n�o grave no banco, a� se voc� for l� e olhar (pode usar um grid para teste), ver� que est� em branco...

Emerson Nascimento · Answer

publique o c�digo que voc� est� usando para montar a instru��o e passar os par�metros....

Pestana_ · Answer

e assim:Param.Value := null;caso n�o resolva, fa�a como o nosso amigo Emerson disse poste o c�digo do seu sistema.flw....

Rb2228 · Answer

Pessoal, acredito que meu problema seja simples. Existe uma tabela, CDCLIENTE, por exemplo. Nesta tabela existe um campo CDCLDATACADASTRO. Eu gostaria de setar Null, realmente Null, assim como podemos fazer direto pelo gerenciador ou quando o registro na tabela n�o possui registro neste campo. Existe um registro: Jo�o que foi cadastrado em 01/01/2008, neste momento eu gostaria de setar null a este campo, mas o delphi n�o o faz. quando retorno ao jo�o, a data de cadastro dele esta 12/30/1899. (acredito ser o valor default). Como posso resolver o meu problema ? Obrigado.[/img]

Pestana_ · Answer

se eu n�o me engano quando voc� informa o valor 0 (zero) para este campo ent�o � gravado com o valor default.flw....

Emerson Nascimento · Answer

n�o sei porque voc� n�o quis publicar o c�digo, mas vamos l�:

query.sql.text := �update tabela set campodata = :datainformada where idregistro = :id�;

loop
  query.close;
  query.ParamByName(�data�).DataType := ftDate; // essa linha � muito importante!

  if informou_data then
    query.parambyname(�datainformada�).asDate := data_informada
  else
    query.parambyname(�datainformada�).Value := null

  query.ExecSQL;
fim do loop

Pestana_ · Answer

rb2228, quais componentes de acesso a dados voc� est� utilizando?flw....

Rb2228 · Answer

Firebird 1.5, dbexpress......