Usuario Y Password Para Acceder A Una Aplicacion

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

[oesqueda]

Fe de erratas

Código Delphi [-]
form2.adoquery1.Parameters.ParamByName('usuario').Value := dbedit1.Text; form2.adoquery1.Parameters.ParamByName('clave').Value := dbedit2.Text; form2.adoquery1.Open; if form2.adoquery1.RecordCount <> 0 then   form1.showmodal else   showmessage ('Usuario O PassWord Invalido');

Es .VALUE

[rrosariom]

Me continua dando error.

Lo que no quiero es tener que utilizar la mala practica de utilizar este procedimeinto por codigo. Queria hacerlo, donde se pudiera dar mantenimiento de usuarios, es decir, crear, modificar, eliminar o bloquear, y que al acceder solo era cuestion de una consulta, y si el registro existe (es decir el usuario) entonces cargue un menu principal, y que segun su perfil, entonces se le habilite o habiliten las opciones del menu que debe utilizar.

Pero se ha complicado, algo que no se ve dificil, pero bueno, continuamos en la noche, tengo que irme a trabajar ahora. De todas formas, si usted pudiera hacer una prueba con esto, y ver si es que falta algo mas.


Un Saludo,
Rolando.