Query(Erro)
Criei uma variável para receber um valor de uma query em tempo de programa, porém não funciona, veja.
ValorLogin := query1.sql.add(´select senha_users from tb_users where login_users = parametro1´);
query1.parambyname(´parametro1´).value := ´¬´+edit1.text+´¬´;
Como faço para que essa variável receba o valor da query?
Grato.
Adilson
adilson.abreu@cenibra.com.br
ValorLogin := query1.sql.add(´select senha_users from tb_users where login_users = parametro1´);
query1.parambyname(´parametro1´).value := ´¬´+edit1.text+´¬´;
Como faço para que essa variável receba o valor da query?
Grato.
Adilson
adilson.abreu@cenibra.com.br
Anonymous
Curtidas 0
Respostas
Anonymous
06/03/2003
tente isso:
ValorLogin := RetornaSenha;
function RetornaSenha:String;
begin
query1.sql.add(´select senha_users from tb_users where login_users like :parametro1´);
query1.parambyname(´parametro1´).value := QuotEdStr(´¬´+edit1.text+´¬´);
try
query1.ExecSql;
if query1.fieldByName(´senha_users´).IsNull then
Result := ´´
else
Result := query1.FieldByName(´senha_users´).Value;
except
Result := ´´;
end;
end;
ValorLogin := RetornaSenha;
function RetornaSenha:String;
begin
query1.sql.add(´select senha_users from tb_users where login_users like :parametro1´);
query1.parambyname(´parametro1´).value := QuotEdStr(´¬´+edit1.text+´¬´);
try
query1.ExecSql;
if query1.fieldByName(´senha_users´).IsNull then
Result := ´´
else
Result := query1.FieldByName(´senha_users´).Value;
except
Result := ´´;
end;
end;
GOSTEI 0