Pesquisar na Comunidade
Mostrando resultados para as tags ''zquery''.
Encontrado 1 registro
-
Olá a todos.Criei um procedimento para verificar se um usuário está cadastrado no banco de dados.Utilizo Firebird como BD e componentes Zeos para acessar o banco.Resolvi criar uma query em tempo de execução para fazer a verificação. Não dá nenhum erro, porém, quando digito o nome do usuário no Edit e clicono botão que executa o procedimento, ele dá ''usuário inexistente'', mesmo se o nome do usuário estiver cadastrado no banco. Segue o código: procedure Tfrm_login.SpeedButton1Click(Sender: TObject); var Qry : TZQuery; begin Qry:=TZQuery.Create(nil); Qry.Connection := dm_dados.ZConnection1; //componente de conexão Qry.SQL.Add('select codigo, nome, acessar, user, pass from clientes'); Qry.Open; if Qry.Locate('USER',Edit1.Text,[]) then begin ShowMessage('usuário cadastrado'); end else begin ShowMessage('usuário inexistente'); Edit1.SetFocus; end; FreeAndNil(Qry); end; Se alguém puder ajudar agradeço desde já. Obrigado
