Gravar Data em DB
15/03/2003
0
Ageualves
Posts
15/03/2003
Aroldo Zanela
Ageu,
Já que você não está utilizado componentes ´Data-Aware´, eu recomenfo utilizar o DataTimePicker que fica na paleta Win32 e você faz da seguinte forma:
Exemplo:
myTabela.FieldByName("NOME_CAMPO").AsDate := DateTimePicker1.Date;
15/03/2003
Marcelo
....
NomeTabela.FieldByName(´DATA´).AsDate:=EData.Text;
.....
mas esse codigo so funciona se for uma data valida, por acaso se for um dia 29/02 de um ano que nao é bissexo.... da pau....
t+
15/03/2003
Ageualves
15/03/2003
Ageualves
Não Funciona.
Assim:
NomeTabela.FieldByName(´DATA´).AsDateTime:=EData.Text;
Tbem não funciona!!
[/b:0039e9f35c]
15/03/2003
Marcelo
Talves seje o modo q vc ta formatando a data... tente a seguinte funcao...
[b:8a854cfc53]function[/b:8a854cfc53] formatadata(data : [b:8a854cfc53]String[/b:8a854cfc53]):[b:8a854cfc53]String[/b:8a854cfc53];
[b:8a854cfc53]begin[/b:8a854cfc53]
Result := Copy(Data,1,2)+´/´+Copy(Data,3,2)+´/´+Copy(Data,5,4);
[b:8a854cfc53]end[/b:8a854cfc53];
E no evento OnExit do EData.Text coloque o seguinte codigo....
[b:8a854cfc53]procedure[/b:8a854cfc53]...
[b:8a854cfc53]begin[/b:8a854cfc53]
EData.Text:=formatadata(EData.Text);
[b:8a854cfc53]end[/b:8a854cfc53];
Isso vai formatar sua data da maneira certa tipo: 15032003 para 15/03/2003......
at+vr......
15/03/2003
Aroldo Zanela
Tem razão, o primeiro não funciona porque fieldbyname não possui o método AsDate e o segunto não pode atribuir string para data, então:
Tabela.FieldByName(´Data´).Value := StrToDate(EData.Text);
17/03/2003
Ageualves
Acho que agora vai Funcionar !!
[]
Clique aqui para fazer login e interagir na Comunidade :)