Passando NULL para um campo DateTime

Delphi

05/12/2003

Fala pessoal!

Gostaria de saber como eu faço para passar NULL para um campo DateTime de dentro do Delphi. Automaticamente o SQL Server atribui um valor de data default para o campo.


Cbritojunior

Cbritojunior

Curtidas 0

Melhor post

Edilcimar

Edilcimar

07/12/2003

a data é normalmente gravada como um número, sendo assim colque
Data := TDate;
Data := 0 e não data := Nil ou data := null;


GOSTEI 2

Mais Respostas

Luineumann

Luineumann

05/12/2003

Experimente

tabela.edit;
tabela_campodata.clear;
tabela.post;


GOSTEI 0
Gladstone Matos

Gladstone Matos

05/12/2003

otimo! :D
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

05/12/2003

Excelente post! Segue uma dica tbm para a passagem de parâmetros nulos em um método.

Listagem 1: Declaração

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure verificarParametros(Nome: String; Data: TDateTime = 0 );
  end;


Listagem 2: Implementação


procedure TForm1.Button1Click(Sender: TObject);
var
  data: TDateTime;
begin
  data := 0;

  //passar nome + Data
  verificarParametros('Wesley', Now);

  //passar apenas nome
  verificarParametros('Wesley');
end;

procedure TForm1.verificarParametros(Nome: String; Data: TDateTime = 0);
begin
  if Data <> 0 then
  begin
    ShowMessage('Seu nome: ' + Nome  + ' | Data: ' +FormatDateTime('dd/mm/yyyy', Data));
  end
  else
    begin
      ShowMessage('Seu nome' + Nome);
    end;

end;



Outros exemplos:

procedure verificarParametros(Nome: String; Valor: Real = 0 );
procedure verificarParametros(Nome: String; Sobrenome: String = '' );

Fica a dica :)

Grande abraço
GOSTEI 0
POSTAR