Hola a todos/as, tengo un ADOQuery bastante simple, no dá ningún error al ejecutarlo, ni con .Active := true ni con .Open.
El problema está en que despues de ejecutarlo, tengo el siguiente código:
Código:
SQLAux.Active := false;
SQLAux.SQL.Clear;
SQLAux.SQL.Add('SELECT DISTINCT PROF_OBRA, PROF_COD, '+
'PROF_ITE, PROF_FAM, PROFL_ACT '+
'FROM [Proformas con famila y actividad] LEFT JOIN EVAL ON '+
'([Proformas con famila y actividad].PROF_OBRA = EVAL.EVAL_OBRA) '+
'AND ([Proformas con famila y actividad].PROF_COD = EVAL.EVAL_PED) '+
'AND ([Proformas con famila y actividad].PROF_ITE = EVAL.EVAL_ITE) '+
'AND ([Proformas con famila y actividad].PROF_FAM = EVAL.EVAL_FAM) '+
'AND ([Proformas con famila y actividad].PROFL_ACT = EVAL.EVAL_ACT) '+
'WHERE (((PROF_OBRA)=:obra) AND '+
'((PROF_COD)=:cod) AND ((PROF_ITE)=:ite) AND '+
'((EVAL_OBRA) Is Null));');
SQLAux.Parameters.ParamValues['obra']:= DSePROF.FieldValues['PROF_OBRA'];
SQLAux.Parameters.ParamValues['cod']:= DSePROF.FieldValues['PROF_COD'];
SQLAux.Parameters.ParamValues['ite']:= DSePROF.FieldValues['PROF_ITE'];
SQLAux.Active := true;
SQLAux.First;
if not (SQLAux.Eof) then
begin
.....
//Hago cosas sin tocar SQLAux
SQLAux.Next;
end
SQLAux.Active := false;
El tema está en que solo pasa por el primer registro, en el SQLAux.Next llega a Eof y se termina. He comprobado que trae más de un registro, ya que si pongo en la Traza SQLAUX.Last y le pregunto por SQLAux.Recno, me devuelve 2, pero si le hago SQLAux.First, me contesta al SQLAux.Recno con 1. EL CursorType es CtStatic. Ya sé que solo devolverá el numero de registros indicados en CacheSize, que en este caso es 1, pero ¿al hacer SQLAux.Next, no debería pasar al siguiente registro en lugar de encontrar Eof?.
Gracias. Un saludo