Update de varios registros

[jonydread]

Estimado, desactivar o activar es de ejemplo lo real es lo que tengo en el codigo el cual indica un valor el cual se modifica a no informado, si necesito realizar el update para cada registro pero no se como repetirlo ya que solo modifica el primer valor que toma.

[[AgustinOrtu]]

En el mensaje explique como hacerlo. Tu codigo actualiza solo el primer valor porque nunca iteras sobre el dataset que devuelve el select. Simplemente agregas el primer registro a un TStringList y luego ejecutas un solo update el numero del primer registro que almacenaste en la lista de strings

Código Delphi [-]
var
  qrySierras, qryUpdate: TZQuery;
begin
  qrySierras := // Crear el query o bien usar uno en tiempo de diseño, 
  // asumo que esta creado e inicializado con su conexion, listo para usar. Idem para qryUpdate

  // recomiendo usar una transaccion por si algo falla  
  IniciarTransaccion;
  try
    qrySierras.SQL.Text := 'SELECT sierra from Actual';
    qrySierras.Open;

    qryUpdate.sql.text := 'UPDATE Sierras SET Estado=:Estado where Numero =:Numero';
    qryUpdate.ParamByName('Estado').DataType := ftString;
    qryUpdate.Prepared := True; // puede omitirse, mejora la eficiencia. Preprocesa la sentencia update y se la envia al motor
    // para que ya vaya calculando el plan, indices, etc
    // siempre es buena idea usar un prepared cuando vamos a usar el mismo comando varias veces pero solo varian los parametros

    while not qrySierras.Eof do
    begin
      qryUpdate.ParamByName('Estado').AsString := 'No informado';
      qryUpdate.ParamByName('Numero').AsString := qrySierras.fieldbyname('sierra').AsString;
      qryUpdate.ExecSQL;    
      qrySierras.Next;
    end;
 
    CommitTransaccion;
    ZQuery4.Refresh; // no se que es, lo dejo porque esta en tu codigo
  except
    RollbackTransaccion;
    raise;
  end;
end;

[jonydread]

Lo realice segun lo explicado de esta forma y en IniciarTransaccion; y demas me indica undeclared indentifier, al quitar la transaccion ejecuto y no hace el update uso SQlite y la verdad no manejo mucho esto ojala me puedas ayudar

Código Delphi [-]
 IniciarTransaccion;
  try
zquery1.SQL.Text := 'SELECT sierra from Actual';
zquery1.Open;

Zquery1.sql.text := 'UPDATE Sierras SET Estado=:Estado where Numero =:Numero';
  ZQuery1.ParamByName('Estado').DataType := ftString;
  ZQuery1.Prepared := True;
  while not ZQuery1.Eof do
    begin
      ZQuery1.ParamByName('Estado').AsString := 'No informado';
      ZQuery1.ParamByName('Numero').AsString := ZQuery1.fieldbyname('sierra').AsString;
      ZQuery1.ExecSQL;
      ZQuery1.Next;
    end;
CommitTransaccion;
    ZQuery4.Refresh;
  except
RollbackTransaccion;
    raise;
  end;

[[AgustinOrtu]]

Eso es pseudocódigo, revisa en el componente ZConnection si hay métodos para manejo de transacciones

[jonydread]

Gracias lo logre me funciono bien