oracle用户正在连接，无法删除的问题

Question

在oracle用户正在连接时，试图用下面的存储过程先清除session，再删除该用户，但在执行 清除用户session 那条sql语句时，有时候会出现 “无效的sid或serial#”错误，请问下各位大神，有什么解决方法吗？create or replace procedure dropUser(user_name in varchar2) authid current_user is
cnt integer;
sqlStr varchar2(1000);
begin
   sqlStr := 'alter user ' || user_name || ' account lock';
   execute immediate sqlStr;
   for x in (select * from v$session where username=user_name)
   loop
       --清除用户session
       sqlStr := 'alter system disconnect session ''' || x.sid || ',' || x.serial# || ''' immediate';
       execute immediate sqlStr;
   end loop;
   
   loop 
      select count(*) into cnt from v$session where username=user_name;
      exit when cnt=0;
      dbms_lock.sleep(3);
   end loop;
   
   sqlStr := 'drop user' || user_name || 'cascade';
end dropUser;
/
exec dropUser('user1');

Answer 1

在第一个Ｌｏｏｐ中的操作，用begin exception end包一下。

Answer 2

会有这样的可能 用户的session id 可能换了，或者时效。 这样：
begin
execute immediate sqlStr;
exception when others then
null;
end;