Ajuda com função Update usando Delphi 7 + access + ADO

Question

E a&iacute; galera? Todo mundo belezinha?

Bom, o problema &eacute; o seguinte: t&ocirc; tentando fazer uma rotina de altera&ccedil;&atilde;o de dados cadastrados em um programa usando Delphi + Access + ADO. Coloquei o c&oacute;digo do update e ele compila de boa, mas quando vai executar a SQL d&aacute; a mensagem Sintaxe incorreta.

O C&oacute;digo que t&ocirc; tentando executar &eacute; o seguinte:

[size=4]with DataMod.DModule.AQSubgeneros do
begin

Close;
              SQL.Clear;
              SQL.Add('Update Subgeneros SET Desc_Subgenero, Cod_Genero = :DescSubg, :CodGen where Cod_Subgenero =  :CodSubg');
              Parameters.ParamByName('DescSubg').Value:=edtDescSubgenero.Text;
              Parameters.ParamByName('CodGen').Value:=StrToInt(edtCodGenero.Text);
              Parameters.ParamByName('CodSubg').Value:=StrToInt(edtCodSubgenero.Text);
              ExecSQL;

end;
[/SIZE][size=4][size=5]Qual ser&aacute; o erro nessa SQL...?

Valeu mesmo pela ajuda de todos. At&eacute; mais:rindo_ate_agora:.[/SIZE][/SIZE]

Answer

Vc n&atilde;o ta atribuindo valor ao campo [size=4]Desc_Subgenero... Se n&atilde;o resolver coloque qual exatamente &eacute; a mensagem de erro que aparece.
[/SIZE]

Answer

[quote=Guitarrista Kurumin, post: 3536131]Vc n&atilde;o ta atribuindo valor ao campo [size=4]Desc_Subgenero... Se n&atilde;o resolver coloque qual exatamente &eacute; a mensagem de erro que aparece.
[/SIZE][/quote]

Obrigado. 
Vou explicar melhor o que estou tentando fazer nessa SQL.

Subgeneros &eacute; a tabela.
Desc_Subgenero e Cod_Genero s&atilde;o os campos da tabela que ser&atilde;o alterados.
Eles receber&atilde;o os dados de dois labels, que s&atilde;o passados como par&acirc;metros (:DescSubg e :CodGen).
Essas altera&ccedil;&otilde;es ser&atilde;o feitas apenas no registro corrente, identificado por um c&oacute;digo contido em outro label, que tamb&eacute;m &eacute; passado como par&acirc;metro (where Cod_Subgenero = :CodSubg)

Agora, voc&ecirc; me disse que eu n&atilde;o estou atribuindo valores a Desc_Subgenero mas, ao meu ver, isso &eacute; feito com o par&acirc;metro :DescSubg)...

O erro que d&aacute; &eacute; exatamente esse: Erro de sintaxe na instru&ccedil;&atilde;o UPDATE.

Note que o programa compila normal. Apenas quando vai executar essa instru&ccedil;&atilde;o &eacute; que d&aacute; pala.

Valeu mesmo.:rindo_ate_agora:

Answer

[size=4]Update Subgeneros SET Desc_Subgenero= :[/SIZE][size=4]DescSubg[/SIZE][size=4], Cod_Genero = https://www.hardware.com.br/static/c/m/2666b78ac6e92f53e16644c6f61d4874:escSubg[COLOR=Silver], :CodGen[/COLOR] where Cod_Subgenero =  :CodSubg

Provavelmente o que est&aacute; em negrito est&aacute; faltando e o que est&aacute; cinza est&aacute; passando.

O parametro [/SIZE][size=4]DescSubg estava sendo passado para o campo [/SIZE][size=4]Cod_Genero e n&atilde;o para o [/SIZE][size=4]Desc_Subgenero.[/SIZE]
[size=4]

[COLOR=Silver]off -------------------------------------------------- 
Evite essas carinhas no meio do c&oacute;digo, fica dif&iacute;cil de ler
[/COLOR] [/SIZE]

Answer

[quote=Guitarrista Kurumin, post: 3536414][size=4]Update Subgeneros SET Desc_Subgenero= :[/SIZE][size=4]DescSubg[/SIZE][size=4], Cod_Genero = https://www.hardware.com.br/static/c/m/2666b78ac6e92f53e16644c6f61d4874:escSubg[COLOR=Silver], :CodGen[/COLOR] where Cod_Subgenero =  :CodSubg

Provavelmente o que est&aacute; em negrito est&aacute; faltando e o que est&aacute; cinza est&aacute; passando.

O parametro [/SIZE][size=4]DescSubg estava sendo passado para o campo [/SIZE][size=4]Cod_Genero e n&atilde;o para o [/SIZE][size=4]Desc_Subgenero.[/SIZE]
[size=4]

[COLOR=Silver]off -------------------------------------------------- 
Evite essas carinhas no meio do c&oacute;digo, fica dif&iacute;cil de ler
[/COLOR] [/SIZE][/quote]

Ah, valeu mesmo irm&atilde;o... Agora deu certinho... &Eacute; que eu tava pensando que depois do SET, deveria colocar todos os campos que seriam modificados, e depois do igual os par&acirc;metros que seriam atribuidos, respectivamente a cada campo...:fiquei_vermelho:

S&oacute; pra constar, o c&oacute;digo ficou assim:
with DataMod.DModule.AQSubgeneros do
            begin

Close;
              SQL.Clear;
              SQL.Add('Update Subgeneros SET Desc_Subgenero = :descSubg, Cod_Genero = :CodGen where Cod_Subgenero = :CodSubg');
              Parameters.ParamByName('DescSubg').Value:=edtDescSubgenero.Text;
              Parameters.ParamByName('CodGen').Value:=StrToInt(edtCodGenero.Text);
              Parameters.ParamByName('CodSubg').Value:=StrToInt(edtCodSubgenero.Text);
              ExecSQL;

end;--Resp Off... Foi mal pelas carinhas, mas &eacute; que quando eu digito ele j&aacute; p&otilde;e sozinho...

At&eacute; mais.

Ferramentas

Mover Tópico