Fórum Preciso fazer uma consulta SQL mais sem passar por parametro #365479

var
  texto: string;
begin
  {:Primeiro passo os dados para serem filtrados no edit com mais de um nome e com espaços
  serve para filtrar tipo assim ADR SERV, JOAO DE S.... etc}
  if Trim(edtBusca.text) = ´´ then
   Exit;
   texto := AnsiUpperCase(StringReplace(TrimRight(edtBusca.text),´ ´,´¬ ´,[rfReplaceAll]))+´¬´;
   {:Aqui faço novamente o select agora passando por parametros}
   {:Obs Este select já esta cadastrado do DM com o parametro para o CDS reconheçer o parametro "ASSOCIADO"}
   with ibEmpresas do
    begin
      Close;
      CommandText := ´select distinct(a.cdempresa), ´+
                     ´    a.nmempresa,              ´+
                     ´         b.idusuario,         ´+
                     ´         b.marcarbox          ´+
                     ´ from empresa a               ´+
                     ´ left join permissoesuser b ON (a.cdempresa = b.idempresa) ´+
                     ´ where ´+
                     ´ b.idusuario = a.idusuario and  ´+
                     ´ upper(a.nmempresa) like ´+QuotedSTR(AnsiUpperCase(Texto))+
                     ´ order by nmempresa ´;
      //Params[0].AsString := AnsiUpperCase(Texto);
      Open;
      if IsEmpty then
         MessageDlg(´Não existe dados para esta pesquisa´, mtInformation, [mbOK], 0);
         Abort;
    end;