ADOQuery y consulta con LIKE

[marco3k]

Muestra tu código para revisar lo que dices, quizas el error este en las comillas, en código debes usar "QuotedStr" para reemplazar las comillas.

[lugotrujillo]

Empezado por marco3k

Muestra tu código para revisar lo que dices, quizas el error este en las comillas, en código debes usar "QuotedStr" para reemplazar las comillas.

es que da igual, todo lo que vayas a asignar al SQL.Text de un ADOQuery y contenga LIKE 'cualquiertexto*' devolvera 0 registros, uso QuotedStr y todo, y no devuelve ni un registro

[marco3k]

Pues si no muestras un poco de código de esa búsqueda, bueno no hay como ayudarte.

[lugotrujillo]

Empezado por marco3k

Pues si no muestras un poco de código de esa búsqueda, bueno no hay como ayudarte.

en un procedimiento cualquiera declaro una variable string

Código Delphi [-]
STemp: String;
    begin
//le asigno su valor a una lista q usare posteriormente, mediante una funcion que abre un adoquery (aqui es donde no 
//devuelve ningun registro, y deberia devolver) y me devuelve esa lista
      STemp:= DM.DevolverListaCodigos('SELECT Inicial FROM PremisasAcc WHERE Codigo LIKE '+QuotedStr('CPSV_2025*'),'Inicial');

Código Delphi [-]
function TDM.DevolverListaCodigos(Consulta, Codigo: String): String;
  var
    QLista: TADOQuery;
  begin
    QLista:= TADOQuery.Create(Self);
    QLista.Connection:= DM.ADOConn;
    ActivarQuery(QLista,Consulta,True,False);
    Result:= '';
    if not QLista.IsEmpty
    then
    begin
      QLista.First;
      Consulta:= TipoCampo(QLista.FieldList.Find(Codigo));
      while not QLista.Eof do
      begin
        if (Consulta='String') OR (Consulta='WideString')
        then
          if Result=''
          then Result:= QuotedStr(QLista.FieldByName(Codigo).AsString)
          else Result:= Result+','+QuotedStr(QLista.FieldByName(Codigo).AsString)
        else
          if Result=''
          then Result:= QLista.FieldByName(Codigo).AsString
          else Result:= Result+','+QLista.FieldByName(Codigo).AsString;
        QLista.Next;
      end;
      Result:= '('+Result+')';
    end;
    QLista.Free;
  end;

[marco3k]

Ya vi tu problema, es el query que lo liberas y al hacerlo se pierden los registros, trata de hacerlo como una variable de formulario.

[lugotrujillo]

Empezado por marco3k

Ya vi tu problema, es el query que lo liberas y al hacerlo se pierden los registros, trata de hacerlo como una variable de formulario.

no que va, traceo el programa para ir evaluando el comportamiento y en esta comprobacion es que me doy cuenta

if not QLista.IsEmpty //=>la lista esta vacia, no se obtuvieron registros, cambio la consulta de seleccion eliminando el LIKE y me devuelve registros, verifico la consulta con el LIKE en access y esta bien, devuelve los registros que son segun sea la condicion LIKE

antes el LIKE funcionaba, ahora no, algo mas paso y no me di cuenta

[marco3k]

Hice un pequeño ejemplo con una bd de access y el problema es el * y debes usar %

Código Delphi [-]
procedure TForm1.btnBuscaClick(Sender: TObject);
var busca :string;
begin
  try
    try
      busca:= '%'+trim(self.edtBusca.Text)+'%';
      self.Conexion.Connected:= true;
      self.DataSetPrueba.CommandText :='select * from prueba where nombre like :busca';
      self.DataSetPrueba.Parameters.ParamByName('busca').Value := busca;
      self.DataSetPrueba.Active:= true;
      if self.DataSetPrueba.RecordCount>0 then
      begin
        showmessage('Se encontró ' + inttostr(self.DataSetPrueba.RecordCount) + ' registro(s)');
      end;
    except
      abort;
    end;
  finally
    self.Conexion.Connected:= false;
  end;
end;

Use access 2013 proveedor "Provider=Microsoft.ACE.OLEDB.12.0" y una tabla con campo texto nombre. Funciona lo de arriba.

[lugotrujillo]

Empezado por marco3k

Hice un pequeño ejemplo con una bd de access y el problema es el * y debes usar %
Código Delphi [-]procedure TForm1.btnBuscaClick(Sender: TObject); var busca :string; begin try try busca:= '%'+trim(self.edtBusca.Text)+'%'; self.Conexion.Connected:= true; self.DataSetPrueba.CommandText :='select * from prueba where nombre like :busca'; self.DataSetPrueba.Parameters.ParamByName('busca').Value := busca; self.DataSetPrueba.Active:= true; if self.DataSetPrueba.RecordCount>0 then begin showmessage('Se encontró ' + inttostr(self.DataSetPrueba.RecordCount) + ' registro(s)'); end; except abort; end; finally self.Conexion.Connected:= false; end; end;



Use access 2013 proveedor "Provider=Microsoft.ACE.OLEDB.12.0" y una tabla con campo texto nombre. Funciona lo de arriba.

voy a probar a ver, no recuerdo si usaba % anteriormente en los LIKE o siempre use *, incluso cambie el proveedor entre ese q usaste y "Provider=Microsoft.Jet.OLEDB.4.0" y obtenia el mismo resultado