UPDATE Syntax Error

[martini002]

Empezado por Caral

Hola
Y que es un RDBMS amigo.
Saludos

Amigo mio, creo que deberia abrir un nuevo Hilo para esta pregunta.

Haha mentira, aqui esta, lo mismo me pregunte

http://es.wikipedia.org/wiki/Sistema...s_relacionales

Gracias

[[Caral]]

Hola
Lo se amigo, pero me gusta ver trabajar a mi amigo ecfisa
Saludos

[ecfisa]

Empezado por Caral

Hola
Lo se amigo, pero me gusta ver trabajar a mi amigo ecfisa
Saludos

Y a mi, verte nuevamente por aquí

Saludos.

[ecfisa]

Hola martini002.

La sentencia funciona perfectamente en Firebird y por lo tanto con pocas o ninguna modificacion, tendría que hacerlo en cualquier DBMS que fuera compatible con el estandar SQL.

Lamentablemente no tengo ni el más remoto contacto con SQLite , pero revisa si estos enlaces te ayudan:

• SQL As Understood By SQLite
• Command Line Shell For SQLite
• SQLite tutorial
• SQLite tutorial (select)

Saludos.

[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:

[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