Hola anubis.
Prueba si el tiempo de respuesta mejora de este modo:
Código SQL
[-]
SELECT R.*, F.*
FROM TCHEQUES R INNER JOIN TBENEFICIARIO F ON R.CBENE = F.CLAVEB
WHERE R.CCUENTA = 1
AND EXTRACT(MONTH FROM R.CFECHA) = 02
AND EXTRACT(YEAR FROM R.CFECHA) = 2015
Cita:
Empezado por anubis
...
El problema ocurre en lazarus para windows con componentes zeos, ahi tengo que hacer primero
Código SQL [-]select * from tbeneficiario where claveb=0
porque de otra forma me da error en otros accesos iniciales y ademas el nombre no me lo visualiza, aparece en blanco. Si llegara a poner
Código SQL [-]select * from tbeneficiario
en la carga inicial de las tablas, ya no tengo problema.
...
|
No he usado
Lazarus /
Zeos, pero tal vez te pueda servir de guía como implementarlo en un
TSQLQuery:
Código Delphi
[-]
...
begin
with SQLQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT R.*, F.*');
SQL.Add('FROM VENTAS R INNER JOIN PRODUCTOS F ON R.PRODUCTO_ID = F.ID');
SQL.Add('WHERE R.CANTIDAD = :PCTA');
SQL.Add('AND EXTRACT(MONTH FROM R.FECHA) = :PMES');
SQL.Add('AND EXTRACT(YEAR FROM R.FECHA) = :PANIO');
Params.ParamByName('PCTA').AsInteger:= 1;
Params.ParamByName('PMES').AsInteger:= 3;
Params.ParamByName('PANIO').AsInteger:= 2015;
Open;
end;
end;
Saludos