como se trabaja con CheckBox1.Checked

[darkbits]

Hola a todo el club
estoy trabajando con CheckBox1 que me da un TRUE o FALSE
quiero guardar CheckBox1.Checked en una DB mysql, en mi DB lo declare el campo como tinyint o hay alguien que guarda true o false?

cuando quiero guardar me da error les coloc

Código SQL [-]
     _DM.consulta1.close;
     _DM.consulta1.SQL.Text:='INSERT INTO USUARIOS(nombre_usuario,estado_usuario) values ('+QuotedStr(edit1.text)+','+QuotedStr(CheckBox1.Checked)+')';
     _DM.consulta1.ExecSQL;
     _DM.tusuarios.Refresh;

me sale eso "there is no overloaded version Of 'QuotedStr' that can be called with these arguments" y me apunta al CheckBox1.Checked

agradesco sus respuesta.

[jhonny]

Siguiendo la manera en como lo estás haciendo y si usas una de las últimas versiones de Delphi, intenta:

Código Delphi [-]
   __DM.consulta1.close;
     _DM.consulta1.SQL.Text:='INSERT INTO USUARIOS(nombre_usuario,estado_usuario) values ('+QuotedStr(edit1.text)+','+QuotedStr(CheckBox1.Checked.ToString)+')';
     _DM.consulta1.ExecSQL;
     _DM.tusuarios.Refresh;

Si no:

Código Delphi [-]
  _DM.consulta1.close;
     _DM.consulta1.SQL.Text:='INSERT INTO USUARIOS(nombre_usuario,estado_usuario) values ('+QuotedStr(edit1.text)+','+QuotedStr(BoolToStr(CheckBox1.Checked))+')';
     _DM.consulta1.ExecSQL;
     _DM.tusuarios.Refresh;

[darkbits]

jhonny

estoy trabajando con DX 10
la primera opción me funciono de maravilla

me sale esto:
CheckBox1.Checked esta en TRUE me me guarda -1
CheckBox1.Checked esta en FALSE me me guarda 0

en la DB lo puse el campo type "Varchar" hay algun tipo que soporta 0 o 1 ? o true o false ?

[Casimiro Notevi]

En mysql creo que sí.

[[AgustinOrtu]]

Usa parametros y que los componentes se encargen de hacer el trabajo sucio de convertir el boolean a la representacion que le gusta a mysql

[darkbits]

cuando guardo esto QuotedStr(BoolToStr(CheckBox1.Checked))
si CheckBox1 esta en TRUE Guarda -1
si CheckBox1 esta en FALSE Guarda 0

no debería ser true 1 y false 0 ?
mi campo de DB lo puse varchar para no complicarme ya q no encontre alguien que guarde true o false o 1 o 0

[Casimiro Notevi]

Yo siempre uso 0/1
Mira si tu checkbox tiene alguna propiedad para los valore true y false.

[[AgustinOrtu]]

Empezado por darkbits

cuando guardo esto QuotedStr(BoolToStr(CheckBox1.Checked))
si CheckBox1 esta en TRUE Guarda -1
si CheckBox1 esta en FALSE Guarda 0

no debería ser true 1 y false 0 ?
mi campo de DB lo puse varchar para no complicarme ya q no encontre alguien que guarde true o false o 1 o 0

Supongo que será por la representacion binaria a bajo nivel

El tipo Boolean esta representado internamente como un byte:

False = 00000000 binario = 0 decimal
True = 11111111 binario = -1 decimal

El primer bit indica signo (1 negativo, 0 positivo)

[darkbits]

hay alguna forma que el CheckBox me de directamente:

true= 1
false= 0

configurando alguna propiedad?

[[AgustinOrtu]]

Olvidate del Checkbox, estas trabajando con el tipo Boolean

El problema no es el tipo Boolean. El problema es que en la base le pusiste varchar

Si buscas en la documentacion, a partir de determinada version introdujeron el tipo BIT que es un alias de TINYINT(1). Dentro de los TINYINT, el valor 0 es considerado False, el resto son True

Luego, desde Delphi, no tiene porque importarte como MYSQL maneja el tipo Boolean

Usa parametros en tus consultas y comandos sql

Código Delphi [-]
var
  qry: TADOQuery;
begin
  qry := TADOQuery.Create(NIL);
  try
   // grabar en la BD
   qry.SQL.Text := 'INSERT INTO Tabla (Flag) VALUES (:Flag) ';
   qry.Parameters.ParamByName('Flag').DataType := ftBoolean;
   qry.Parameters.ParamByName('Flag').Value := CheckBox1.Checked;

   // recuperar valor
   qry.SQL.Text := 'SELECT * FROM Tabla';
   qry.Open;
   CheckBox1.Checked := qry.FieldByName('Flag').AsBoolean;     
  finally
    qry.Free;
  end;
end;

[Casimiro Notevi]

El dbcheckbox sí que lo tiene.
Pero creo que te estás complicando mucho, o quizás no entiendo qué estás haciendo.
Para conseguir uno o cero es simple:

Código Delphi [-]
if elcheckbox.checked then iVariable=1 else iVariable=0;

[[AgustinOrtu]]

Me falto el ejemplo de filtrar:

Código Delphi [-]
  qry.SQL.Text := 'SELECT * FROM Tabla WHERE Flag = :Flag';
  qry.Parameters.ParamByName('Flag').DataType := ftBoolean;
  qry.Parameters.ParamByName('Flag').Value := Checkbox1.Checked;
  qry.Open;

[darkbits]

solucionado

utilice los 3 últimos ejemplos del post y si funciona mil gracias Casimiro, agustin y jhony

[ecfisa]

Hola.

Empezado por darkbits

hay alguna forma que el CheckBox me de directamente:

true= 1
false= 0

configurando alguna propiedad?

Para obtener el valor entero (0/1) desde un TCheckBox:

Código Delphi [-]
   valor := Integer(tuCheckBox.Checked);

Sin embargo, creo que el componente mas adecuado para manejar la entrada de datos no es el TCheckBox sino el TDBCheckBox. A él podes asociar directamente la columna en cuestión y tiene las propiedades ValueChecked y ValueUncheck en las que podes definir el tipo de dato resultante.

Saludos