Bom dia a todos!!
Preciso fazer a conversão de datas e gravar tanto a data como a
hora, fiz o exemplo a baixo,
Mais está gerando erro na linha marcada como 1ª, preciso da ajuda de
vocês, sei que o tempo de voces e corrido,
mais me dar uma força ai se possível.
Agradeço!!
Banco SQL Server
tipo de campo: DateTime
//desta forma funciona
try
begin
{ Instrução SQL para inclusão dos registros. }
QCarrega.Close;
QCarrega.SQL.Clear;
QCarrega.SQL.Add('INSERT INTO KPARADAATV');
QCarrega.SQL.Add('(CODCOLIGADA,');
QCarrega.SQL.Add(' CODORDEM,');
QCarrega.SQL.Add('CODESTRUTURA,');
QCarrega.SQL.Add('CODMODELO, ');
QCarrega.SQL.Add('IDATVORDEM, ');
QCarrega.SQL.Add('CODRAZAO, ');
QCarrega.SQL.Add('CODAGENTE, ');
QCarrega.SQL.Add('DTHRINICIO, ');
QCarrega.SQL.Add('DTHRFIM) ');
QCarrega.sql.Add(' VALUES ( ');
QCarrega.SQL.Add('1');
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit9.Text ));
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit7.Text ));
QCarrega.SQL.Add(' , '+QuotedStr( 'Base' ));
QCarrega.SQL.Add(' , '+' 0' );
QCarrega.SQL.Add(' , '+QuotedStr(EditCodParada.Text ));
QCarrega.SQL.Add(' , '+'Null' );
QCarrega.SQL.Add(' , '+QuotedStr( '2007-11-01 00:00:01' ));
QCarrega.SQL.Add(' , '+QuotedStr( '2007-11-01 00:00:02' ));
QCarrega.SQL.Add(')');
//
{ Executa a instrução SQL. }
Memo5.Lines.AddStrings(QCarrega.SQL);
QCarrega.ExecSQL;
end;
finally
QCarrega.Close;
QCarrega.open;
end;
//desta forma gera erro
try
begin
{ Instrução SQL para inclusão dos registros. }
QCarrega.Close;
QCarrega.SQL.Clear;
QCarrega.SQL.Add('INSERT INTO KPARADAATV');
QCarrega.SQL.Add('(CODCOLIGADA,');
QCarrega.SQL.Add(' CODORDEM,');
QCarrega.SQL.Add('CODESTRUTURA,');
QCarrega.SQL.Add('CODMODELO, ');
QCarrega.SQL.Add('IDATVORDEM, ');
QCarrega.SQL.Add('CODRAZAO, ');
QCarrega.SQL.Add('CODAGENTE, ');
QCarrega.SQL.Add('DTHRINICIO, ');
QCarrega.SQL.Add('DTHRFIM) ');
QCarrega.sql.Add(' VALUES ( ');
QCarrega.SQL.Add('1');
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit9.Text ));
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit7.Text ));
QCarrega.SQL.Add(' , '+QuotedStr( 'Base' ));
QCarrega.SQL.Add(' , '+' 0' );
QCarrega.SQL.Add(' , '+QuotedStr(EditCodParada.Text ));
QCarrega.SQL.Add(' , '+'Null' );
QCarrega.SQL.Add(' ,
'+QuotedStr(FormatDateTime('mm/dd/yyyy',EditHoraInicio.Text)),quotedstr(FormatDateTime('mm/dd/yyyy',EditHoraFim.Text)))
QCarrega.SQL.Add(')'); //1ª
{ Executa a instrução SQL. }
Memo4.Lines.AddStrings(QCarrega.SQL);
QCarrega.ExecSQL;
end;
finally
QCarrega.Close;
QCarrega.open;
end;
//erro
[Error] untInsercaoParadas.pas(319): There is no overloaded version
of 'FormatDateTime' that can be called with these arguments
[Error] untInsercaoParadas.pas(319): There is no overloaded version
of 'FormatDateTime' that can be called with these arguments
[Fatal Error] Producao.dpr(8): Could not compile used unit
'untInsercaoParadas.pas'
