Ver Mensaje Individual
  #3  
Antiguo 29-11-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola radenf.

No conozco la sintáxis de Access, pero proba de este modo:
Código Delphi [-]
 with QryTmp do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE TABLA SET CPO_BOOLEAN = (');
    SQL.Add('CASE WHEN (ID = :PID) THEN TRUE ELSE FALSE END)');
    ParamByName('PID').Value:= tuValor_ID; // Por ej: el actualmente seleccionado
    ExecSQL;
  end;

Si no soporta el modo anterior, de este tendría que funcionar:
Código Delphi [-]
  with QryTmp do
  begin
    Close;
    // Todos los campos en falso
    SQL.Text:= 'UPDATE TABLA SET CPO_BOOLEAN = FALSE';
    ExecSql;
    // El campo deseado en true
    SQL.Text:= 'UPDATE ATABLA SET CPO_BOOLEAN = TRUE WHERE ID = :PID';
    ParamByName('PID').AsString:= tuValor_ID; // Por ej: el actualmente seleccionado
    ExecSql;
  end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita