--检查数据链是否存在
function is_dblink_exist(v_dblink_name in varchar2) return boolean
as
n_tab_count number default 0;
b_result boolean default false;
begin
select count(1) into n_tab_count from user_db_links where substr(db_link,1,instr(db_link,'.',1,1)-1)=upper(v_dblink_name);
if n_tab_count > 0 then
b_result := true;
end if;
return b_result;
exception
when others then dbms_output.put_line('检查数据链时发生错误:'||sqlerrm);
return false;
end is_dblink_exist;