ajuda ( Delphi + sql )

[ruancarlos33 0]

Tenho um probleminha no codigo de uma aplicação que estou desenvolvendo..

a aplicação é apenas um programinha para cadastro e atualização de clientes.

a parte de cadastro esta ok apenas a parte de update esta com um problema..

 

qdo rodo a aplicação e busco o cliente pela chave primaria que é o cpf ele mostra todos os outros dados do cliente ai eu altero normalmente alguns dados e salvo até ai tudo ok ele faz o update certinho, mais so consigo dar outro update se eu reabrir o programa.. o codigo desse button é esse:

 

procedure TForm1.Button6Click(Sender: TObject);

begin

If cond = 0 then

begin

queryeditar2.Close;

queryeditar2.SQL.add('Update Cliente SET NOME_CLI = :nome where CLI_Registro = :registro');

queryeditar2.ParamByName('nome').Value:= Editnome2.Text;

Queryeditar2.ParamByName('Registro')Value :=editregistro2.Text;

queryeditar2.execsql ;

Editnome2.Clear;

Edittelefone2.Clear;

Editprocurar.Clear;

Editsenha2.Clear;

Editendereco2.Clear;

Editregistro2.Clear;

showmessage('Dados Atualizados com Sucesso!');

end else

showmessage('Bloqueie os campos no bottao alterar antes de salvar!');

[NoSlake 56]

Caro Membro,

 

Após uma analise foi verificado que seu tópico se encontra em área incorreta e ele sera movido para á área que correspondente ao seu conteúdo, Programação - Dúvidas ajuda.

 

Tópico Movido.

[DarkShade 52]

...

queryeditar2.Close;

queryeditar2.SQL.Clear;

queryeditar2.SQL.add('Update Cliente SET NOME_CLI = :nome where CLI_Registro = :registro');

...