Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Resultado de ADOQuery (https://www.clubdelphi.com/foros/showthread.php?t=4182)

javiermorales 04-10-2003 09:54:17

Resultado de ADOQuery
 
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

javiermorales 04-10-2003 12:13:28

Me respondo, he buscado por todo el código y no he encontrado ningún error. He borrado el componente que realizaba la SQL y lo he vuelto a crear, introduciendo el comando en el SQLString y ya funciona.

Un saludo.


La franja horaria es GMT +2. Ahora son las 00:39:56.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi