Ver Mensaje Individual
  #5  
Antiguo 05-09-2016
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Reputación: 19
Angel.Matilla Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
¿Dónde está el update?
En el código, al final:
Código:
void __fastcall TfAboRec::DBGrid1CellClick(TColumn *Column)
{
     int nValor;

     if (Column->FieldName == "SELECCION")
     {
          nValor = Column->Field->AsInteger;

          fPersona->tTemp->Edit();
          fPersona->tTemp->FieldValues[Column->FieldName] = !nValor;
          fPersona->tTemp->Post();
     }
}
//---------------------------------------------------------------------------
Después de haber subido el mensaje hice otra prueba distinta con este otro código:
Código:
void __fastcall TfAboRec::DBGrid1CellClick(TColumn *Column)
{
     int nCodigo, nValor;

     if (Column->FieldName == "SELECCION")
     {
          nValor = Column->Field->AsInteger;
          nCodigo = DBGrid1->Columns->Items[4]->Field->Value;

          Query->Close();
          Query->SQL->Text = "UPDATE " + cTabTemp + " SET Seleccion = :Seleccion WHERE Codigo = :Codigo";
          Query->ParamByName("Seleccion")->AsInteger = nValor == 0 ? 1 : 0;
          Query->ParamByName("Codigo")->AsInteger    = nCodigo;
          try
          {
               Query->ExecSQL();
               Query->Transaction->Commit();
          }
          catch(...)
          {
          }
     }
}
//---------------------------------------------------------------------------
Y sí, así me actualizó la tabla... pero ¡me dejó vacío el DBGrid!
Responder Con Cita