oracle 存储过程中 创建 dblink

create or replace procedure test_dblink(out_cursor out int)  Authid Current_User  as

begin
      --  test db link 数据库 连接
     execute immediate 'create database link dblink1 
     connect to  用户名 identified by "密码"
     using ''192.168.1.100:1521/orcl''
     ';

   --    open out_cursor for 'select * from A@dblink1';
  

  -- 返回个数值
    out_cursor :=0;
    execute immediate 'select count(*) from A@dblink1'  into out_cursor ;
    
    -- 取消连接
    execute immediate 'drop database link dblink1';
    
    return ;
    
end  ;