Buen Dia

[[Caral]]

Hola
Veamos el problema aca:

Código Delphi [-]
procedure TFrmIngreso.BtnAceptarClick(Sender: TObject);
var a: String;
begin
QryUsuario.SQL.Text:='select * from usuario where Nombre=:P1 and Clave=:P2 and Rol:=P3';
QryUsuario.Params[1].AsString:=EdtNombre.Text;
QryUsuario.Params[2].AsString:=EdtClave.Text;
if(RgRol.ItemIndex=0) then
begin
a:='operador';
QryUsuario.Params[3].AsString:=a;
end
else
begin
a:='administrador';
QryUsuario.Params[3].AsString:=a;
end;
if(QryUsuario.RecordCount>0) then
begin
ShowMessage('INFORMACION CORRECTA')
end
else
ShowMessage('INFORMACION INCORRECTA');
end;

Veamos que el parametro Rol esta mal escrito:

Rol:=P3';

Veamos que dice el mensaje:

List index out of bounds (3).

Veamos como van los archivos o registros de una tabla.
Nombre = 0
Clave = 1
Rol = 2.

Ahora veamos la logica de mensaje:
HEYYYY amigo, DONDE ESTA EL REGISTRO 3 ??????

Comprendes?
Usemos la logica, si no, no vamos a entender a Delphi.
Saludos

[sdiaz1983]

ok ya te entendi, como te dije soy novato en delphi, te agradezco tu ayuda voy a mirar haber que sale y cualquier cosa te aviso listo.

Gracias

[[Caral]]

Hola
Me parece muy bien, ahora una guia mas:
Primero la consulta seria asi:

Código Delphi [-]
QryUsuario.SQL.Text:='select * from usuario where Nombre = :P1 and Clave = :P2 and Rol= :P3';
QryUsuario.Params[0].AsString:=EdtNombre.Text;
QryUsuario.Params[1].AsString:=EdtClave.Text;

Los parametros empezarian desde 0, lo ves?
Tenemos tres parametros, verdad?, pero solo tengo dos referencias a los mismos, verdad?.
De donde saco la tercera referencia, osea el parámetro ROL, donde esta?.
Saludos

[sdiaz1983]

Código Delphi [-]
procedure TFrmIngreso.BtnAceptarClick(Sender: TObject);
var a: String;
begin
QryUsuario.Active:=True;
TblUsuario.Active:=True;
QryUsuario.SQL.Text:='select * from usuario where Nombre=:P0 and Clave=:P1 and Rol:=P2';
QryUsuario.Params[0].AsString:=EdtNombre.Text;
QryUsuario.Params[1].AsString:=EdtClave.Text;
if(RgRol.ItemIndex=0) then
  begin
  a:='operador';
  QryUsuario.Params[2].AsString:=a;
  end
else
  begin
  a:='administrador';
  QryUsuario.Params[2].AsString:=a;
  end;
QryUsuario.ExecSQL;
if(QryUsuario.RecordCount>0) then
  begin
  ShowMessage('INFORMACION CORRECTA')
  end
else
ShowMessage('INFORMACION INCORRECTA');
end;
end.

Hice las correcciones de los parámetros, pero ahora que lo ejecuto me bota la siguiente excpeción

QryUsuario: No Sql Statement available

A que se debra, que tengo que corregir del codigo de nuevo????

Mil Gracias por su atencion y perdone la molestia.

[sdiaz1983]

El parametro tres esta en esta parte:

Código Delphi [-]
if(RgRol.ItemIndex=0) then
  begin
  a:='operador';
  QryUsuario.Params[2].AsString:=a;
  end
else
  begin
  a:='administrador';
  QryUsuario.Params[2].AsString:=a;
  end;

Lo que hago es validar la propiedad ItemIndex del RadioGroup si es 0 me guarde en la variable a que he definido previamente una palabra y esa sea la que consult een al base de datos, pero la verdad no se si me quedo bien, no habia leido la cita tuya de arriba de que en la consulta empezaban los parametros p1,p2,p3 ya le hice esta modificacion o sea asi:

Código Delphi [-]
QryUsuario.SQL.Text:='select * from usuario where Nombre=:P1 and Clave=:P2 and Rol:=P3';

Pero aun me bot ael error que dije anteriormente

Una vez mas mil gracias por tu ayuda.

[[Caral]]

Hola
Te lo puedo decir, pero te voy a poner a pensar un poco.
Piensa en esto:
Primero: creo la consulta.
Segundo: coloco los parametros que especifico en la consulta.
Tercero: Abro o ACTIVO el query.

Lo tienes asi????
Verdad que no.
Revisalo y me dices si no lo ves.
Saludos

[sdiaz1983]

Si tiene razon en eso, gracias por su paciencia, ya modifque eso.

Tengo un problema con respecto la validacion del dato de rol, el programa no lo esta validando, dice que no lo encuentra porque sera?????, que tengo que corregir

gracias una vez mas

[[Caral]]

Hola
Parametros?????
Si tengo tres y solo pongo dos la consulta me enviara dos.

Código Delphi [-]
procedure TFrmIngreso.BtnAceptarClick(Sender: TObject);
var a: String;
begin
TblUsuario.Active:=True;
QryUsuario.SQL.Text:='select * from usuario where Nombre=:P0 and Clave=:P1 and Rol=:P2';
QryUsuario.Params[0].AsString:=EdtNombre.Text;
QryUsuario.Params[1].AsString:=EdtClave.Text;
QryUsuario.Params[2].Value:=0; // aqui esta el parametro que falta
QryUsuario.Active:=True; // aqui activo

if(RgRol.ItemIndex=0) then // aqui defino el parametro ROL supongo?
  begin
  a:='operador';
  QryUsuario.Params[2].AsString:=a;
  end
else
  begin
  a:='administrador';
  QryUsuario.Params[2].AsString:=a;
  end;
QryUsuario.ExecSQL;
if(QryUsuario.RecordCount>0) then
  begin
  ShowMessage('INFORMACION CORRECTA')
  end
else
ShowMessage('INFORMACION INCORRECTA');
end;
end.

Saludos

[[Caral]]

Hola
RgRol que es?
Parece un combobox o un listboxt, me equivoco?
Saludos

[sdiaz1983]

Con respecto a tu pregunta es un radiogroup, pero lo cambie mejor por puros campos de edición para facilitar mas las cosas, muchas gracias por su ayuda y hasta otra oportunidad.