Erro com Datas (02)
Eu tenho um TDateEdit, e seleciono uma data tipo assim ´12/04/2003´ não acontece nada de errado mas quando seleciono assim ´13/04/2003´ me dá o seguinte erro quando o jogo dentro de um SQL:
Project Teste.exe raised exception class EDatabaseError with message
´conversion error from string ´31/08/2003´
´.Process stopped. Use Step or Run to continue.
Como faço para resolver esse problema?
Como eu faço para enviar ao banco mm/dd/aa?
Project Teste.exe raised exception class EDatabaseError with message
´conversion error from string ´31/08/2003´
´.Process stopped. Use Step or Run to continue.
Como faço para resolver esse problema?
Como eu faço para enviar ao banco mm/dd/aa?
Havilux
Curtidas 0
Respostas
Biscoitorfa
25/08/2003
cria três variáveis do tipo word
mais ou menos assim
var
dia,mes,ano;word
data:string;
begin
decodedate(datetimepicker1.date,dia,mes,ano)
data := mes+dia+ano
sql := insert........ +data+......
mais ou menos assim
var
dia,mes,ano;word
data:string;
begin
decodedate(datetimepicker1.date,dia,mes,ano)
data := mes+dia+ano
sql := insert........ +data+......
GOSTEI 0
Rjanuzzi
25/08/2003
Pq vc quer enviar no formato mm/dd/aa? Será que é pq o sql usa esse formato?
Se for, vc não precisa se preocupar com isso. É só passar as datas com um parâmetro do tipo Date, e deixa que o delphi se encarrega da formatação.
ex:
procedure ....
var
d1 : tdate;
begin
d1 := strtodate(edit1.text);
query1.sql.clear;
query1.sql.add(´select * from tabela where data = :data´);
query1.parambyname(´data´).asdatetime := d1;
query1.open;
end;
Se for, vc não precisa se preocupar com isso. É só passar as datas com um parâmetro do tipo Date, e deixa que o delphi se encarrega da formatação.
ex:
procedure ....
var
d1 : tdate;
begin
d1 := strtodate(edit1.text);
query1.sql.clear;
query1.sql.add(´select * from tabela where data = :data´);
query1.parambyname(´data´).asdatetime := d1;
query1.open;
end;
GOSTEI 0