Fórum Script Brasil > Verificar Campo Em Banco De Dados Access

Versão Completa: Verificar Campo Em Banco De Dados Access

Fórum Script Brasil > Programação & Desenvolvimento > Delphi, Kylix

felipe_pr

03/05/2006 - 21:38

aí pessoal tudo bom?

eu estou tentando aprender a mecher no banco de dados Access, e gostaria de esclarecer umas duvidas...
como que eu faço pra verificar um BDE_Text com um campo do Banco de Dados?

exemplo:
DBE_Login.text, quero verificar no campo 'Login' do meu Banco de Dados.
igual uma tela de Login e Senha.

Espero ter me expressado direito,
Agradeço desde já,

Obrigado,
Abraço Felipe!

Vivendo&Aprendendo

04/05/2006 - 14:44

Olá

CODE

If DBE_login.Text = TABELAeCAMPO.Value Then
se for igual fazer o que
else
se for diferente

felipe_pr

04/05/2006 - 20:53

aí beleza....

não consegui não =[

CODE

If DBE_login.Text = TABELAeCAMPO.Value Then

como seria?

CODE

If DBE_login.Text = ADOTable1.Usuario.Value Then

eu tentei assim, e de outros jeitos e não consegui...
qual seria o jeito certo?

vlw,
abraços,
Felipe!

felipe_pr

08/05/2006 - 13:19

ninguém pode me ajuda? =[

abraço,
felipe!

Vivendo&Aprendendo

08/05/2006 - 23:19

Olá Felipe

Posta ai a sua rotina, dessa forma ficará melhor para lhe ajudar.

Flws

felipe_pr

10/05/2006 - 16:46

então eu ainda não fiz, eu to querendo fazer, mais antes eu vim pesquisar como que eu faria...
vo tenta explica melhor....

Eu queria primeiro digitar o Login em um campo(TEdit -> edt_login), e quando eu apertar um botao(TButton -> btn_verifica), ele verificase no banco de dados(DataSource1 -> geral.db , Login).

Obrigado!!
abraço,
Felipe!

Vivendo&Aprendendo

15/05/2006 - 12:10

cara eu utilizo a seguinte maneira para pesquisar se o usuario e a senha estão corretas:

Obs utilizo banco ACCESS e componente ADO

CODE

    If not DmDados.Senhas.Locate('Usuario',EdtUsuario.Text,[LoCaseInsensitive])Then
    begin
       MessageBox (handle,'Usuário incorreto. Por favor tente novamente ou clique em Cancelar!','Atenção',mb_IconExclamation +mb_ok);
       EdtUsuario.Text := '';
       EdtUsuario.SetFocus;
    end
    else
      If not DmDados.Senhas.Locate('Senha',EdtSenha.Text,[LoCaseInsensitive])Then
      begin
          MessageBox (handle,'Senha incorreta. Por favor tente novamente ou clique em Cancelar!','Atenção',mb_IconExclamation +mb_ok);
          EdtSenha.Text := '';
          EdtSenha.SetFocus;
      end
      else
        FrmPrincipal.Show;

falou espero ter ajudado desta vez... qualquer coisa to por ai

felipe_pr

15/05/2006 - 14:05

qual componente seria o "DmDados"?

obrigado!
abraço

Vivendo&Aprendendo

15/05/2006 - 21:40

DmDados é o Data Module se caso você não usa é só tirar ele onde tiver.

falou

Qualquer coisa to ai

felipe_pr

16/05/2006 - 11:56

ataaaa, agora entendi...

vlw!! consegui!

abraçO,
felipe!

Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.