Problemas com parametros, delphi 2005

Question

Bom dia pessoal,Fiz essa query no Delphi 2005, de inser��o mas ta dando erro toda vez rodo o sistema aparece a seguinte menssagem de erro : [i:aecb6fd8ce]� Incorrect Syntax near  �@P1�. � [/i:aecb6fd8...

Emerson Nascimento · Answer

tente assim. talvez a declara��o expl�cita dos tipos possa resolver o problema.

with Qry_agendamento, Qry_agendamento.SQL do
begin
  close;
  clear;

  Add(�Insert into tb_Agenda_consulta�);
  Add(�(Data, Hora, Status)�);
  Add(�Values�);
  Add(�:Data, :hora, :Status�);

  Parameters.ParamByName(�Data�).AsDate := ydata;
  Parameters.ParamByName(�Hora�).AsString :=  quotedstr(inttostr(horas)+�:�+ inttostr(min) {+ �:00�});
  Parameters.ParamByName(�Status�).AsString := QuotedStr(status);

  ExecSQL;
end;

Ederp · Answer

Po tentei esse codigo ai tamb�m, mas continua dando o erro, o mesmo erro por sinal, e n�o tenho nem ideia do que seja !! To come�ando a achar que � a maquina aqui !!
Vou reinstalar o Delphi 2005 p/ ver se resolve ...

Mas valew pela ajuda !!

Emerson Nascimento · Answer

outra solu��o seria colocar os par�metros no padr�o do SQL Server para ver se funciona. n�o custa tentar...

with Qry_agendamento, Qry_agendamento.SQL do
begin
  close;
  clear;

  Add(�Insert into tb_Agenda_consulta�);
  Add(�(Data, Hora, Status)�);
  Add(�Values�);
  Add(�@Data, @hora, @Status�);

  Parameters.ParamByName(�@Data�).AsDate := ydata;
  Parameters.ParamByName(�@Hora�).AsString :=  quotedstr(inttostr(horas)+�:�+ inttostr(min) {+ �:00�});
  Parameters.ParamByName(�@Status�).AsString := QuotedStr(status);

  ExecSQL;
end;

Ederp · Answer

Continua o mesmo erro  :( S� pode ser algun problema de instal��o mesmo porque de parametros j� tentei de todas as formas ... e nada !!...

Fjaimesilva · Answer

Amigo Ser� que est� obedecendo a sintax correta do inert :inset into nometabela values(:campo1, :campo2)...

Emerson Nascimento · Answer

putz! falta de aten��o!faltaram os par�ntesis nos par�metros![code:1:0b384bb755]with Qry_agendamento, Qry_agendamento.SQL dobegin  close;  clear;  Add(�Insert into tb_Agenda_consulta�);  Add(�(Data, Hora, Status)�);  Add(�Values�);  Add(�(:Data, :hora, :Status)�); // aqui faltava os par�ntesis  Parameters.ParamByName(�Data�).AsDate := ydata;  Parameters.ParamByName(�Hora�).AsString :=  quotedstr(inttostr(horas)+�:�+ inttostr(min) {+ �:00�});  Parameters.ParamByName(�Status�).AsString := QuotedStr(status);  ExecSQL;end;[/code:1:0b384bb755]...

F�rum Problemas com parametros, delphi 2005 #345259