hhmelina 0 Denunciar post Postado Outubro 18, 2004 Preciso jogar os dados de um edit para a 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;Ele trava e diz q dá erro de SQL, só que eu naõ sei onde???Beijos...Mel Compartilhar este post Link para o post Compartilhar em outros sites
Cerrito 0 Denunciar post Postado Outubro 18, 2004 Oi moça acho que você postou a mensagem no forum errado mas de qualquer maneira da uma olhada aqui... Q_Valor.sql.add('update valor set concluidos = :P _Concluido');Q_valor.ParamByName('P_Concluido').value :=strtofloat(FProcessos.edit_Concluido.Text);Q_Valor.ExecSQL;acho que ao inves de =:seria ;=abraçosMarcio Compartilhar este post Link para o post Compartilhar em outros sites