34 respuestas en este tema

[dooper]

Como hacer correctamente, si enredar innecesariamente el código con sentencias que sobran.

Como dispongo de un formulario de entrada de datos, si en este hay dos RadioButtons "hombre" y "mujer"

Preparo los datos para grabarlos:

php

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
 
  ZQuery2.SQL.Text := 'INSERT INTO "personas" (nombre, edad, sexo) VALUES (:nombre, :edad, :sexo)';
  ZQuery2.ParamByName('nombre').AsString:= form3.edit1.text;
  ZQuery2.ParamByName('edad').AsString:= StrToInt(form3.edit2.text);
 
  // Aquí viene el problema, ya que el usuario puede cambiar con un click entre los dos radiobutton 
  // tantas veces antes de grabarse en la base de datos
  ZQuery2.ParamByName('sexo').AsString:= 'hombre' ó 'mujer' según radiobutton pulsado.
 
  Try
      ZQuery2.ExecSQL;
      except
 
  end;
 
end;
 
// Involuntariamente, lo pensé resolver de esta manera, pero veo que no me sirve, ya que una vez
// preparado todo los campos, estos al pulsar BitBtn1Click se graban en la base de datos. Pero me
// da error en base de datos.
 
If (form3.RadioButton1.checked) then
  begin
       ZQuery2.ParamByName('sexo').AsString:='hombre';
       form3.RadioButton2.checked:=FALSE;
  end
  else
  begin
       ZQuery2.ParamByName('sexo').AsString:='No';
       form3.RadioButton1.checked:=FALSE;
  end;

Pienso que debo usar los eventos "OnClick" de los radiobutton para cargar el Zquery2.ParamByName('sexo') según sea el radiobutton pulsado, o quizás hay alguna opción más "limpia" y rápida.

 

Un saludo

[enecumene]

Utiliza TRadioGroup, agrega los items Hombre y Mujer, una por línea, declara una variable global del tipo string, llámalo sexo:

delphi

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    Sexo: String; //también puede estar en private
  end;

En el evento OnClick de RadioGroup haces esto:

delphi

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup.ItemIndex of
    0: Sexo := 'Hombre';
    1: Sexo := 'Mujer';
  end;
end;

Nada más queda poner:

delphi

ZQuery2.ParamByName('sexo').AsString := Sexo;

Saludos.

[dooper]

Gracias como siempre enecumene. Veo que iba mal encaminado...

 

Entiendo que declaras la variable "sexo"  a nivel global, porque esa variable "debe" salir del procedimiento OnClick de RadioGroup ya que

Zquery2.ParamByname('sexo').AsString:=sexo; está ubicado en otro procedimiento BitBtn1click.

 

Ese "public" que indicas a que form pertenecería?

 

Un saludo

[enecumene]

Se supone que en el form actual.

[dooper]

Ok enecumene. A ver si va todo ok! ya comentaré...

 

Acabo de probar, y es imposible grabar en la base de datos la variable "sexo". Revisado todos los campos en (CREATE, INSERT etc...) y siempre entro por el EXCEPT dando aviso de error.

 

Se que es por este campo "sexo" ya que si lo anulo y no lo inserto en la base de datos, se graba perfectamente el registro entero apareciendo en pantalla. 

 

Me están dando muchos problemas los campos a la hora de grabar en la base datos, por eso voy uno a uno creando campos nuevos para ir controlando la insercción.

 

 

saludos

[Agustin Ortu]

No esta bueno tener esa variable global

 

En realidad tu problema se puede solucionar asi:

delphi

qry.ParamByName('Sexo').AsString := RadioButton1.Items[RadioButton1.ItemIndex];

Pero lo mejor es tener una funcion que retorne ese valor:

delphi

type
  TForm1 = class(TForm)
  ...
  private
    function GetSexoSeleccionado: string;
  end;
 
implementation
 
function TForm1.GetSexoSeleccionado: string;
begin
  Result := RadioButton1.Items[RadioButton1.ItemIndex];
end;

Y luego para asignar el parametro:

delphi

qry.ParamByName('Sexo').AsString := GetSexoSeleccionado;

Lo bueno de la segunda alternativa, ademas de que el codigo es mas legible, es que si cambias el componente TRadioButton por otra cosa, solamente tenes que modificar la funcion GetSexoSelccionado para que siga retornando el string.

 

Asi parece trivial y tonto, pero si tenes el codigo de arriba de todo repartido en varias partes, se torna muy tedioso...

[dooper]

Probaré tambien Agustin_ortu como indicas, pero estoy algo cansado, con los problemas de grabación de los campos en la base de datos. Result como variable donde la declaro en "public"?

 

pero en tu codigo no aprecio referencia al RadioGroup1, debería sustituir RadioButton1 que tu indicas por RadioGroup1.

[Agustin Ortu]

Me equivoque, es RadioGroup1

 

Result es una variable implicita en todas las function, no se declara

[dooper]

Me dí cuenta que Result, no es necesario, cierto!

 

Me da error de "List index (-1) out of bounds", creo que es por orden de los radiobuttons, pero cada uno tiene por orden el (0) y el otro (1).

 

Además en la variable Result guardaría "hombre" o "mujer" según click del los radibuttons? porque no veo que le pasemos el

string por ninguna parte.

 

 

Un saludo

[Agustin Ortu]

En realidad he asumido que el ItemIndex no deberia ser nunca -1

 

Cuando no hay nada seleccionado, ItemIndex vale -1 y ese es el problema

[enecumene]

Se me olvidó comentar que debes inicializar la variable Sexo, pero Agustín te ha dado una solución más simple en una sóla línea.

[dooper]

En realidad he asumido que el ItemIndex no deberia ser nunca -1

 

Cuando no hay nada seleccionado, ItemIndex vale -1 y ese es el problema

 

Por defecto tengo a checked el radiobutton1 cuando arranca el proyecto, lo cual si hay algo seleccionado por defecto, luego puedo cambiar.

 

Si voy al componente TRadioGroup1 en la propiedad itemIndex = -1, será ese el problema, que puede cambiar? pero claro en la función

 

Result := RadioGroup1.Items[radioGroup1.ItemIndex]; como diferencia entre "hombre y "mujer"?

 

Nota: RadioButton1 y RadioButton2 están dentro del componente RadioGroup1.

 

El problema parece resuelto, pero seguimos sin grabar el string "hombre" o "mujer" en la base de datos. El problema del radioGroup1 era que este componente y no lo sabía, no es necesario insertar un componente radiobutton, sino que en la propiedad items del propio RadioGroup, ya puedo crear tantos como uno quiera. Vaya mi ingnorancia!

 

Pero, seguimos con no poder grabar el string una vez seleccionado, es como si todo lo que no sea entrada por TEdit.text no se grabara correctamente. Imprimo la variable "sexo" que me devuelve la función y sí aparece "hombre" o "mujer".He asignador directamente para probar:

php

ZQuery2.ParamByName('sexo').AsString:='hombre'; // y tampoco me graba, error base datos.

[enecumene]

Imprime la consulta antes de execsql:

Showmessage(ZQuery.SQL.text);

Y fíjate si la consulta es correcta.

[dooper]

Imprime la consulta antes de execsql:

Showmessage(ZQuery.SQL.text);

Y fíjate si la consulta es correcta.

 

Pues me indica correcto: INSERT INTO "personas" (nombre, edad, sexo) VALUES (:nombre, :edad, :sexo);

Si elimino el campo "sexo" de la base de datos y grabo datos estos se graban bien con un Tedit.text. Incluyo añadiendo más campos a la estructura me graba, pero con el campo a elegir del RadioGroup1 nada.

 

Algun problema de estructura de la base de datos debe ser porque, sino otra cosa no la comprendo!.

 

 

Un saludo

[enecumene]

mmm, veamos, coloca un ZQuery2.prepare antes del ExecSQL.

[Agustin Ortu]

La bola de cristal también me da error

No nos sirve de nada que nos digas 'me da error', es imposible ayudarte

Antes de saber programar es imperativo que aprendas a realizar buenas preguntas. Es una habilidad que te va a servir para muchas cosas en la vida

Debes proveer todo el contexto:

Cual es el error? Copia y pega la clase y el texto de la excepción

Cual es el código que produce problemas? En qué línea se produce el error?

En este caso, cual es la definición de la tabla? De que tipo es el campo sexo?

Estas complemente seguro de que el campo sexo existe en la tabla? Si muestras la tabla en un dbgrid con select *, se ve el campo sexo?

[dooper]

Cual es el error? Copia y pega la clase y el texto de la excepción

"El proyecto ha lanzado una excepción 'EZSQLExcepción' con el mensaje SQLError: SQL logic erroror missing database"
El archivo 'source\dbc\ZDbcSqliteUtils.pas en linea 250.

Linea 250: raise EZSQLException.CreatewithCode, Format (SSQLError1,[ConSettings.ConvFuncs.ZRawToString(Error,ConSetting^.ClientCodePage^.CP, Consetting^.CTRL.CP]));

DataModule1.ZQuery2.SQL.Text := 'INSERT INTO "personas" (nombre, edad, sexo) VALUES (:nombre, :edad, :sexo)';

delphi

Datamodule1.ZQuery2.ParamByName('nombre').AsString:= form3.edit1.text;
Datamodule1.ZQuery2.ParamByName('edad').Integer:=StrToInt(form3.edit2.text);
showmessage(GetsexoSeleccionado);
Datamodule1.ZQuery2.ParamByName('sexo').AsString:='hombre'; //Si elimino el campo 'sexo' graba perfectamente el registro.
Try
DataModule1.ZQuery2.ExecSQL;
except
  on E:Exception do // siempre entra por aquí.
  begin
    ShowMessage('El nombre de la persona está duplicado!: '+E.Message); //E.ClassName 
end;
end;

Definición de la tabla:

delphi

ZQuery1.SQL.Text := 'CREATE TABLE IF NOT EXISTS "personas" ("nombre" varchar(10) PRIMARY KEY, "edad" integer, "sexo" varchar(6))';

 

Estas complemente seguro de que el campo sexo existe en la tabla? Si muestras la tabla en un dbgrid con select *, se ve el campo sexo?

Sí se ve la columna del campo "sexo", lo que no, porque es obvio, al no poder grabarse, no aparece el
registro ni los campos.

[dooper]

mmm, veamos, coloca un ZQuery2.prepare antes del ExecSQL.

 

Nada enecumene, no admite grabar el registro!

[enecumene]

Acabo de crear un demo y no logro replicar tu problema, coloco los fuentes y revisa detenidamente.

 

 dooper.png   8,38KB   0 descargas
 

Saludos.

Archivos adjuntos

•  proyecto dooper.rar   995,95KB   1 descargas

[Delphius]

De la última muestra de código observo lo siguiente:

1. Al parámetro edad en lugar de invocar a un .AsInteger (como se esperaría y debe ser) figura un .Integer. Que yo recuerde no existe .Integer

2. Podríamos asumir que tienes bien declarada e implementada la función GetSexoSeleccionado, pero como preguntabas por donde debería figurar la variable global y, de de donde sale la variable "result" ya estoy en dudas. ¿En que form la declaraste? ¿En el propio form en donde se la está usando? ¿En otro? Dependiendo de ello, deberá declararse en Uses la unidad del form y por tanto cabría la posibilidad de que deba invocarse así: ElForm.GetSexoSeleccionado.

 

El que preguntes que es ese result me hace pensar y dudar si tienes los conocimientos para comprender que es una función y que es un procedimiento. Conocimientos indispensables y básicos. Son los pilares en que descansa el paradigma estructurado y por extensión a POO.

 

3. De todas formas, sea de donde sea que estés obteniendo el sexo, al final al parámetro sexo le estás pasando siempre lo mismo: 'hombre'

 

Saludos,