Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo Hace 2 Semanas
JorgeDM JorgeDM is offline
Registrado
 
Registrado: mar 2019
Posts: 8
Poder: 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
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
No funciona bien KillFocusByReturn oscjae FireMonkey 2 20-12-2018 22:01:31
Recorrer una Dataset hacia atras IVAND Varios 4 15-05-2012 23:20:15
funciona bien en windows 7 64b pero en XP no funciona ASAPLTDA Varios 5 06-05-2011 17:24:50
Recorrer fichero txt y almacenarlo en un DataSet mamen .NET 2 24-04-2006 20:27:33
QRImage no funciona bien eljinete Impresión 4 16-12-2005 02:02:05


La franja horaria es GMT +2. Ahora son las 04:21:48.


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