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