Fórum Sql em tempo de execução #245642
04/08/2004
0
Saudações gente,
eu sei que é vergonhoso pedir isso(até porque eu já fazia isso antes) é que eu estou tentando criar uma aplicação utilizando zeos pela primeira vez...coloquei no form de login uma query(fora os outros componentes tudo já setado e conectado, lógico)só para o caso de entrar algum usuário novo com senha zerada. Então o sistema irá perguntar se a senha colocada no edit será a definitiva. Caso positivo, a query irá alterar a tabela para a entrada da nova senha. Eis o sql:
update login set senha=´123´ where nome=´elias´
Isso no sql. Eu queria fazer via execução com o query.sql.text substituindo a senha por edit2 e o nome por edit1(o tipo de senha é string mesmo). Eu acho que estou errando nas aspas. Ah! e gostaria de saber como declarar tipos password em tabelas mysql. Aceito qualquer ajuda. Muito obrigado.
eu sei que é vergonhoso pedir isso(até porque eu já fazia isso antes) é que eu estou tentando criar uma aplicação utilizando zeos pela primeira vez...coloquei no form de login uma query(fora os outros componentes tudo já setado e conectado, lógico)só para o caso de entrar algum usuário novo com senha zerada. Então o sistema irá perguntar se a senha colocada no edit será a definitiva. Caso positivo, a query irá alterar a tabela para a entrada da nova senha. Eis o sql:
update login set senha=´123´ where nome=´elias´
Isso no sql. Eu queria fazer via execução com o query.sql.text substituindo a senha por edit2 e o nome por edit1(o tipo de senha é string mesmo). Eu acho que estou errando nas aspas. Ah! e gostaria de saber como declarar tipos password em tabelas mysql. Aceito qualquer ajuda. Muito obrigado.
Elias Jr
Curtir tópico
+ 0
Responder
Posts
04/08/2004
Welington
De uma olhada no código abaixo. Acho que ele resolve o seu problema
begin
with Query, Query.SQL do
begin
Close;
Clear;
Add(´UPDATE LOGIN SET SENHA = :SEN ´);
Add(´ WHERE LOGIN = :LOG´);
ParamByName(´SEN´).AsString := Edt_Senha.Text;
ParamByName(´LOG´).AsString := EdtLogin.Text;
ExecSql;
end;
end;
begin
with Query, Query.SQL do
begin
Close;
Clear;
Add(´UPDATE LOGIN SET SENHA = :SEN ´);
Add(´ WHERE LOGIN = :LOG´);
ParamByName(´SEN´).AsString := Edt_Senha.Text;
ParamByName(´LOG´).AsString := EdtLogin.Text;
ExecSql;
end;
end;
Responder
Gostei + 0
05/08/2004
Weber
.Add(´Update Login set log_senha=´´´+Trim(Edit_senha)+´´´ Where log_usuario=´´´+Trim(Edit_usuario)+´´´´);
Responder
Gostei + 0
05/08/2004
Elias Jr
Muito obrigado, gente!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)