Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   cambiar contraseña de usuario Interbase,pero desde mi aplicacion (https://www.clubdelphi.com/foros/showthread.php?t=32120)

federiconqn21 26-05-2006 19:24:52

cambiar contraseña de usuario Interbase,pero desde mi aplicacion
 
hola Delphines:
Quisiera saber como cambiar la contraseña(password) de un usuario de una base Interbase,pero desde mi programita.
Se que existen unos componentes llamados Interbase Admin.
Pero no se cual de ellos utilizar para realizar dicho fin.alguien me podria dar una manito?.
desde ya....muchas gracias
Salu2

Héctor Randolph 27-05-2006 09:01:17

El componente que te funciona es IBSecurityService, te dejo un ejemplito que puedes adaptar a tus necesidades.

Código Delphi [-]
    with IBSecurityService1 do
    begin
      //Coloca un componente IBServerPrperties con la configuración de tu servidor
      ServerName:=IBServerProperties1.ServerName;
      Protocol:=IBServerProperties1.Protocol;
      // Aqui le pasas los datos actuales del usuario que deseas modificar
      Params.Values['user_name']:='USER_1';
      Params.Values['password']:='123';
     //Aqui le pasas el nuevo password
      Password:='mi_nuevo_password';
     //Aquí le indicas que debe actualizar los datos, en este caso solamente cambiaste el Password
      SecurityAction:=ActionModifyUser;
      try
        try
          Active:=True;//Ejecutas la acción
        except
          on E:EIBInterbaseError do
           raise Exception.Create('No fue posible cambiar la contraseña'+#10#13+
                                  'Se presentó un error con el siguiente mensaje'+#10#13+
                                  E.Message);
        end;
      finally
         Active:=False;
      end;
    end;

Te recomendaria revisar el demo que trae el Delphi en la carpeta {$DELPHI}\Demos\Db\IBX\Admin (Sólo en versiones recientes)


Saludos


La franja horaria es GMT +2. Ahora son las 05:04:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi