problemas con ibdataset1.parambyname en ibx

[anubis]

Hola,
por mas que hago pruebas y reviso no soy capaz de saber el por qué no funciona esto:

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

cuando lo ejecuto, me dice que nick4 no existe.
Leyendo y buscando sobre los componentes ibx, recomiendan no usar los ibtable ni los ibquery porque son para migracion, lo mas recomendable es usar los ibdataset. Pues bien, teniendo en cuenta, como sabeis, que estaba acostumbrado a los zeos y no he tenido problemas con ellos, ni con lo que escribi antes, no entiendo porque aqui no me deja pasar el parametro si es lo mismo que estuve haciendo con zeos y lo mismo que poneis en otros post.
Cerrar, limpiar, asignar el sql, el parametro y finalmente abrir.

nose la verdad

gracias

[ecfisa]

Hola anubis.

Código Delphi [-]
function tfagregausuario.verificarnick:byte;
begin
  
{ **  las líneas siguientes son innecesarias **
  ibdataset1.SelectSQL.clear;
  ibdataset1.selectSQL.Text:='select * from usuarios';
  ibdataset1.open;
}
 
  // quedaría:
  ibdataset1.Close;
  ibdataset1.selectSQL.Text := 'select * from usuarios where nick = :nick4';
  ibdataset1.ParamByName('nick4').value := lowercase(Trim(enick.Text)); //(*)
  ibdataset1.open;
end;

(*) La función Trim quitará espacios indeseados. Asegurate que los valores de la columna nick estén almacenados en minúsculas o no hallará coincidencias.

Saludos

[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, puedo poner lo que sea que dice que no existe.

Los valores que comentas que son innecesarios los pongo para poder volver a asignar seleccionar todos los registros y poder realizar otro filtro.

[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