[resolvido] Update No Mysql 5.0

[Guest --Renato --]

Estou tentando fazer um updade dos dados de uma tabela do mysql 5.0 mas não estou conseguindo. Estou utulizando o Zeos e meu codigo que estou usando é o seguinte:

DM.CADINS.Close;
DM.CADINS.SQL.Clear;
DM.CADINS.SQL.Add('UPDATE CADINS SET RAZAO=:PAR1,FANTASIA=:PAR2,CNPJ=:PAR3,INSEST=:PAR4,ENDER=:PAR5,COMPLE=:PAR6,BAIRRO=:PAR7,'+
'CEP=:PAR8,CIDADE=:PAR9,UF=:PAR10,FONE=:PAR11,FAX=:PAR12,OBS=:PAR13,USUARIO=:PAR14,'+
'WHERE ID_CADINS ='+ inttostr(cod));
DM.CADINS.parambyname('PAR1').value  := Edit2.Text;
DM.CADINS.parambyname('PAR2').value  := Edit3.Text;
DM.CADINS.parambyname('PAR3').value  := maskedit1.Text;
DM.CADINS.parambyname('PAR4').value  := Edit4.Text;
DM.CADINS.parambyname('PAR5').value  := Edit5.Text;
DM.CADINS.parambyname('PAR6').value  := Edit6.Text;
DM.CADINS.parambyname('PAR7').value  := Edit7.Text;
DM.CADINS.parambyname('PAR8').value  := maskedit2.Text;
DM.CADINS.parambyname('PAR9').value  := Edit8.Text;
DM.CADINS.parambyname('PAR10').value := Edit9.Text;
DM.CADINS.parambyname('PAR11').value := Maskedit3.Text;
DM.CADINS.parambyname('PAR12').value := Maskedit4.Text;
DM.CADINS.parambyname('PAR13').value := Edit10.Text;
DM.CADINS.parambyname('PAR14').value := 'RENATO';
DM.CADINS.execsql;

da um erro, sera que eu estou escrevendo alguma coisa errada?

Se alguém puder me ajudar eu fico agradecido...

Editado Junho 18, 2007 por Micheus
Adicinadas tag's de código ([code]..[/code]) para melhor visualização.

[Micheus]

'CEP=:PAR8,CIDADE=:PAR9,UF=:PAR10,FONE=:PAR11,FAX=:PAR12,OBS=:PAR13,USUARIO=:PAR14,'+
'WHERE ID_CADINS ='+ inttostr(cod));

da um erro, sera que eu estou escrevendo alguma coisa errada?

Está sim Renato. Observe a fração do código acima e veja que há uma "," após PAR14 e antes de WHERE - ela não deve existir. Mas observe: não basta que você a retire. Fique atento ao fato que pelo método que você está utilizando para concatenação (utilizando o "+") , ao retirar simplesmente a vírgula, resultara em "colar" PAR14 e WHERE (PAR14WHERE) - o que resultará em outro erro. Assim, quando utilizar esta abordagem, lembre-se de sempre adicionar um espaço no final da linha, tipo: ..."USUARIO=:PAR14 '+" Mas a título de "conselho" para evitar problemas futuros, utilize o método Add ao invés de "+". Por exemplo:

DM.CADINS.SQL.Add('UPDATE CADINS SET RAZAO=:PAR1,FANTASIA=:PAR2,CNPJ=:PAR3,');
DM.CADINS.SQL.Add('INSEST=:PAR4,ENDER=:PAR5,COMPLE=:PAR6,BAIRRO=:PAR7,');
DM.CADINS.SQL.Add('CEP=:PAR8,CIDADE=:PAR9,UF=:PAR10,FONE=:PAR11,FAX=:PAR12,');
DM.CADINS.SQL.Add('OBS=:PAR13,USUARIO=:PAR14');
DM.CADINS.SQL.Add('WHERE ID_CADINS ='+ inttostr(cod));

Abraços

[Renatosky]

Nossa cara que burrece essa minha..

Passei o dia todo fazendo isso ate tinha desistido..

Valeu d+++.

[Micheus]

Nossa cara que burrece essa minha..

Passei o dia todo fazendo isso ate tinha desistido..

Não esquenta não. Desatenção (não é burrice), acontece a qualquer um. ;)