Ver Mensaje Individual
  #1  
Antiguo 08-03-2019
JorgeDM JorgeDM is offline
Registrado
 
Registrado: mar 2019
Posts: 8
Reputación: 0
JorgeDM Va por buen camino
Recorrer dataset, no funciona bien.

hace poco tenía un modulo en delphi XE2 con conección a SQL Server 2008 conectados a través de BDE, funcionaba bien, por motivos en los que molestaba la conección con BDE migre a XE8, y la conección
la hice con FireDAC, todo super, el problema es el siguiente, creo con un TFDQuery una consulta que me devuelve 24 registros, estoy recorriendo el query con un for, dentro del ciclo estoy sacando datos
de cada registro y actualizo otra tabla con esos datos, al llegar al registro 24 el intenta realizar el update y se queda pegado el modulo. Los registro del 1 al 23 los actualiza bien pero se queda en el ultimo.
Espero me entiendan y se los agradezco de ante mano, así tengo el fuente

for cont := 1 to Query6.RecordCount do
begin
qconsr := nil;
qconsr := TQuery.create(qconsr);
qconsr.DatabaseName := Md_comun.BASEDATOS.DatabaseName;
madr := '';
madr := 'update pago set deter = ' + FloatToStr(v1) +
' where nrocredito = ' +Query6.FieldByName('nro_credito').AsString + ' and documento = ' + Query6.FieldByName('documento').AsString + ' and consecutivo = ' +
Query6.FieldByName('consecutivo').AsString;
with qconsr do
begin
Close;
SQL.Clear;
SQL.Add(madr);
ExecSQL;
end;
Query6.Next;
end; // Fin For
Responder Con Cita