Usuario Y Password Para Acceder A Una Aplicacion

[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...

[rrosariom]

Cuando lo uso asi:

form2.adoquery1.Parameters.ParamByName('usuario').AsString := dbedit1.Text;


me da el error de que el AsString no esta declarado (undeclared identified:AsString) , por en realidad lo reconoce como sigue:


form2.adoquery1.Parameters.ParamByName('usuario').value.AsString := dbedit1.Text;

porque no se le puede pasar ni el parambyname directamente al adoquery, debido a que lleva parameters primero (adoquery1.parameters.parambyname...)

Mientras en el caso del AsSring tampoco, puesto que primero hay que pasarle el .value.AsString...


Un Saludo,
Rolando.

[rrosariom]

Actualmente, teniendo el codigo como sigue:

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.Parameters.ParamByName('usuario').value.AsString := dbedit1.Text;
form2.adoquery1.Parameters.ParamByName('clave').Value.AsString := dbedit2.Text;
form2.adoquery1.Open;
form2.adoquery1.Last;
if form2.adoquery1.RecordCount <> 0
then
  form1.showmodal
else
  showmessage ('Usuario O PassWord Invalido');
  end;

me muestra el siguiente error:

Invalid variant operation

es bueno decir que este codigo compila bien, es cuando presiono el boton que me devuelve el error.

Un Saludo,
Rolando.

[leofuentes21]

hola a rrosariom prueva asi a ver k tal

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.Parameters.ParamByName('usuario').AsString := dbedit1.Text;
form2.adoquery1.Parameters.ParamByName('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;