Ver Mensaje Individual
  #38  
Antiguo 10-02-2010
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 27
Caral Va por buen camino
Hola
El arreglo de Caro es correcto, aun asi el close entre cada update es innecesario ya que se usa TEXT y no ADD.
El cerrar y abrir la tabla si es correcto para actualizar el dbgrid.
Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
Query1.First;
   while not Query1.Eof do
   begin
   // recorre la tabla y hace el update
   //  QTemp.Close;
     QTemp.SQL.Text := 'Update tabla1 set TNotas = '+Query1.fieldbyname('ANotas').AsString+' where Nombres = '+QuotedStr(Query1.fieldbyname('Nombres').AsString);
     QTemp.ExecSQL;

   //  QTemp.Close;
     QTemp.SQL.Text := 'Update tabla1 set TPract = '+Query1.fieldbyname('Apract').AsString+' where Nombres = '+QuotedStr(Query1.fieldbyname('Nombres').AsString);
     QTemp.ExecSQL;

   //  QTemp.Close;
     QTemp.SQL.Text := 'Update tabla1 set TGeneral = '+Query1.fieldbyname('Ageneral').AsString+' where Nombres = '+QuotedStr(Query1.fieldbyname('Nombres').AsString);
     QTemp.ExecSQL;

     Query1.Next;
    end;

    //Actualizamos la consulta
    Query1.Close;
    Query1.Open;
end;
No entiendo cual es el problema, lo unico que siempre encuentro es que los campos no coinciden y las consultas AS las nombras como campos de la tabla.
Saludos
__________________
Siempre Novato
Responder Con Cita