Jump to content

andreluis78

Members
  • Content count

    7
  • Joined

  • Last visited

Community Reputation

0 Comum

About andreluis78

  • Birthday October 14

Informações Pessoais

  • Sexo
    Masculino
  • Localização
    Tupã/SP
  • Interesses
    Embarcadero Rad Studio, Borland Delphi, Firebird Database
    Recentemente estudando PHP
  1. andreluis78

    Query em tempo de execução

    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
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.