CAMPO DATAS NO FIREBIRD 1.5

Question

amigos, boa noite, estou migrando um pequenos sistema que tinha como base de dados Interbase para o Firebord 1.5, por�m me deparei com um erro que gostaria de dicas para resolver, seguinte:utilizo um ...

Cb · Answer

Ol�No Exit do DBEdit tente:[code:1:b62508f11d]tryStrToDate(DBEdit3.Text);except    MessageDlg(�Data invalida! Tente novamente.�,mtError,&#91;mbok&93;,0);    DBEData.SetFocus;[/code:1:b62508f11d]Sacou?...

Cb · Answer

Corrigindo:No OnExit....

Ant.neto · Answer

Ola CB, obrigado pela a ajuda, mas n�o deu certo, alem do mesmos erros, agora todas as datas n�o est�o maos aceitando. da erro em todas.

Obrigado pela a dica mas nesse caso n funcionou, mas vou aproveitar essa dica em outros casos

Valeu.

Ol� No Exit do DBEdit tente:

try
StrToDate(DBEdit3.Text);
except
    MessageDlg(�Data invalida! Tente novamente.�,mtError,[mbok],0);
    DBEData.SetFocus;

Sacou?

Cb · Answer

Eita realmente tem um bug ali no DBedit como DATA.Uma data por ex: 10/02/1999 ele come o 0 do 02 e ferra tudo no StrToDate.Mas da pra contornar usando um Maskedit....

Marco Salles · Answer

talves Resolva :Mascara do Tfield!99/99/9999;1;_Evento OnSetText do Tfield[code:1:b8c0a41df4]procedure TForm1.SEUDataSetSEUCAMPOSetText(Sender: TField; const Text: string);beginif text=�  /  /    � then sender.Clearelse sender.AsString:=text;end;[/code:1:b8c0a41df4]...

Ant.neto · Answer

Grande Marco, valeu pela ajuda... deu certo, eu at� tentei antes fazer +/- do jeito da sua dica, mas o best�o aqui n�o pensou no �else
sender.AsString:=text;� rs.

Brigad�o.

[quote:6b17e7785b=�Marco Salles�]talves Resolva :

Mascara do Tfield

!99/99/9999;1;_

Evento OnSetText do Tfield

procedure TForm1.SEUDataSetSEUCAMPOSetText(Sender: TField; const Text: string);
begin
if text=�  /  /    � then
 sender.Clear
else
 sender.AsString:=text;
end;

[/quote:6b17e7785b]

Cb · Answer

Ao menos comigo aqui continua o DBEdit passando a data num formato errado.

Digita ai 10/06/1974 e pega o valor pelo

showmessage(DBEdit1.text);

Vem algo assim 10/61/974

S� resolvi passando para o DataEdit do RX conponents.

Cb · Answer

Retorna: 1/06//974...

Cb · Answer

Pior tenta ai:01/01/1974Retorna: /1///174 :lol:...

Marco Salles · Answer

Com certeza vc esta fazendo algo errado ou deixando de fazer algo certo

Ao menos comigo aqui continua o DBEdit passando a data num formato errado. Digita ai 10/06/1974 e pega o valor pelo showmessage(DBEdit1.text); Vem algo assim 10/61/974

possivel causa > configura��o regional , diferente do contexto

[b:27470f0f60]dd/MM/aaaa[/b:27470f0f60]

Cb · Answer

Ol�.N�o � isto. Eu estou DD/MM/AAAA.A resolu��o foi pegar o RXComponents e usar o Edit de data dele.Ou ent�o colocar um Maskedit jogando o valor no DBEdit....

Cb · Answer

Esqueci de agradecer ao pessoal a ajuda. Muito Obrigado. :D...

Marco Salles · Answer

Penso que o t�pico descambou em um caminho que ficou meio confuso.

O Post inicial era :

utilizo um Dbedit para entrar com a data em um campo Date do Fire, no campo utilizo uma [b:9e4426ba7f]m�scara no Tfilde[/b:9e4426ba7f] (!99/99/0000;1;_) porem com m�scara ou sem mascara se digito uma data no campo e imediatamente apago essa data (deixo em branco) quando retiro o foco do campo � apresentado esse erro: �Invalid input value�, ou apresenta � / / is not a valid date.

Nesta situa��o CB a saida � utilizar o evento OnSetText e alterar a Mascara

Mascara do Tfield 
!99/99/9999;1;_ 

Evento OnSetText do Tfield 
C�digo: 
procedure TForm1.SEUDataSetSEUCAMPOSetText(Sender: TField; const Text: string); 
begin 
if text=�  /  /    � then //Utilizando formato Regionais dd/MM/aaaa
 sender.Clear 
else 
 sender.AsString:=text; 
end;

Agora , nestas condi�oes (Mascara no TFIELD DO CAMPO ) , se n�o funcionar
para vc estou SURPRESO... Acabei de Refazer este teste Num Campo Data
e utilizei estritamente as Recomenda��es acima e N�o tive nenhun Problema.

Joaoshi · Answer

Pode ser que n�o ajude em nada, mas...[code:1:3d8b3cc80b]DD/MM/AAAA[/code:1:3d8b3cc80b]ou[code:1:3d8b3cc80b]DD/MM/YYYY[/code:1:3d8b3cc80b]...

Cb · Answer

[quote:9e4426ba7f=�Marco Salles�]Penso que o t�pico descambou em um caminho que ficou meio confuso.

O Post inicial era :

utilizo um Dbedit para entrar com a data em um campo Date do Fire, no campo utilizo uma [b:9e4426ba7f]m�scara no Tfilde[/b:9e4426ba7f] (!99/99/0000;1;_) porem com m�scara ou sem mascara se digito uma data no campo e imediatamente apago essa data (deixo em branco) quando retiro o foco do campo � apresentado esse erro: �Invalid input value�, ou apresenta � / / is not a valid date.

Nesta situa��o CB a saida � utilizar o evento OnSetText e alterar a Mascara

Mascara do Tfield 
!99/99/9999;1;_ 

Evento OnSetText do Tfield 
C�digo: 
procedure TForm1.SEUDataSetSEUCAMPOSetText(Sender: TField; const Text: string); 
begin 
if text=�  /  /    � then //Utilizando formato Regionais dd/MM/aaaa
 sender.Clear 
else 
 sender.AsString:=text; 
end;

Agora , nestas condi�oes (Mascara no TFIELD DO CAMPO ) , se n�o funcionar
para vc estou SURPRESO... Acabei de Refazer este teste Num Campo Data
e utilizei estritamente as Recomenda��es acima e N�o tive nenhun Problema.[/quote:9e4426ba7f]

Eu tambem. Uso delphi desde a vers�o 3, parei em 2005 e voltei agora. Mas a anos n�o usava banco de dados junto.

Ser� que todos meus softs anteriores foram com este problema? :P

Tente digitar a data: 10/06/1974 e pegar o valor num bot�o por showmessage.

Delphi 7.

Mascara: !99/99/0000;1;_

Pra n�o ficar como delirio meu: :lol: :lol:

[img:9e4426ba7f]http://cb.freeshell.org/Extra/Doidera.gif[/img:9e4426ba7f]

Como eu disse, peguei outro componente e n�o d� erro algum.

:P

F�rum CAMPO DATAS NO FIREBIRD 1.5 #373722