Ver Mensaje Individual
  #1  
Antiguo 17-07-2011
escorpionrojo43 escorpionrojo43 is offline
Miembro
 
Registrado: abr 2010
Posts: 89
Reputación: 15
escorpionrojo43 Va por buen camino
Insertar registros desde un query

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;
Responder Con Cita