Como Verificar se Registro já Existe no Banco

Saiba Como Verificar se o Registro já Existe no Banco de Dados no Delphi

Neste tutorial estarei mostrando como inserir registro no banco de dados e verificar se o mesmo já existe no momento da inclusão. O banco utilizado é o Access, mas a lógica se aplica em qualquer outro banco.

Componentes:

ADOConnection
ADOQuery
DataSource
DBGrid
Edit
Button

Banco Utilizado: Access

Tabela: tbLogin
Campos: id e usuário

tblogin

Dados:

tblogin-dados

Inserindo Registros no Banco e exibir caso já exista:

Realiza a busca antes de inserir e exibe se já existir em showmessage.

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:

Componente	Name	Caption	Text
Edit1	edtUsuario	---	Vazio
Button1	btnBusca	Busca	---
Button2	btnAdicionar	Adicionar	---
DBGrid1	DBGrid	---	---
ADOConnection1	ADOConnection	---	---
ADOQuery1	ADOQuery	---	---
DataSource1	DataSource	---	---

Imagem:

busca-adoquery-formulario2

Altere o componentes conforme abaixo:

Componente	Instruções
ADOConnection	Conecte o banco Access; LoginPrompt = False
ADOQuery	Em Connection escolha o ADOConnection
DataSource	Em DataSet escolha o ADOQuery
DBGrid	---

No ADOQuery adicione o comando SQL em:

ADOQuerySQL

Inclua o SELECT abaixo:

SELECT * FROM tbLogin

Ative o ADOQuery para True.

De um duplo clique em ADOQuery:

Clique com o Botão Direito do Mouse dentro da janela que ira abrir » Add all Fields

busca-adoquery-campos

Adicionando o Código no Botão Adicionar (btnAdicionar)

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 &amp;gt; 0 then  //* Se existir exiba um alerta
  begin
    ShowMessage('Usuário já existe!');
    Abort;
  end
else  //* Senão Insere o Registro na Tabela *//
begin
    ADOQuery.Edit();
    ADOQueryusuario.Text := edtUsuario.Text;
    ADOQuery.Post(); 
    ShowMessage('Usuário inserido!');
end;
end;

Exemplos:

1. Inserindo: Adicionando um usuário qualquer “teste”

busca-adoquery-insere