cambiar contraseña de usuario Interbase,pero desde mi aplicacion

[[Héctor Randolph]]

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