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.
