Asignar propiedad radio en campo boolean

[radenf]

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.

[[Caral]]

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

[ecfisa]

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.

[radenf]

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

[radenf]

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
---------------------------

[ecfisa]

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.

[radenf]

No funciona.
Exploraré otras opciones.
Muchas gracias
Salu2

[radenf]

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.