Buscar por:

Função consuta like - adoquery

Código

{Função Pesquisa SQL -----------------------------------------------------------------------}

function TForm1.PesquisaSQL(Tabela, Campo, DadoPesquisa : String; Ativar : Boolean) : String;

Begin

  if Ativar = true then

    begin

      Result := ( 'Select * From '+Tabela+' Where '+Campo+' Like '+'%'+DadoPesquisa+' ');

    end

    else

      ShowMessage('Função Não Ativa!');

{Modo de Utilização ------------------------------------------------------------------------}

   {1 - Tabela / 2 - Campo / 3 - Dado a Pesquisar / 4 - Ativar - true ou false}

   {PesquisaSQL('Cliente','Nome','Paulo Henrique',true);}

{-------------------------------------------------------------------------------------------}