problemas con ibdataset1.parambyname en ibx

[ecfisa]

Hola anubis.

Empezado por anubis

Gracias por contestar de nuevo .

si eso me queda claro, lo que no me cuentra es nick4 que esta en parambyname, dice que no existe el campo.

Según tu código inicial, el nombre del campo es nick y el nombre del parámetro es nick4 por lo que el código del mensaje #2,

Código Delphi [-]
  ibdataset1.Close;
  ibdataset1.selectSQL.Text := 'select * from usuarios where nick = :nick4';
  ibdataset1.ParamByName('nick4').value := lowercase(Trim(enick.Text)); //(*)
  ibdataset1.open;

no tendría que dar ese tipo de error...

¿ Cuál es "literalmente" el error que te muestra ? (copia/pega)

Saludos

[anubis]

Field "nick4" not found

A la hora ejecutar el programa, cuando vuelvo a poner otro usuario, ya me sale ese error.

Al quitar inicialmente las lineas que dices que no son necesarias, el programa me lo ejecuta normal de primera vez, me busca el usuario, al poner otro usuario y pasar por el mismo sitio, ya me salta el error.

[ecfisa]

Hola.

Suena como que hay residuos en la cadena, pero eso no debería pasar usando la propiedad Text ya que sobreescribe lo anterior.

¿ Estas usando el método Add de este modo ?

Código Delphi [-]
  ibdataset1.Close;
  ibdataset1.selectSQL.Add('select * from usuarios where nick = :nick4');

Saludos

[anubis]

No la verdad no, es como te lo he mostrado, con selectsql.text no con add.

[ecfisa]

Que extraño...

¿ Podrías copiar/pegar las líneas que ejecutas cada vez que ingresas un usuario ?

Saludos

[anubis]

Código Delphi [-]
function tfagregausuario.verificarnick:byte;
begin
ibdataset1.Close;
ibdataset1.selectSQL.text:='select * from usuarios where nick = :nick4';
ibdataset1.ParamByName('nick4').value:=lowercase(trim(enick.Text));
ibdataset1.Open;

if (ibdataset1.IsEmpty) then
begin
end
else
showmessage('el usuario existe');
end;

Esa es la funcion y este es el procedimiento

Código Delphi [-]
procedure TFagregausuario.enickKeyPress(Sender: TObject; var Key: char);
begin

if not (key in ['A'..'Z','a'..'z',#7,#8, #13]) then
key:=#0
else
  if (key=#13) and (enick.text<>'') then
  begin
   verificarnick;
   end;

No hay mas, cada vez que escribo en text1.text y pulso enter, se va a verificar si el usuario existe.
De primera vez si lo hace bien, de segunda vez, sin cerrar el programa, ya me aparece que nick4 not found.

Efectivamente, faltaba poner en la funcion algo como esto:

Código Delphi [-]
ibdataset1.Close;
ibdataset1.SelectSQL.text:='select * from usuarios';
ibdataset1.open;

Para que de la segunda vuelta empiece de nuevo con el select de todos los usuarios, pero poniendolo al principio o al final de la funcion, me da el error antes o despues.

[ecfisa]

Hola de nuevo.

Me quedé pensando de donde podría venir ese error y me acordé de algo... ¿ Por casualidad cuando creaste la tabla hiciste parecido a esto ?

Código SQL [-]
CREATE TABLE USUARIOS (
    ID          INTEGER,
    "Nick"      VARCHAR(20), /* <- el nombre en esta línea */
    ...
);

¿ Haciendo que el nombre de la columna contenga mayúsculas y minúsculas ? De ser así, podría aparecerte ese mensaje.

Ejecuta esta línea desde tu gestor (IBExpert, Flamerobin, etc),

Código SQL [-]
ALTER TABLE USUARIOS ALTER COLUMN "Nick" TO NICK;  /* (1) */

aplica commit y luego intenta nuevamente desde Delphi.

(1) Donde Nick deberá ser exáctamente el nombre dado al campo (respetando mayúsculas y minúsculas en su órden).

Saludos