Data no InterBase
Tenho a seguinte situação:
Ao cadastrar uma pessoa tenho três datas:
DATA1, DATA2 e DATA3
DATA1 é obrigatório pois é a data de entrada
DATA2 e DATA3 não é obrigatório podendo ficar em branco
1° tentei utilizar o DateTimePicker, mas ele obriga entrada de data.
2° estou utilizando uma MaskEdit mas quando eu edito o registro ele joga a data 30/12/1899 pois eu não defino entrada de dados.
Estou usando FireBird e programo via Query (não uso TibTable) por isso trabalho utilizando Edits e MaskEdits.
Obrigado
Ao cadastrar uma pessoa tenho três datas:
DATA1, DATA2 e DATA3
DATA1 é obrigatório pois é a data de entrada
DATA2 e DATA3 não é obrigatório podendo ficar em branco
1° tentei utilizar o DateTimePicker, mas ele obriga entrada de data.
2° estou utilizando uma MaskEdit mas quando eu edito o registro ele joga a data 30/12/1899 pois eu não defino entrada de dados.
Estou usando FireBird e programo via Query (não uso TibTable) por isso trabalho utilizando Edits e MaskEdits.
Obrigado
Jonnymarques
Curtidas 0
Respostas
Afarias
09/03/2004
|2° estou utilizando uma MaskEdit mas quando eu edito o registro ele
|joga a data 30/12/1899 pois eu não defino entrada de dados.
Como está o código?
|Estou usando FireBird e programo via Query (não uso TibTable) por isso
|trabalho utilizando Edits e MaskEdits
O que tem a ver?? IBQuery permite uilizar DBEdits tb!
T+
|joga a data 30/12/1899 pois eu não defino entrada de dados.
Como está o código?
|Estou usando FireBird e programo via Query (não uso TibTable) por isso
|trabalho utilizando Edits e MaskEdits
O que tem a ver?? IBQuery permite uilizar DBEdits tb!
T+
GOSTEI 0
Jonnymarques
09/03/2004
if Trim(EdSaida.Text) <> ´/ /´ then
ParamByName(´SAIDA´).AsDateTime := StrToDateTime(EdSaida.Text);
ParamByName(´STATUS_FK´).AsInteger := StrToInt(EdStatus.Text);
if Trim(EdProrrogacao.Text) <> ´/ /´ then
ParamByName(´PRORROGACAO´).AsDateTime := StrToDateTime(EdProrrogacao.Text);
Minha intensão é quando não digitar nada simplesmente ele não colocar nada... mas não vai dar certo... como faço para ele colocar uma data Null?
ParamByName(´SAIDA´).AsDateTime := StrToDateTime(EdSaida.Text);
ParamByName(´STATUS_FK´).AsInteger := StrToInt(EdStatus.Text);
if Trim(EdProrrogacao.Text) <> ´/ /´ then
ParamByName(´PRORROGACAO´).AsDateTime := StrToDateTime(EdProrrogacao.Text);
Minha intensão é quando não digitar nada simplesmente ele não colocar nada... mas não vai dar certo... como faço para ele colocar uma data Null?
|2° estou utilizando uma MaskEdit mas quando eu edito o registro ele
|joga a data 30/12/1899 pois eu não defino entrada de dados.
Como está o código?
|Estou usando FireBird e programo via Query (não uso TibTable) por isso
|trabalho utilizando Edits e MaskEdits
O que tem a ver?? IBQuery permite uilizar DBEdits tb!
T+
GOSTEI 0
Jonnymarques
09/03/2004
if Trim(EdSaida.Text) <> ´/ /´ then
ParamByName(´SAIDA´).AsDateTime := StrToDateTime(EdSaida.Text);
ParamByName(´STATUS_FK´).AsInteger := StrToInt(EdStatus.Text);
if Trim(EdProrrogacao.Text) <> ´/ /´ then
ParamByName(´PRORROGACAO´).AsDateTime := StrToDateTime(EdProrrogacao.Text);
Minha intensão é quando não digitar nada simplesmente ele não colocar nada... mas não vai dar certo... como faço para ele colocar uma data Null?
ParamByName(´SAIDA´).AsDateTime := StrToDateTime(EdSaida.Text);
ParamByName(´STATUS_FK´).AsInteger := StrToInt(EdStatus.Text);
if Trim(EdProrrogacao.Text) <> ´/ /´ then
ParamByName(´PRORROGACAO´).AsDateTime := StrToDateTime(EdProrrogacao.Text);
Minha intensão é quando não digitar nada simplesmente ele não colocar nada... mas não vai dar certo... como faço para ele colocar uma data Null?
|2° estou utilizando uma MaskEdit mas quando eu edito o registro ele
|joga a data 30/12/1899 pois eu não defino entrada de dados.
Como está o código?
|Estou usando FireBird e programo via Query (não uso TibTable) por isso
|trabalho utilizando Edits e MaskEdits
O que tem a ver?? IBQuery permite uilizar DBEdits tb!
T+
GOSTEI 0
Gandalf.nho
09/03/2004
Para atribuir valor nulo a um campo use o método CLEAR no campo
GOSTEI 0