[[coso]]

A esta función se le pasa un texto y te devuelve una query en la que en alguno de sus campos de texto esten todas las palabras en el texto pasado (sin importar el orden). Dicho de otra manera, si en la base de datos tengo en el campo, por ejemplo, DESCRIPCION los valores TEJANOS AZUL y en MARCA tengo JEAN, pasando a esta funcion "AZUL JEAN TEJANOS" te encontrara ese registro.

Código Delphi [-]
function SQLFilter(text,tablename,fixedfilter : string;cnx : TADOConnection) : TADOQuery;
var
     q : TADOQuery;
     t,s,
     n : string;
     i : integer;
     sl : TStringList;
begin
     q := TADOQuery.Create(Application);
     q.Connection := cnx;

     q.Active := false;
     q.SQL.Text := 'select * from ' + TableName;
     q.Active := true;

     if trim(text) <> '' then
     begin
          s := '(';
          for i := 0 to q.Fields.count - 1 do
          begin
               n := q.Fields[i].FieldName;

               if not (q.FieldByName(n).DataType in [ftString,ftMemo,ftFmtMemo,ftFixedChar,ftWideString]) then continue;

               if s <> '(' then s := s + '+'' ''+';
               s := s + 'IIF('+UpperCase(n)+','+UpperCase(n)+',''0'')';
          end;

          sl := TStringList.Create;
          sl.CommaText := text;
          t := ' where ';
          for i := 0 to sl.count - 1 do
          begin
               if t <> ' where ' then t := t + ' and ';
               t := t + s + ' like ' + QuotedStr(Comod_SQL+sl[i]+Comod_SQL) + ')';
          end;
          sl.free;
     end
     else t := '';

     if FixedFilter <> ''
     then
     if t <> '' then t := t + ' and ' + FixedFilter
     else t := ' where ' + FixedFilter;

     q.Active := false;
     q.SQL.Text := 'select * from ' + TableName + t;
     q.Active := true;

     result := q;
end;

y un ejemplo de uso

Código Delphi [-]
var 
      q : TADOQuery;
begin
      q := SQLFiltro('JERSEY AZUL','',dm.Conexion);
      q.Edit;
      q.FieldByName('COLOR').Asstring := 'ROJO';
      q.Post;
      q.Free;      
end;

Si lo que se quiere es buscar alguna de las palabras, solo hay que sustituïr el ' and ' por ' or '. La función crea el query, por lo que debe liberarse despues de ser usada (si no se quiere esa formulación, se puede usar el encabezado

Código Delphi [-]
procedure SQLFilter(text,tablename,fixedfilter : string;cnx : TADOConnection;var q : TADOQuery);

)