UPDATE Syntax Error

[martini002]

Saludos amigos donde quiera que se encuentren,

Estoy teniendo un problemita de Syntax con el UPDATE,
lo hice de dos formas distintas pero de ninguna funciona
ahora, lo que me he dado cuenta es que el error lo presenta en ambos
en la Condicion donde usa la variable Articulo
Ustedes que creen que pueda ser?

Saludos
Gracias

No Such column Refresco (Articulo)

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 - '+Cantidad+' Where Articulo = '+Articulo;
      ZQuery1.ExecSQL;
      ZQuery1.Next;//Pasas al siguiente registro
    end;

Near Where :Syntax Error

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;

[Casimiro Notevi]

O no se entiende o tienes un lio tremendo de conceptos.
¿Ese ZQuery1 qué es?, supongo que un query con una sentencia select.
En teoría debes tener algo así como "select * from inventario"
Si tienes eso, entonces luego vas y recorres todos los registros...

Código Delphi [-]
ZQuery1.First;
whiel not ZQuery1.eof do
begin

end

Bien, ¿entonces cómo le cambias dentro del bucle su sentecia por un 'update'?
==========

Segunda parte:
Si tienes una tabla con los campos: articulo, stock, cantidad (es una tabla muy extraña, la verdad)
Y si lo que quieres es disminuir el campo stock con el valor del campo cantidad... entonces sólo has de hacer:

Código SQL [-]
update inventario set stock = stock - cantidad

Y se acabó, no hay más.

Esos bucles que pretendes hacer es de la época en que no existía SQL y eran tablas planas, como dbase. Olvídalos.

Creo que sí voy a tener que recomendarte este estupendo libro.

[[Caral]]

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

[martini002]

Bueno El codigo del While lo saque de aqui:
http://www.clubdelphi.com/foros/showthread.php?t=54369

Pues necesito restar del inventario
y tengo que ir linea por linea de acuerdo
a los articulos de la BD temporal,
y por supuesto tambien de la cantidad,
intentare usando dos Query's

Gracias

[[Caral]]

Hola
Nos das solo eses codigo, no sabemos que hay delante de el. especulando:

Código Delphi [-]
var articulo: String;
     cantidad: Real;
begin
  ZQuery1.slq.text:= 'Select * from TablaArticulos';
  ZQuery1.open;
  ZQuery1.First;//Te posicionas en el primer registro
  // datos en variables
  Articulo:=  ZQuery1.Fields[0].AsString;
  Cantidad:= ZQuery1.Fields[1].AsString;
  // cierro la tabla
  ZQuery1.Close;

  ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock - '+Cantidad+' Where Articulo = '+Articulo;
  ZQuery1.ExecSQL;
  end;

Saludos

[martini002]

Asi lo pense usando dos Query's,
la cuestion es que necesito posicionarme en una fila
usando el nombre del articulo, entonces restare al stock
la cantidad que sea requerida.

por supuesto, no Funciona como cosa extraña,
Casimiro, ya comenzare a revisar la seccion SQL de tu libro
a ver con que me encuentro alli, pues estoy usando solo el manual de SQL

Código Delphi [-]
procedure TForm1.BDespacharClick(Sender: TObject);
Var
  Codigo :Integer;
  Total, Cantidad, Articulo  :String;
begin
  //Restar cantidad en el stock
  DataSourceBD.Enabled:= False;
  ZQueryBD.Sql.Clear;
  ZQueryBD.Close;
  ZQueryBD.SQL.Add('SELECT Articulo, Cantidad From FacturaTemp ');
  ZQueryBD.Open;
  ZQueryBD.First;//Te posicionas en el primer registro
  While Not(ZQueryBD.Eof) do //Recorres mientras no termine de leer todos los registros de la consulta
    begin
      Articulo:= ZQueryBD.Fields[0].AsString;
      Cantidad:= ZQueryBD.Fields[1].AsString;
      ZQuery1.Close;
      ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock - '+Cantidad+' Where Articulo = '+Articulo;
      ZQuery1.ExecSQL;
      ZQueryBD.Next;//Pasas al siguiente registro
    end;
...Continua

[[Caral]]

Hola
Me parece que cantidad en la tabla es de tipo double.

Código Delphi [-]
procedure TForm1.BDespacharClick(Sender: TObject);
Var
  Codigo :Integer;
  Total, Articulo  :String;
  Cantidad: Real;
begin
  //Restar cantidad en el stock
  DataSourceBD.Enabled:= False;
  ZQueryBD.Sql.Clear;
  ZQueryBD.Close;
  ZQueryBD.SQL.Add('SELECT Articulo, Cantidad From FacturaTemp ');
  ZQueryBD.Open;
  ZQueryBD.First;//Te posicionas en el primer registro
  While Not(ZQueryBD.Eof) do //Recorres mientras no termine de leer todos los registros de la consulta
    begin
      Articulo:= ZQueryBD.Fields[0].AsString;
      Cantidad:= ZQueryBD.Fields[1].AsFloat;
      ZQuery1.Close;
      ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock - '+FloatToStr(Cantidad)+' Where Articulo = '+Articulo;
      ZQuery1.ExecSQL;
      ZQueryBD.Next;//Pasas al siguiente registro
    end;
...Continua

Saludos