ADOQuery y consulta con LIKE

[lugotrujillo]

buenos dias, estoy retocando un programa antiguo desarrollado en Delphi 6 y me sucede, ahora, antes no sucedia, que cuando le asigno la sentencia SQL a un ADOQuery y esta contiene una condicion LIKE para filtrar los campos que va a obtener de la base de datos, siempre devuelve vacio, es como si no funcionara el LIKE, la base de datos esta en microsoft Access version 2003, utilizo las comillas ' y el comodin de * ya que el campo a comprara es texto, por ejemplo, una consulta que me devuelve vacio es esta SELECT Inicial FROM PremisasAcc WHERE Codigo LIKE 'CPSV_2025*', sin embargo coloco su codigo en access y si devuelve correctamente los resultados

Código SQL [-]
SELECT Inicial FROM PremisasAcc WHERE Codigo LIKE 'CPSV_2025*'

[pgranados]

Nunca he usado MSAccess pero la sentencia LIKE utiliza '%' y no '*'

Puedes checar este articulo.

[Casimiro Notevi]

Creo que con msaccess es con asterisco en lugar de % y el guión subrayado en lugar de ?

[lugotrujillo]

Empezado por Casimiro Notevi

Creo que con msaccess es con asterisco en lugar de % y el guión subrayado en lugar de ?

quizas sea eso, en la codificacion de las tablas utilizo el guion bajo, y puede que access lo interprete diferente, verificare esas cosas

[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
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');


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.