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

[Flávio Borges]

E aí galera? Todo mundo belezinha?

Bom, o problema é o seguinte: estou tentando fazer uma rotina de alteração de dados cadastrados em um programa usando Delphi + Access + ADO. Coloquei o código do update e ele compila de boa, mas quando vai executar a SQL dá a mensagem "Sintaxe incorreta".

O Código que estou tentando executar é o seguinte:

with DataMod.DModule.AQSubgeneros do

begin

Close;

SQL.Clear;

SQL.Add('Update Subgeneros SET Desc_Subgenero, Cod_Genero = escSubg, :CodGen where Cod_Subgenero = :CodSubg');

Parameters.ParamByName('DescSubg').Value:=edtDescS ubgenero.Text;

Parameters.ParamByName('CodGen').Value:=StrToInt(e dtCodGenero.Text);

Parameters.ParamByName('CodSubg').Value:=StrToInt( edtCodSubgenero.Text);

ExecSQL;

end;

Qual será o erro nessa SQL...?

Valeu mesmo pela ajuda de todos. Até mais.

[Micheus]

Bom, o problema é o seguinte: estou tentando fazer uma rotina de alteração de dados cadastrados em um programa usando Delphi + Access + ADO. Coloquei o código do update e ele compila de boa, mas quando vai executar a SQL dá a mensagem "Sintaxe incorreta".

Flávio, há erros sim.

Vamos ver apenas sua instrução SQL:

Update Subgeneros 
SET Desc_Subgenero, Cod_Genero = escSubg, :CodGen 
where Cod_Subgenero = :CodSubg

Veja se não ficou melhor agora: ;)

Update Subgeneros 
SET Desc_Subgenero = :escSubg, Cod_Genero = :CodGen 
where Cod_Subgenero = :CodSubg

[Flávio Borges]

Bom, o problema é o seguinte: estou tentando fazer uma rotina de alteração de dados cadastrados em um programa usando Delphi + Access + ADO. Coloquei o código do update e ele compila de boa, mas quando vai executar a SQL dá a mensagem "Sintaxe incorreta".

Flávio, há erros sim.

Vamos ver apenas sua instrução SQL:

Update Subgeneros 
SET Desc_Subgenero, Cod_Genero = escSubg, :CodGen 
where Cod_Subgenero = :CodSubg

Veja se não ficou melhor agora: ;)

Update Subgeneros 
SET Desc_Subgenero = :escSubg, Cod_Genero = :CodGen 
where Cod_Subgenero = :CodSubg

Ah, valeu mesmo irmão... Agora deu certinho... É que eu tava pensando que depois do SET, deveria colocar todos os campos que seriam modificados, e depois do igual os parâmetros que seriam atribuidos, respectivamente a cada campo...

Só pra constar, o có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:=edtDescS ubgenero.Text;

Parameters.ParamByName('CodGen').Value:=StrToInt(e dtCodGenero.Text);

Parameters.ParamByName('CodSubg').Value:=StrToInt( edtCodSubgenero.Text);

ExecSQL;

end;