Buscar por:

Pesquisa sql simples

Código

Procedure TFrmSql.BitPesquisaClick(Sender: TObject);

begin

     QryClientes.close; {Aqui está se fechando a QUERY ou a TABLE}

     QryClientes.SQL.Clear;{Neste ponto se limpa toda a SQL que já foi digitada na QUERY}

     QryClientes.SQL.Add('SELECT * FROM Tcliente');

{Se adiciona a SQL para selecionar todos os campos da tabela Tclientes}

     QryClientes.SQL.Add('WHERE UPPER(nome) LIKE "%' + UpperCAse (EdtNome.Text) + '%"');

{A SQL ira procurar o campo nome da tabela com referencia do EdtNome, o UpperCase é Para que tudo fique maiusculo}

     QryClientes.Open; {Se reabre a tabela}

end;