Usuario Y Password Para Acceder A Una Aplicacion

[oesqueda]

Porque no les gusta usar parametros como debe ser, jejejejeje.

ahi te va:

En tu ADOQUERY pon esta sentencia SQL:

Código SQL [-]
select ID FROM DBA_USERS where username = :NombreUsuario or password = :ClaveUsuario

Me imagino que manejas un campo ID o identificador.

Código Delphi [-]
form2.dbedit1.Clear; form2.adoquery1.Close; form2.adoquery1.ParamByName('NombreUsuario').AsString := dbedit1.Text; form2.adoquery1.ParamByName('ClaveUsuario').AsString := dbedit2.Text; form2.adoquery1.Open; if not form2.adoquery1.fieldbyname('ID').isnull then   form1.showmodal else   showmessage ('Usuario O PassWord Invalido');

Otra forma:

Código Delphi [-]
form2.adoquery1.Open; if form2.adoquery1.recordcount <> 0 then   form1.showmodal else   showmessage ('Usuario O PassWord Invalido');

Porque dependiendo tu propiedad cursortype es si devuelve todos los registros.
Bueno no siempre, pero si tienes registros devuelve -1 o los registros.
Si no tienes siempre devuelve 0 (CERO)

Y te doy un par de consejitos

1. Cambia el nombre de tus componentes: adoquery1 a aqyExisteUsuario
2. NO uses el adoquery usa el adodataset o el adocommand es mejor
3. si vas a usar el adoquery1 para otra consulta, mejor pon otro componente o crealo en tiempo de ejecucion.
4. Usa Datamodules te va a hacer la vida mas facil.

Saludos

[rrosariom]

Buenas Noche,

Lo hice como me dijiste y me da el mismo error.

Aqui algunas sentencias con modificaciones:

Código Delphi [-]
form2.dbedit1.Clear;
form2.adoquery1.Close;
form2.adoquery1.sql.Clear;
form2.adoquery1.SQL.Add('select username,password FROM DBA_USERS');
form2.adoquery1.SQL.Add('where username := NombreUsuario');
form2.adoquery1.SQL.Add('or password  := ClaveUsuario');
form2.adoquery1.Parameters.ParamByName('NombreUsuario').Value := dbedit1.Text;
form2.adoquery1.Parameters.ParamByName('ClaveUsuario').Value := dbedit2.Text;
form2.adoquery1.Open;
form2.adoquery1.Last; //En algunos componentes, si no "navegas" hasta el ultimo registro, la propiedad RecordCount devuelve resultados erróneos
if form2.adoquery1.RecordCount > 0
then
  form1.showmodal
else
  showmessage ('Usuario O PassWord Invalido');


=======================================================================================


form2.Adoquery1.Close;
form2.Adoquery1.Sql.Clear;
form2.Adoquery1.Sql.Add('Select * from dba_users');
form2.Adoquery1.Sql.Add('Where Username = '+QuotedStr(dbEdit1.Text));
form2.Adoquery1.Sql.Add('or password = '+QuotedStr(dbEdit1.Text));
form2.Adoquery1.Open;
form2.adoquery1.Last; 
if not form2.adoquery1.fieldbyname('username').isnull then
form1.showmodal
else
 showmessage ('Usuario O PassWord Invalido');

Espero tu ayuda nuevamente.

Bye,
Rolando.

[rrosariom]

Olvide decirte que las sentencias que le envie es para que me ayude a analizarla, ya que el error continua

Gracias,
Rolando.

[defcon1_es]

No contestaste a mis 2 preguntas:

¿Has probado a ejecutar la consulta directamente sobre la bd de oracle, sin ADO de por medio?

¿devuelve los registros que esperas?

Supongo que esto será un error tuyo de transcripción:

Código Delphi [-]
form2.adoquery1.SQL.Add('where username := NombreUsuario');
form2.adoquery1.SQL.Add('or password  := ClaveUsuario');

debe ser asi:

Código Delphi [-]
form2.adoquery1.SQL.Add('where username = :NombreUsuario');
form2.adoquery1.SQL.Add('or password = :ClaveUsuario');

[rrosariom]

Claro, eso lo hice antes de enviar el error antes de anoche. hice una consulta directamente a la base de datos, usando sqlplus y me devolvió el registro.

en cuanto a lo otro, cuando lo hago form2.adoquery1.SQL.Add('where username = :NombreUsuario'); entonces me da error.

Un Saludo,
Rolando.

[Casimiro Noteví]

Hola rrosariom, recuerda que para contestar a un mensaje aquí, debes pulsar en el botón que está justo ahí abajo a la izquierda, el que pone "Responder", es que has enviado la contestación al email de contactos de clubdelphi.
Es sólo para que lo tengas en cuenta, gracias

[rrosariom]

este es el codigo que tengo actualmente:

Código Delphi [-]
 form2.adoquery1.Close;
form2.adoquery1.sql.Clear;
form2.adoquery1.SQL.Add('select username,password FROM DBA_USERS');
form2.adoquery1.SQL.Add('where username = :usuario');
form2.adoquery1.SQL.Add('or password = :clave');
form2.adoquery1.FieldByName('usuario').AsString := dbedit1.Text;
form2.adoquery1.FieldByName('clave').AsString := dbedit2.Text;
form2.adoquery1.Open;
form2.adoquery1.Last;
if form2.adoquery1.RecordCount <> 0
then
  form1.showmodal
else
  showmessage ('Usuario O PassWord Invalido');
  end;

y me presenta el siguiente error:

AdoQuery1:Field'usuario' not found'


Me faltara declarar algo?

[[maeyanes]]

Hola...

El error es que estás usando FieldByName cuando deberías usar ParamByName.


Saludos...