[[duilioisola]]

Otra forma un poco más elegante:

Código Delphi [-]
   with frm_DataModule.qry_Alum_Calificacion do
   begin
      try
         {es la transaccion de frm_DataModule.qry_Alum_Calificacion, por el with}
         Transaction.StartTransaction; 
         Close;
         SQL.Clear;
         SQL.Add('UPDATE CALIFICACION set M01 ='+QuotedStr(Edit2.Text)+', ID_MATERIA1 = '+QuotedStr('No Esta Cursando'));
         SQL.Add('WHERE MATRICULA ='+QuotedStr(Label2.Caption));
         ExecSQL;
         Transaction.Commit;
      except
         Transaction.Rollback;
         MessageDlg('Ha ocurrido un error al modificar los datos.', mtError,[mbOk], 0);
      end;
   end; {with}