Erro de SQL

[hhmelina 0]

Preciso jogar os valores de um edit para uma tabela... Fiz assim:Q_Valor.sql.add('update valor set deliberado_CRH = 0, remanejamento=0, cancelados=0, concluidos=0, pago=0, pagar=0, analise=0, deliberado=0, fehidro=0, financiamento=0, contratado=0, liberado=0, liberar=0 where ano = 1996'); Q_Valor.Active:=True; Q_Valor.active:=false; Q_Valor.sql.clear; // If FProcessos.edit_cancelado.Text='' Then Begin FProcessos.edit_cancelado.Text := '0'; Q_Valor.ExecSQL; End; Q_Valor.sql.add('update valor set cancelados = :P _Cancelado'); Q_valor.ParamByName('P_Cancelado').value :=strtofloat(FProcessos.edit_cancelado.Text); Q_Valor.ExecSQL; If FProcessos.edit_Concluido.Text='' Then Begin FProcessos.edit_Concluido.Text:='0'; Q_Valor.ExecSQL;; End; Q_Valor.sql.add('update valor set concluidos = :P _Concluido'); Q_valor.ParamByName('P_Concluido').value :=strtofloat(FProcessos.edit_Concluido.Text); Q_Valor.ExecSQL;Não sei porque ele dá erro de SQL, trava, e não joga os valores para a tabela...Alguém... Me Socorre!!!

[botaffonso 0]

você fez o seguinte no código acima....q_valor.sql.clear; //limpa o codigo SQLdepois você verifica se o edit está em branco....logo depois você dá um ExecSql, é aí q está o erro!!! você tenta executar um comando q naum existe......

[hhmelina 0]

Obrigada pela ajuda, mas agora eu fiz assim:Q_Valor.sql.add('update valor set deliberado_CRH = 0, remanejamento=0, cancelados=0, concluidos=0, pago=0, pagar=0, analise=0, deliberado=0, fehidro=0, financiamento=0, contratado=0, liberado=0, liberar=0 where ano = 1996');Q_Valor.Active:=True;Q_Valor.active:=false;Q_Valor.sql.clear;//If FProcessos.edit_cancelado.Text='' Then FProcessos.edit_cancelado.Text := '0';Q_Valor.sql.add('update valor set cancelados = :P _Cancelado');Q_valor.ParamByName('P_Cancelado').value :=strtofloat(FProcessos.edit_cancelado.Text);Q_Valor.ExecSQL;If FProcessos.edit_Concluido.Text='' Then FProcessos.edit_Concluido.Text:='0';Q_Valor.sql.add('update valor set concluidos = :P _Concluido');Q_valor.ParamByName('P_Concluido').value :=strtofloat(FProcessos.edit_Concluido.Text);Q_Valor.ExecSQL; E continua dando erro...