Tb sou fã de parâmetros por isso.
Acaba com certos malabarismos no CF.
Sds,
Ricardo.
MiNuTo <[EMAIL PROTECTED]> escreveu: é porisso q
sou fã de parametros .
se vc passar a usar parametros alem de corrigir o erro fica mais facil pra
debugar.
na minha opiniao fica mais limpo o codigo
pense nisso...
----- Original Message -----
From: Nilson Chagas
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 14, 2007 10:24 AM
Subject: Re: [delphi-br] Re: Instrução gerando erro - Urgente!!
Eu não sei qual banco vc tá usando, mas já tentou, tirar as aspas dos campos
que são inteiros e não sei se no seu banco precisa inverter a data para
ano+mes+dia
Monta a Query na mão primeiro para saber como tem que ficar.
Em 14/11/07, 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.
>
>
>
--
Visite:
Fundamental: www.amados.com.br
Dúvidas:http://nilsoftware.blogspot.com/
Obrigatório: www.saopaulofc.com.br
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
---------------------------------
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]
