Qual é o BD que vc está usando? O problema é na conversão para Data e o banco está se perdendo.
Sds, Ricardo. itasouza <[EMAIL PROTECTED]> escreveu: Fiz algumas alterações, mais ainda está gerando um erro, veja se pode ajudar. Agradeço. Atenciosamente; procedure TfrmInsercao.BitBtn6Click(Sender: TObject); begin if DBCodModelo.Text = '' then begin Application.MessageBox(PAnsiChar('Por Favor Informe um Modelo!'),'Atenção',MB_OK+ MB_ICONINFORMATION); DBCodModelo.SetFocus; exit; end; try begin { Instrução SQL para inclusão dos registros. } QCarrega.Close; QCarrega.SQL.Clear; QCarrega.SQL.Add('INSERT INTO KPARADAATV'); QCarrega.SQL.Add('(CODRAZAO, '); QCarrega.SQL.Add(' CODMODELO, '); QCarrega.SQL.Add(' DTHRINICIO, '); QCarrega.SQL.Add(' IDATVORDEM, '); QCarrega.SQL.Add(' DTHRFIM, '); QCarrega.SQL.Add(' CODAGENTE ) '); QCarrega.sql.Add(' VALUES '); QCarrega.SQL.Add('(' +QuotedStr(EditCodParada.Text )); QCarrega.SQL.Add(' , '+QuotedStr(EditModelo.Text )); QCarrega.SQL.Add(' , '+QuotedStr(EditHoraInicio.Text )); QCarrega.SQL.Add(' , '+QuotedStr(EditIDAtivo.Text )); QCarrega.SQL.Add(' , '+QuotedStr(EditHoraFim.Text )); QCarrega.SQL.Add(' , '+QuotedStr(EditCodAgente.Text )+')'); { Executa a instrução SQL. } Memo4.Lines.AddStrings(QCarrega.SQL); QCarrega.ExecSQL; end; finally QCarrega.Close; QCarrega.open; end; end; Sql gerado no Memo4.Lines.AddStrings(QCarrega.SQL); INSERT INTO KPARADAATV (CODRAZAO, CODMODELO, DTHRINICIO, IDATVORDEM, DTHRFIM, CODAGENTE ) VALUES ('002' , '1512' , '23/11/2007' , '0' , '23/11/2007' , '0') erro no Query Analyzer e no delphi The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value. The statement has been terminated. --------------------------------- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]