Insertar registros desde un query

[escorpionrojo43]

Saludos Amigos. como que estoy muy activo en estos dias.

Necesito insertar los registros en un query.
Con este codigo me actualiza solo el primer registro, pero lo que quiero es que el campo 'Disponible' se actualize al valor almacenado en campo 'limite' en todos los registros que traiga el query

mi codigo es este.

Código Delphi [-]
with dm.qry_Control_numero, sql do
    begin
      Close;
      Clear;
      Add('SELECT * FROM Num_Controlados');
      Add('WHERE loteria = '+ Quotedstr(inttostr(combobox1.ItemIndex)));
      open;
      if not eof then
      begin
        edit;
        FieldByName('Disponible').AsInteger  := FieldByName('Limite').AsInteger;
        post;
  //      showmessage('Los Controles de Numeros han sido Reiniciado');
      end;
    first;
    end;

[Casimiro Noteví]

¿Algo parecido a esto:?

Código Delphi [-]
dm.qry_control_numero.sql.text := 'update num_controlados set  disponible='+quotedstr(inttostr(combobox1.itemindex)))+
' where loteria='+sql.fieldbyname('limite').asstring;

[escorpionrojo43]

Originally Posted by Casimiro Notevi

¿Algo parecido a esto:?

Código Delphi [-]
dm.qry_control_numero.sql.text := 'update num_controlados set  disponible='+quotedstr(inttostr(combobox1.itemindex)))+
' where loteria='+sql.fieldbyname('limite').asstring;

Casimiro estoy probando lo que has puesto pero creo que no es lo que busco.
el query actual me trae los datos que necesito, el asunto es que a esos datos que me trae, quiero que el campo "disponible" se actualice con los datos que vinieron en campo "limite"

[escorpionrojo43]

Bueno Me auto respondo

el asunto es que tenia que pasar al siguiente registro lo hice cambiando el "if not eof then " por un "while not eof do" y un next despues de asignar el valor

Código Delphi [-]
    with dm.qry_Control_numero, sql do
    begin
      Close;
      Clear;
      Add('SELECT * FROM Num_Controlados');
      Add('WHERE loteria = '+ Quotedstr(inttostr(combobox1.ItemIndex)));
      open;
      while not eof do  // aqui
      begin
        edit;
        FieldByName('Disponible').AsInteger  := FieldByName('Limite').AsInteger;
        next;  // aqui
      end;
      showmessage('Los Controles de Numeros han sido Reiniciado');
      first;
    end;