Asignar propiedad radio en campo boolean
 

Hola amigos:

Tengo en una tabla de una base de datos Access un campo boolean (Sí/No) y necesito que al chequear uno de los registros en un DBGrid el resto de los registros automaticamente queden uncheked, similar a la propiedad radio de un radiogroup.
¿Es posible?
Utilizo D2007
Saludos y muchas gracias por sus aportes.

Hola
No entiendo la relacion del campo con lo demas ?.
Saludos

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.

Muchas gracias ecfisa .
Voy a probar y te cuento.
Saludos

Utilizé el siguiente código en el evento OnClick del CheckBox (Con False como default)

Código Delphi [-]
with QueryServ do
  begin
    Close;
    // Todos los campos en falso
    QueryServ.SQL.Text:= 'UPDATE Servidores SET ACTIVO = FALSE';
    ExecSql;
    // El campo deseado en true
    QueryServ.SQL.Text:= 'UPDATE Servidores SET ACTIVO = TRUE WHERE ID = :PID';
    QueryServ.Parameters.ParamByName('PID').Value:= serverbox.Checked; // Por ej: el actualmente seleccionado
    ExecSql;

y me entrega el siguiente error:

No se han especificado valores para algunos de los parámetros requeridos.
---------------------------
Aceptar
---------------------------

Hola radenf.

Como te dije anteriormente no manejo Access, pero en este [enlace] se trata un error parecido, y los masters Caral y egostar hacen unas observaciones interesantes al respecto. Tal vez te pueda ayudar a resolverlo.

Saludos. :)

No funciona.
Exploraré otras opciones.
Muchas gracias
Salu2

Finalmente logré lo que buscaba.
Utilizé el siguiente código en la propiedad OnCheckBoxChange del TMS AdvDBGrid, al hacer click en la primera columna, que corresponde a un campo booleano.

Código Delphi [-]
begin
if (ACol= 1) then
begin
QueryServ.Close;
QueryServ.SQL.Text:= 'Select * from Servidores';
QueryServ.SQL.Text:= 'UPDATE Servidores SET ACTIVO = FALSE';
QueryServ.ExecSql;
Data1.TablaServidores.Refresh;
DBAdvGrid3.Update;

Saludos y ojalá a alguien más le pueda servir.