Ver Mensaje Individual
  #2  
Antiguo 27-05-2006
Avatar de Héctor Randolph
[Héctor Randolph] Héctor Randolph is offline
Miembro Premium
 
Registrado: dic 2004
Posts: 882
Reputación: 20
Héctor Randolph Va por buen camino
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

Última edición por Héctor Randolph fecha: 27-05-2006 a las 09:05:30.
Responder Con Cita