seleccionar y modificar fila por fila enMYSQL

[[Caral]]

Hola
Estas haciendo una seleccion y mientras no pongas una condicion saldran todos los campos.
Para hacer lo que quieres deberias o dar mas indicaciones o hacer una seleccion con condicion.
Por cierto, dependiendo de lo que quieras hacer se usaria un update.
Saludos

[schaka]

si yo tengo entendido eso mismo que me dices por eso no he puesto condicion, pero solo me selecciona la primera fila,

Código Delphi [-]
  Zcompras.sql.Clear;
  Zcompras.Close;
  Zcompras.SQL.Add('SELECT Cantidad, CostoF, Subtotal, CostoAc FROM compras ');
  Zcompras.open;

    if Zcompras.RecordCount<>0 then begin

  cantidad:=  Zcompras.Fields[0].AsInteger;
  Precio:= Zcompras.Fields[1].AsFloat;
  sub:= Zcompras.Fields[2].AsFloat;
  anterior:= Zcompras.Fields[3].AsFloat;

La idea general que tengo es modificar el costo de todas las filas dependiento de una condicion que tenga, pero de la manera que lo hago sin poner condicion , solo selecciona la primera fila, porque tintento poner Zcompras.Fields[4] , que deberia contener a mi parecer el campo " cantidad " de la segunda fila, pero no es asi, no se que pase

[[Caral]]

Hola
Perdon pero no entiendo muy bien.
Sigues diciendo que quieres modificar TODOS los campos que cumplan un CONDICION, pero sin poner la condicion??.
Pues si no te explicas un poco mejor no lo entiendo.
Saludos

[schaka]

ok , disculpa si te he confundido, la condicion a la que me referia es independiente l de la consulta,por ejemplo, un reajuste de costos de acuerdo a una fecha,aqui la condicion es la fecha y no esta relacionado con la consulta.
el reajuste de costos es para todo lo que tenga en mi tabla de compras , por eso necesito seleccionar y procesar cada una de mis filas de la tabla para asignar un nuevo costo, y lo hago mediante

Código Delphi [-]
Zcompras.SQL.Add('SELECT Cantidad, CostoF, Subtotal, CostoAc FROM compras ');
  Zcompras.open;

En esa consulta no tengo condicion ,se supone debe seleccionarme los campos para cada fila, pero solo lo hace de la primera ..

Tengo estas asignaciones

Código Delphi [-]
 cantidad:=  Zcompras.Fields[0].AsInteger;
  Precio:= Zcompras.Fields[1].AsFloat;
  sub:= Zcompras.Fields[2].AsFloat;
  anterior:= Zcompras.Fields[3].AsFloat;

Zcompras.Fields[0] contiene el primer campo "Cantidad" que seleccione de la consulta,
pero solo de la primera fila.. tenia pensado que Zcompras.Fields[4] contendria el campo "Cantidad " de la segunda fila ,pero no es asi, no contiene nada y me marca error.

No se de que manera puedo recorrer mi tabla para poder modificar los campos que deseo, Muchisimas gracias , y una disculpa por no ser tan claro en el hilo anterior

[[Caral]]

Hola
Hagamos una prueba, solo para ver si puedes recorrer la tabla.
Coloca un dbnavigator en el form y lo enlazas a un datasource que este ligado al query Zcompras.
Veamos si el navigator muestra los campos.
Me cuentas.
Saludos

[*Caro*]

Hola schaka, para recorrer el resultado que te ha dado tu consulta debes hacerlo asi:

Código Delphi [-]
 Zcompras.sql.Clear;
 Zcompras.Close;
 Zcompras.SQL.Add('SELECT Cantidad, CostoF, Subtotal, CostoAc FROM compras ');
 Zcompras.open;

 Zcompras.First;//Te posicionas en el primer registro
 While Not(Zcompras.Eof) do //Recorres mientras no termine de leer todos los registros de la consulta
  begin
   cantidad:=  Zcompras.Fields[0].AsInteger;
   Precio:= Zcompras.Fields[1].AsFloat;
   sub:= Zcompras.Fields[2].AsFloat;
   anterior:= Zcompras.Fields[3].AsFloat;
   
   //Haces las operaciones que tienes que hacer

   Zcompras.Next;//Pasas al siguiente registro
  end;

Saluditos

[schaka]

Hola que tal, gracias por tu respuesta, la he probado, pero ahora tengo un error, al tratar de ejecutarlo de esa manera, el error es el siguiente:

Cannot perform this operation on a closet dataset.

ya revise mi datasource y mi zquery , y estan correctas, les mostrare mi metodo completo , espero me puedan ayudar, gracias.

Código Delphi [-]
Zcompras.sql.Clear;
  Zcompras.Close;
  Zcompras.SQL.Add('SELECT Cantidad, CostoF, Subtotal, CostoAc,Clave FROM compras ');
  Zcompras.open;

   if Zcompras.RecordCount<>0 then begin
   Zcompras.First;

  if( Edit3.Text<> '') then
  begin
 While Not(Zcompras.Eof) do 
  begin

  cantidad:=  Zcompras.Fields[0].AsInteger;
  precio:= Zcompras.Fields[1].AsFloat;
  sub:= Zcompras.Fields[2].AsFloat;
  anterior:= Zcompras.Fields[3].AsFloat;
  clave:=Zcompras.Fields[4].asString;
  distribuir:=strtofloat(Edit3.Text);
 porcentaje:=(Precio/Updatesub)*100;
 miparte:=(distribuir*porcentaje)/100;
 CostoNuevo:=miparte/cantidad;
 costoac:=trunc(anterior+CostoNuevo);

 Zcompras.sql.Clear;
 Zcompras.Close;
 Zcompras.SQL.Add(' update compras set CostoAc = :costoac WHERE Clave = "'+clave+'"');
 Zcompras.ParamByName('costoac').AsFloat:=costoac;
 Zcompras.ExecSQL;

 Zcompras.Next;
  end;
end;
   end;