在Oracle的存储过程中使用dblink调用远程存储过程备忘

 

使用dblink的方式有两种，我使用的第二种，也是比较方便的一种，因为不用修改tnsnames.ora文件

 

写了一个调用远端sayHello存储过程的存储过程,远端sayHello存储过程如下:

 

-- 远端 sayHello 定义如下： create or replace procedure sayHello(currentTime out varchar) is begin select 'Hello World' into currentTime from dual; end sayHello;

实现的sayRemoteHello存储过程如下:

create or replace procedure sayRemoteHello(name varchar, pwd varchar, ip varchar) authid current_user as sqlstr varchar(1000); r varchar(100); begin sqlstr:='drop database link tlink'; execute immediate sqlstr; -- sqlstr:= 'create database link tlink connect to scott identified by fj1234 using ''(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.0.70)(PORT = 1521)))(CONNECT_DATA = (SERVICE_NAME = orcl)))'''; -- SERVICE_NAME 使用 SELECT * FROM GLOBAL_NAME; 可查，默认为orcl sqlstr:= 'create database link tlink connect to '||name||' identified by '||pwd||' using ''(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = '||ip|| ')(PORT = 1521)))(CONNECT_DATA = (SERVICE_NAME = orcl)))'''; execute immediate sqlstr; sqlstr:='begin sayHello@tlink(:a); end;'; execute immediate sqlStr using out r; dbms_output.put_line(r); end sayRemoteHello; 

测试如下:

--测试：call sayRemoteHello('scott', 'fj1234', '192.168.0.70');