Consulta con FDQUERY en delphi xe5

[kurono]

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

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

[Casimiro Notevi]

Prueba con: WHERE ARTICULO='+QuotedStr(txt_buscar.Items.Text);

[kurono]

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

[ecfisa]

Hola kurono.

Según un ejemplo que figura aquí: Executing Commands (FireDAC) (http://docwiki.embarcadero.com/RADStudio/XE5/en/Executing_Commands_%28FireDAC%29), el TFDQuery debería funcionar como cualquier otro query.

Intenta de este modo:

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 :)

[kurono]

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

[Casimiro Notevi]

No puede ser.
Seguramente tenías otra sql distinta, por ejemplo:
where articulo containing 'loquesea'

[ecfisa]

Hola kurono.

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

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 :)

[kurono]

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