UPDATE Syntax Error

[martini002]

Bueno ya lo logre arreglar,
Antes buscabamos y comparabamos el nombre del articulo,
pero por alguna razon, no reconocia el nombre, lo confundia con una columna
entonces lo cambie por el codigo, tomas el codigo y lo comparas,
y si es el mismo entonces resta, funciona muy bien,
Agradezco como siempre a ustedes que son los mejores
profesores que uno puede tener a distancia

al final quedo asi:

Código Delphi [-]
procedure TForm1.BDespacharClick(Sender: TObject);
Var
  CodigoFactura, CodigoArticulo, Cantidad :Integer;
  Total  :String;
begin
  //Restar cantidad en el stock
  DataSourceBD.Enabled:= False;
  ZQueryBD.Sql.Clear;
  ZQueryBD.Close;
  ZQueryBD.SQL.Add('Select Codigo, 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
      CodigoArticulo:= ZQueryBD.Fields[0].AsInteger;
      Cantidad:= ZQueryBD.Fields[1].AsInteger;
      ZQuery1.Close;
      ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock-'+IntToStr(Cantidad)+' Where Codigo = '+IntToStr(CodigoArticulo);
      ZQuery1.ExecSQL;
      ZQueryBD.Next;//Pasas al siguiente registro
    end;

Continua...

[[Caral]]

Hola
Me parece que todo esto lo estas haciendo como practica de algo.
Te aconsejo que cambies de SqlLite a Firebrid de plano y que cambies los Zeos por IBX
No te arrepentiras.
Saludos

[martini002]

Bueno, estoy lo estoy haciendo
porque mi familia tiene un pequeño negocio
de comida, y pues quiero automatizar eso,
entonces tambien me sirve de practica,
si usare Firebrid y IBX, pero luego que termine esta aplicacion
ya que he arrancado con esto, y pues no lo quiero dejar asi como asi,
agradezco mucho tu consejo, he leido que Firebrid es bastante bueno
bueno uno va avanzando poco a poco despues de todo no?
hace 3 meses no tenia ni la menor idea de que era Delphi
y mira ahora, manejando bases de datos e integrandolas con aplicaciones pequeñas
:NotBad:

[[Caral]]

Hola
Vas muy bien.
Saludos

[[Caral]]

Hola
Yo empece con BD access y aunque nuca aprendí a programar aquí sigo Tratando.
Saludos

[roman]

Empezado por martini002

Bueno ya lo logre arreglar,
Antes buscabamos y comparabamos el nombre del articulo,
pero por alguna razon, no reconocia el nombre, lo confundia con una columna

Aunqué ya has resuelto el problema, creo que no está de más que entiendas la causa del error original. En tu sentencia:

Código Delphi [-]
ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock - '+Cantidad+' Where Articulo = '+Articulo;

la parte del where, una vez reemplazado el valor de la variable, te quedaba así:

Código SQL [-]
Where Articulo = Refresco

y de ahí el mensaje de error:

No Such column Refresco

La sentencia debía llevar las comillas alrededor de Refresco:

Código SQL [-]
Where Articulo = 'Refresco'

Lo cual lo habrías logrado poniendo:

Código Delphi [-]
ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock - '+Cantidad+' Where Articulo = '+QuotedStr(Articulo);

// Saludos