Início / Programação / Busca com ADOQuery com Delphi

Busca com ADOQuery com Delphi

O banco utilizado é Access, mas a lógica se aplica em qualquer banco.

Componentes:

  1. ADOConnection
  2. ADOQuery
  3. DataSource
  4. DBGrid
  5. Edit
  6. Button

Tabela: tbLogin
Campos: id e usuário

tblogin

Dados:

tblogin-dados

  • Buscar Usuário e Mostrar no DBGrid:

Realiza a busca e exibe o Usuário encontrado no DBGrid.

Formulário Principal

Adicione um novo Form. ( File » New » Form – Delphi for Win32 )

Renomeie o nome do Form1 para frmPrincipal

Adicione os seguintes Componentes das Paletas: Standard, Data Access, dbGo e Data Controls:

ComponenteNameCaptionText
Edit1edtUsuario---Vazio
Button1btnBuscaBusca---
DBGrid1DBGrid------
ADOConnection1ADOConnection------
ADOQuery1ADOQuery------
DataSource1DataSource------

Altere o componentes da Paleta: dbGo ( ADOConnection ) e os outros das paletas Data Access e Data Controls deixe sem fazer nada, pois serão feitos no botão busca:

ComponenteInstruções
ADOConnectionConecte o banco Access; LoginPrompt = False
ADOQuery---
DataSource---
DBGrid---

Imagem:

form-adoquery

Adicionando o Código no Botão Busca (btnBusca)

ADOQuery.Connection := ADOConnection; //* Conecta o ADOQuery a Conexão Access
ADOQuery.Close; //* Fecha o ADOQuery
ADOQuery.SQL.Text := 'SELECT * FROM tbLogin WHERE Usuario = "'+edtUsuario.Text+'" '; //* Query
ADOQuery.Open; //* Abre o ADOQuery
if ADOQuery.RecordCount > 0 then  //* Se existir exiba no DBGrid
  begin
    DBGrid.DataSource := DataSource; //* Mostra no DBGrid
  end
else  //* Senão informe que não existe
begin
  ShowMessage('Usuário não existe!');
end;   
end;

Exemplos:

1. Se existir: Exiba no DBGrid

busca-adoquery-existe

2. Se não existir: Exibe o alerta “Usuário não existe!”

busca-adoquery-nao-existe

Verifique Também

Como Desmarcar a Opção “Detectar automaticamente as configurações” em Configurações da LAN – Delphi

Desmarcando a Opção “Detectar automaticamente as configurações” em Configurações da LAN com Delphi Crie um …