Código Delphi
[-]
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * From '+QuotedStr(MiTabla));
Case Todo_Parte_inicia of
0:Query1.Sql.Add('Where Campo = '+QuotedStr(Cadena));
2:Query1.Sql.Add('Where Campo Like % '+QuotedStr(Cadena+'%'));
end;
Query1.Open;
If Todo_Parte_inicia = 1 then
ShowMessage(IntToStr(Query1.RecordCount));
Solamente es una aproximación.
Un Saludo.