Recorrer dataset, no funciona bien.

[JorgeDM]

Ecfisa, muchas gracias lo probaré, me tiene cabezón esa linea , no doy ni daré por sentado nada en la vida, en estos momentos solo quiero saber por qué se esta suspendiendo la actualización con SQL

[Casimiro Notevi]

Empezado por JorgeDM

... solo quiero saber por qué se esta suspendiendo la actualización con SQL

Ya te lo he contestado.

[orodriguezca]

Delphi XE8?, A veces pasan cosas "raras" con el depurador y nos hace creer que la ejecución se ha detenido en una sentencia cuando en realidad se detiene en sentencias posteriores. Sugerencia: Coloca un punto de interrupción en Query6.Next. Esto con el objetivo de verificar si realmente el código se "congela" en ExecSQL.

A Tener en cuenta:

1. La observación de casimiro: al recorrer DataSet de principio a fin lo recomendado es usar

Código Delphi [-]
while not query.eof do

2.

Código Delphi [-]
qconsr := nil

NO libera el objeto qconsr . En tu código está ocurriendo una fuga de memoria cada vez que creas el objeto qconsr porque nunca está siendo liberado. En el código mostrado por ecfisa se ilustra una forma correcta de crear y destruir el objeto qconsr

3. Del código se puede deducir que los componentes utilizados son BDE, por lo que supongo que utilizas tanto BDE como FireDac en la aplicación. Pregunta ¿El código funcionaba bien antes de FireDac o FireDac fue necesario para resolver otro problema?

4. Verifica el siguiente código, no probado, en el que se hace uso del while y de try-finally:

Código Delphi [-]
  Query6.Close;
  Query6.Params[0].AsString := Edit_ano.Text;
  Query6.Params[1].AsString := mes;
  Query6.Open;

  while not Query6.eof do
  begin
      v1 := Query6.FieldByName('reversion').AsInteger;
      Table2.Open;
      Table2.Insert;
      Table2.FieldByName('cuenta').Value := '139905';
      Table2.FieldByName('num_mov').Value := '138';
      Table2.FieldByName('tipo_mov').Value := 'DT';
      Table2.FieldByName('consec').Value := cons;
      Table2.FieldByName('ano_mov').Value := Editano.Text;
      Table2.FieldByName('mes_mov').Value := mes;
      Table2.Post;
      Table2.Close;

      qconsr := TQuery.create(qconsr);
      try
          qconsr.DatabaseName := Md_comun.BD_Tesoreria.DatabaseName;
          madr := 'update pagos  set deter = ' + FloatToStr(v1) +
                  ' where nrocredito = ' + Query6.FieldByName('nro_credito').AsString +
                  ' and documento = ' +   Query6.FieldByName('documento').AsString +
                  ' and consecutivo = ' + Query6.FieldByName('consecutivo').AsString;
          qconsr.SQL.Text := madr;
          qconsr.ExecSQL;
      finally
          qconsr.free;
      end;
      Query6.Next;
  end;

5. En un enfoque completamente alternativo, y aprovechando el poder de las bases de datos, prueba a utilizar la sentencia SQL MERGE, la cual te permite actualizar/modificar/borrar masivamente registros de una tabla a partir de otra tabla o de una subconsulta.

[WHILENOTEOF]

Como se ha comentado, para recorrer el dataset es mejor con :

Código Delphi [-]
Dataset.First;
while not DataSet.Eof do
 begin
  //código
  DataSet.Next;
 end;

El poner

Código Delphi [-]
for cont := 1 to Query6.RecordCount do

o poner

Código Delphi [-]
for cont := 0 to Query6.RecordCount -1 do

, no te va a cambiar nada ya que la variable cont no la estás utilizando para nada.

[Casimiro Notevi]

Empezado por WHILENOTEOF

El poner Código Delphi [-]for cont := 1 to Query6.RecordCount do
o poner Código Delphi [-]for cont := 0 to Query6.RecordCount -1 do

, no te va a cambiar nada ya que la variable cont no la estás utilizando para nada.

Precisamente, aparte de todos los problemas que ya se han comentado por los compañeros que han respondido, ese bucle está claramente mal y es inservible.
Si hay 5 registros, el (0,1,2,3,4), al hacer ese bucle se están tratando los datos del 1 al 4, y el 0 (cero) se pierde y el 5 no leerá nada tampoco, pues no existe.

[WHILENOTEOF]

Empezado por Casimiro Notevi

Precisamente, aparte de todos los problemas que ya se han comentado por los compañeros que han respondido, ese bucle está claramente mal y es inservible.
Si hay 5 registros, el (0,1,2,3,4), al hacer ese bucle se están tratando los datos del 1 al 4, y el 0 (cero) se pierde y el 5 no leerá nada tampoco, pues no existe.

Entiendo que no es la forma habitual-correcta de hacerlo, pero los dos bucles hacen su trabajo bien, que es recorrer un dataset de 5 registros, el que la variable count vaya del 0 al 4, o del 1 al 5, es indiferente para este caso.

[Casimiro Notevi]

Empezado por WHILENOTEOF

Entiendo que no es la forma habitual-correcta de hacerlo, pero los dos bucles hacen su trabajo bien, que es recorrer un dataset de 5 registros, el que la variable count vaya del 0 al 4, o del 1 al 5, es indiferente para este caso.

Depende de los componentes y de la base de datos. Algunos tratan el primer registro como 0 (cero) y hay que decirle esplícitamente que posicione en el registro 0, en caso contrario ese registro se lo saltaría.
Ignoro el caso este de los componentes que esté usando y la base de datos.