Programação

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

Curta Nossa Página

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:
  1. ADOConnection
  2. ADOQuery
  3. DataSource
  4. DBGrid
  5. Edit
  6. 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:

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

Imagem:

busca-adoquery-formulario2

Altere o componentes conforme abaixo:

ComponenteInstruções
ADOConnectionConecte o banco Access; LoginPrompt = False
ADOQueryEm Connection escolha o ADOConnection
DataSourceEm 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 > 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

2. Verifica se existe: Tentando inserir novamente o usuário “teste”

busca-adoquery-ja-existe

Nota: Para efetuar a configuração do botão Busca seguir o tutorial » Busca com ADOQuery com Delphi

Etiquetas
Botão Voltar ao topo
Fechar