seleccionar y modificar fila por fila enMYSQL

[Hell_Raiser]

Empezado por schaka

Perdon pero a que te refires con componente, a mi query Zcompras?

Exacto tu query Zcompras lo estas usando para hacer una consulta y a partir de los datos que este te regresa lo recorres y modificas cada uno de sus registros, pero al usar el mismo query para realizar el update pierdes los datos de la consulta, para evitarlo debes usar otro query para el update. Creo que seria mas facil hacerlo con un solo update pasandole un string al query en donde formes los calculos qe deseas pero por el momento no tengo delphi en mi maquina para decirte exactamente como...

[schaka]

Muchisimas gracias a todos por su ayuda, ya he logrado solucionar mi problema, Saludos a todos , gracias nuevamante

[[Caral]]

Hola
Aqui Hell_Raiser tiene razon, en parte.
Si haces una consulta y luego cierras el query los datos se perderan, salvo que los guardes en algun sitio, por eso te recomendo Hell_Raiser el uso de otro query.
Bien, si te empeñas en usar solo uno, entonces tienes que guardar los datos en algun sitio.
clave y costoac son datos sacados de la consulta, si la cierras los pierdes, entonces como recogerlos, pues con una variable.

Código Delphi [-]
Var
 Clave : String;
 costoac: Real;
begin
 //Zcompras.sql.Clear;  // mucho trabajo
 // Zcompras.Close;    // Mucho trabajo
  Zcompras.SQL.Text:= 'SELECT Cantidad, CostoF, Subtotal, CostoAc,Clave FROM compras ';
  Zcompras.open;

 //  if Zcompras.RecordCount<>0 then begin // para que, no se necesita
 //  Zcompras.First; // para que

  if( Edit3.Text<> '') then
  begin
 //While Not(Zcompras.Eof) do // nada
 // 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; // otra vez, mucho trabajo
 // Zcompras.Close;  // para nada
 Zcompras.SQL.Text:= ' update compras set CostoAc = :costoac WHERE Clave = :clave';
 Zcompras.ParamByName('costoac').AsFloat:= costoac;
 Zcompras.ParamByName('clave').AsFloat:= clave;
 Zcompras.ExecSQL;

 // Zcompras.Next;  // sobra
 // end;
end;
   end;

Revisalo, veras que hay mucho menos codigo y esta mas legible.
Ademas solo usas un query.
Saludos

[[Caral]]

Hola
Esto me pasa por escribir rapido, hace falta un close:

Código Delphi [-]
Var
 Clave : String;
 costoac: Real;
begin
   Zcompras.SQL.Text:= 'SELECT Cantidad, CostoF, Subtotal, CostoAc,Clave FROM compras ';
  Zcompras.open;

  if( Edit3.Text<> '') then
  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.Close;  
 Zcompras.SQL.Text:= ' update compras set CostoAc = :costoac WHERE Clave = :clave';
 Zcompras.ParamByName('costoac').AsFloat:= costoac;
 Zcompras.ParamByName('clave').AsFloat:= clave;
 Zcompras.ExecSQL;

end;
   end;

Saludos

[schaka]

Mushisimas gracias, cuidense , nos vemos, saludos