Date e Time - Pelo amor de Deus
Alguém já teve problemas ao tentar gravar dados do tipo date e time em um banco Interbase, pelo aplicativo feito em Delphi?
Tenho um banco configurado como dialect 3 e Win1252. Em uma tabela tenho os seguintes campos: Data_Cadastro do tipo Date e Horario_Inicio do tipo Time. Quando entro no meu proograma feito em Delphi 6, digito os valores para esses campos e peço para salvar ele sempre me dá o seguinte erro: ´... is not a valid timestamp´. Já tentei formatar antes de gravar, usando o FormatDateTime e várias outras formas, mas não está dando certo.
Quais são todos os possíveis formatos reconhecidos pelo Interbase para esses dois tipos de dado?
Alguém pode me ajudar por favor, o que devo fazer. Tenho que entregar esse trabalho, o tempo está acabando e não consigo resolver isso.
Tenho um banco configurado como dialect 3 e Win1252. Em uma tabela tenho os seguintes campos: Data_Cadastro do tipo Date e Horario_Inicio do tipo Time. Quando entro no meu proograma feito em Delphi 6, digito os valores para esses campos e peço para salvar ele sempre me dá o seguinte erro: ´... is not a valid timestamp´. Já tentei formatar antes de gravar, usando o FormatDateTime e várias outras formas, mas não está dando certo.
Quais são todos os possíveis formatos reconhecidos pelo Interbase para esses dois tipos de dado?
Alguém pode me ajudar por favor, o que devo fazer. Tenho que entregar esse trabalho, o tempo está acabando e não consigo resolver isso.
Barbara.michele
Curtidas 0
Respostas
Edmarss
07/11/2003
Tente
QuoTedStr(FormatDateTime(´yyyy/mm/dd´,date))
QuoTedStr(FormatDateTime(´yyyy/mm/dd´,date))
GOSTEI 0
Leonardo.moulin
07/11/2003
Tente o seguinte:
With Qry do
Begin
Close;
SQL.Clear;
SQL.Add(´insert into NOME_TABELA (CAMPO_DATA) ´);
SQL.Add(´ Values(:Param_Data)´);
ParamByName(´Param_Data´).AsDateTime := StrToDate(Edit.Text);
ExecSQL;
end;
With Qry do
Begin
Close;
SQL.Clear;
SQL.Add(´insert into NOME_TABELA (CAMPO_DATA) ´);
SQL.Add(´ Values(:Param_Data)´);
ParamByName(´Param_Data´).AsDateTime := StrToDate(Edit.Text);
ExecSQL;
end;
GOSTEI 0