Boa tarde!
O Parâmetro tem que ser AsDateTime, caso contrário ele só vai considerar a
parte inteira.
Boa sorte.
Ulisses
----- Original Message -----
From: eliflaviob
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 21, 2009 9:00 AM
Subject: [delphi-br] Dúvida sobre campo DateTime
Pedro, um campo DateTime armazena a data na parte inteira e a hora na parte
decima, portanto, faça apenas uma linha para armazenar a Data e a Hora, algo
mais ou menos assim:
QRCadastro.ParamByName('DataInicio').AsDate:=
StrToDate(Edit5.Text) + StrToTime(Edit6.Text);
QRCadastro.ParamByName('DataFim').AsDate:=
StrToDate(Edit7.Text) + StrToTime(Edit8.Text);
Porém, te aconselho a usar o componente TJvDateEdit da JVCL para edição de
data e o TDateTimePicker do próprio Delphi para a hora.
Eli
--- Em delphi-br@yahoogrupos.com.br, Pedro Neves <neve...@...> escreveu
>
> Estou com a seguinte dificuldade:
>
> Estou tentando gravar a data e a hora no banco usando:
> Begin
> QRCadastro.Close;
> QRCadastro.Sql.Clear;
> QRCadastro.Sql.Add('Insert Into Tabela(Matricula, DataInicio,
> DataFim)');
> QRCadastro.Sql.Add('Values(:Matricula, :DataInicio, :DataFim)');
> QRCadastro.ParamByName('Matricula').AsString:= Edit2.Text;
>
> QRCadastro.ParamByName('DataInicio').AsDate:= StrToDate(Edit5.Text);
> QRCadastro.ParamByName('DataFim').AsDate:= StrToDate(Edit7.Text);
>
> QRCadastro.ParamByName('DataInicio').AsTime:= StrToTime(Edit6.Text);
> QRCadastro.ParamByName('DataFim').AsTime:= StrToTime(Edit8.Text);
>
> QRCadastro.ExecSQL;
> End
>
>
> O campo no banco de dados é do tipo datetime e quando gravo a data dá
> certo mas se comentar (//) a data e gravar a hora dá erro no banco.
> Alguém sabe onde está o erro.
>
>
> grato
>
> Pedro.
>
>
> __________________________________________________________
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
[As partes desta mensagem que não continham texto foram removidas]
