MSACCESS WHERE con LIKE y Delphi7 con ADO
 

Compañeros del Foro,

Estoy formando en Delphi 7 un comando de MS-ACCESS de la siguiente forma

Código Delphi [-]
CMD1 := 'SELECT ART_CODIGO,ART_DESCRIPCION,ART_DESC_CORTA,PRC_FEC_VIGENCIA,PRC_PRECIO ';
CMD2 := 'FROM ARTICULOS LEFT JOIN PRECIOS ON ARTICULOS.ART_ID = PRECIOS.PRC_ARTIC_ID ';
CMD3 := 'WHERE ART_DESCRIPCION LIKE ''*'+EdtSelArticulos.Text+'*''';

QryArticulos.Close;
QryArticulos.SQL.Clear;
QryArticulos.SQL.Add(CMD1);
QryArticulos.SQL.Add(CMD2);
QryArticulos.SQL.Add(CMD3);
QryArticulos.Open;
if QryArticulos.RecordCount = 0 then
  begin
  ShowMessage('No hay artículos que cumplan con las condiciones.');
  exit;
  end;

pero por más que le pongo un parametro sencillo para que me encuentre alguna información siempre el Recordcount es cero.

No se que es lo que estoy haciendo mal, dado que si entro al MS-ACCESS 2003 y pongo lo que resulta de estas instrucciones de delphi si me muestra información.

Las variables CMDx son tipo string y QryArticulos es un TADOQuery.

Espero me puedan hacer ver mi error para poder corregirlo.

Gracias a todos.
:confused:

Prueba con Like '%' es decir cambia el asterisco por el signo de porcentaje.

Un Saludo.

exito en el uso del where de access
 

Muchas gracias por tu consejo, si me funcionó. solo tuve que definir mi BD access con el parámetro 'Sintaxis compatible con sql server ansi 92' y le cambié el LIKE por ALIKE, además de las dobles comillas.

Les paso como quedaron mis comandos:

Código Delphi [-]
CMD1 := 'SELECT ART_CODIGO,ART_DESCRIPCION,PRC_FEC_VIGENCIA,PRC_PRECIO ';
CMD2 := 'FROM ARTICULOS LEFT JOIN PRECIOS ON ARTICULOS.ART_ID = PRECIOS.PRC_ARTIC_ID ';
CMD3 := 'WHERE ART_DESCRIPCION ALIKE "%'+EdtSelArticulos.Text+'%"';

Nuevamente muchas gracias.