Problemas con Locate

[Neftali [Germán.Estévez]]

¿Puedes poner el código que utilizas?

[Acker]

A ver, contestando a vuestras dos respuestas.

El motor de Base de Datos es Paradox, y el codigo que uso es:

procedure TFIdentificacion.BAceptarClick(Sender: TObject);
begin
DMBaseDeDatos.TUsuarios.Locate('nombreUsuario',EUsuario.Text,[])
end;
end.
Mi objetivo con él es que me diga si un usuario introducido por teclado esta o no en la base de datos

Gracias

[Neftali [Germán.Estévez]]

Prueba con éste:

Código Delphi [-]
  procedure TFIdentificacion.BAceptarClick(Sender: TObject);
 var
   b:Boolean;
  begin
 DMBaseDeDatos.TUsuarios.First; 
 b := DMBaseDeDatos.TUsuarios.Locate('nombreUsuario',
                                                      EUsuario.Text, [loCaseInsensitive])
 if (b) then
   MessageDlg('Encontrado', mtInformation, [mbOK], 0);
 end
 else begin
   MessageDlg('No Encontrado', mtError, [mbOK], 0);
 end;
 
  end;

[Acker]

Neftali, siento decirte que tampoco me funciona.
Me tiene esto bastante cabreado.
No podra ser de algo de configuracion del entorno? o del sistema operativo?
Es que como comente al principio del hilo, un proyecto que funciona en otra maquina, me falla a mi tambien por lo mismo.

Madre mia, que desesperacion!!! algo tan absurdo y que me haga perder tanto tiempo!

[Neftali [Germán.Estévez]]

¿Seguro que tienes un campo en esa tablas con ese mismo valor?

Revisa que no tenga espacios, caracteres extraños, acentos,...
¿No te encuentra ningun valor en esa tabla (ningun nombre de usuario) o sólo es uno el que te falla? ¿El resto de valores sí los encuentra?

[Acker]

Que va tio, no encuentra nada, y no tiene ni acentos, espacios ni nada. lo mas gracioso es que si en lugar de poner para que busque DBEUsuario.text pongo una cadana de caracteres si que me la encuentra (si esta) y no si no esta.

Raro, no???

[epuigdef]

Buenas!

Parece una tontería pero prueba esto:

String temp;

temp = trim(EUsuario.Text);
b := DMBaseDeDatos.TUsuarios.Locate('nombreUsuario',
temp, [loCaseInsensitive])
if (b) then
MessageDlg('Encontrado', mtInformation, [mbOK], 0);
end
else begin
MessageDlg('No Encontrado', mtError, [mbOK], 0);
end;



Un saludo

Edu