Consultas concatenadas

[ecfisa]

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

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