Entre para seguir isso  
Flávio Borges

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

Recommended Posts

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Micheus    0
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

Compartilhar este post


Link para o post
Compartilhar em outros sites
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;

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

Entre para seguir isso