Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 25-08-2012
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
Usas el mismo query y lo cierras:
Primero obtienes los datos, los almacenas en variables, cierras el query y pretendes hacer un bucle.
No puedes hacer un bucle de un query cerrado:
Código Delphi [-]
ZQuery1.First;//Te posicionas en el primer registro
  While Not(ZQuery1.Eof) do //Recorres mientras no termine de leer todos los registros de la consulta
    begin
      Articulo:=  ZQuery1.Fields[0].AsString;
      Cantidad:= ZQuery1.Fields[1].AsString;
      ZQuery1.Close;
      ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock - :P1 Where Articulo = :P2';
      ZQuery1.Params[0].Value:= Cantidad;
      ZQuery1.Params[1].Value:= Articulo;
      ZQuery1.ExecSQL;
      ZQuery1.Next;//Pasas al siguiente registro
    end;
Tienes que tener dos query en este caso, aunque no le veo mucho sentido al bucle.
Saludos
__________________
Siempre Novato
Responder Con Cita
 



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
Como crear un "Cryptographic Message Syntax" en Delphi? old_martinez Varios 3 09-12-2016 15:41:59
Incorrect syntax near Ledian_Fdez SQL 4 03-05-2010 14:41:26
Error con el Update 2 de Delphi for PHP CHECHE81 PHP 2 27-09-2007 21:52:09
Error de Sintaxis en update SQL luxus SQL 3 08-08-2006 16:40:01
Error SQL - UPDATE _ SET ... Durbed Conexión con bases de datos 2 13-12-2004 18:09:05


La franja horaria es GMT +2. Ahora son las 02:31:03.


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