Ir para conteúdo
Fórum Script Brasil
  • 0

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


Flávio Borges

Pergunta

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.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 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

Link para o comentário
Compartilhar em outros sites

  • 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

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;

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...