Passando NULL para um campo DateTime

05/12/2003

47

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.


Responder

Post mais votado

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;


Responder

Mais Posts

05/12/2003

Luineumann

Experimente

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


Responder
otimo! :D
Responder
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
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira