Consulta con FDQUERY en delphi xe5
 

hola amigo tengo una consulta con este componente fdquery la conexiones estan bien y se ejecuta sin error el problema esta en que me trae los campos vacios alguien podria ayudarme este es el codigo que uso

Código Delphi [-]
Cons_Articulo.Close;
 Cons_Articulo.SQL.Clear;
 Cons_Articulo.SQL.Add('SELECT ARTICULO,DESCRIPCION,PRECIOCOSTO,CANTIDAD,FECHA FROM COMPRAS WHERE ARTICULO='#39+txt_buscar.Items.Text+#39);
 Cons_Articulo.Open;

la base de datos esta hecha en SQLITE

Prueba con:

Código Delphi [-]
WHERE ARTICULO='+QuotedStr(txt_buscar.Items.Text);

Casimiro Notevi e probado el codigo y aun asi me trae los campos vacio

Hola kurono.

Según un ejemplo que figura aquí: Executing Commands (FireDAC), el TFDQuery debería funcionar como cualquier otro query.

Intenta de este modo:

Código Delphi [-]
  with Cons_Articulo do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ARTICULO, DESCRIPCION, PRECIOCOSTO, CANTIDAD, FECHA');
    SQL.Add('FROM COMPRAS');
    SQL.Add('WHERE ARTICULO = :P_ARTIC');
    ParamByName('P_ARTIC').AsString := Trim(txt_buscar.Items.Text); // también podrías usar (UpperCase / LowerCase)
    Open;
  end;

Saludos :)

amigos divinen e probado nuevamente todos los codigo tanto el casimiro,el mio y el ultimo de eficas y todos funciona el problema radica en la Mayuscula y miniscula al parecer Delphixe5 distingue entre mayuscula y minuscula cosa que no pasaba en versiones anteriores a esta que curioso verdad en poca palabra estaba haciendo una consulta en minuscula y el registro estaba en mayuscula

No puede ser.
Seguramente tenías otra sql distinta, por ejemplo:

Código Delphi [-]
where articulo containing 'loquesea'

Hola kurono.

Si el problema es por mayúsculas/minúsculas, podrías utilizar lo que te sugerí en comentario del código anterior:

Código Delphi [-]
 with Cons_Articulo do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ARTICULO, DESCRIPCION, PRECIOCOSTO, CANTIDAD, FECHA');
    SQL.Add('FROM COMPRAS');
    SQL.Add('WHERE UPPER(ARTICULO) = :P_ARTIC');
    ParamByName('P_ARTIC').AsString := UpperCase(txt_buscar.Items.Text);
    Open;
  end;

Saludos :)

amigo ecfisa ya e implementado tu sugerencia en mi programas muchas gracias