Oracle中使用PL/SQL操作COM对象

2024-08-29 13:31:46

字体：大中小

来源：转载

供稿：网友

　　pl/sql是由oracle公司对标准sql进行扩展，专用于oracle数据库中程序设计的专用语言，属第三代过程式程序设计语言。从oracle8开始提供了直接从pl/sql中调用外部c语言过程，允许开发人员用pl/sql进行使用c语言编制的程序模块。从oracle8i开始，又引入了java程序。

　　在本文中主要介绍外部例程的基本原理以及使用条件，介绍如何通过引用外部例程来操作windows中的com对象，并做了一个操作excel对象的示例。

　　本文的运行环境全部建立在oracle9i和windows2000。其中oracle的安装目录（oracle_home）为d:/oracle/ora92，sid为oradb，主机名为chanet。

　　必要性

　　扩展后的pl/sql语言已经集成了标准sql，在效率和安全上非常适合设计oracle数据库程序，但对于应用的某些功能，其它的程序设计语言比pl/sql更适合，如：使用操作系统资源，c语言在计算和引用系统对象及使用设备上优于pl/sql，而java语言在网络上的应用优于pl/sql。

　　如果在应用上要用到不适合用pl/sql语言的话，这时就要使用其它语言进行编制，然后由pl/sql作为外部例程进行调用。

　　在oracle8之前的版本，pl/sql和其它语言的唯一通信是借助于dbms_pipe和dbms_alert包来实现，在使用之前必需建立一个oci接口或预编译器编制的监护程序，使用比较复杂。外部例程的出现，只需在pl/sql中建立一个函数映射到外部例程对应的函数，就像普通的pl/sql函数使用一样，简化了使用过程。

　　基本原理

　　当引用外部c语言例程时，oracle监听器将启动extproc进程，该进程将会动态地载入共享库（在windows下称为动态链接库，即是dll文件），进程起了一个缓冲的作用，当pl/sql过程调用外部函数时，进程把命令发送到共享库，之后把结果返回给pl/sql过程。

　　进程被调用后随着共享库的使用会话（session）而存在，如果调用完毕或者关闭数据库用户会话，extproc进程会自动关闭。

　　如下图1-1为调用外部例程的描述。

图1 监听器与extproc进程
　　使用配置

　　在调用外部例程之前，必需进行如下设置：

　　 ·配置监听器。

　　 ·配置net组件服务。

　　配置监听器，打开d:/oracle/ora92/network/admin/listener.ora 文件，修改文件参数。

listener = 
(description_list = 
(description = 
(address_list = 
(address = (protocol = tcp)(host = chanet)(port = 1521)) 
) 
(address_list = 

(address = (protocol = ipc)(key = extproc1)) 
) 
) 
) 
sid_list_listener = 
(sid_list = 
(sid_desc = 
(sid_name = plsextproc) 
(oracle_home = d:/oracle/ora92) 
(program = extproc) 
) 
(sid_desc = 
(global_dbname = oradb) 
(oracle_home = d:/oracle/ora92) 
(sid_name = oradb) 
) 
)

　　其中有两部份参数对于使用外部例程是很重要的。

　　 ·(address_list = (address = (protocol = ipc)(key = extproc1))

　　设置基于ipc协议的外部例程

　　 ·(sid_desc =(sid_name = plsextproc) (oracle_home = d:/oracle/ora92) (program = extproc) )

　　记录数据库的相关属性，sid_name在默认的情况下是plsextproc。

　　配置net组件服务，打开d:/oracle/ora92/network/admin/tnsnames.ora文件，把如下内容保存在该文件里。

extproc_connection_data = 
(description = 
　 (address_list = 
　　 (address = (protocol = ipc)(key = extproc1)) 
　 ) 
　 (connect_data = 
　　 (sid = plsextproc) 
　　 (presentation = ro) 
　 ) 
)

　　重要参数说明：

　　　 ·(address = (protocol = ipc)(key = extproc1))

　　　 ·(connect_data = (sid = plsextproc) (presentation = ro)

　　两设置必需与listener.ora里的一致。

　　重启监听器，并测试服务是否可用。

　　停止监听器：lsnrctl stop

　　启动监听器：lsnrctl start

　　测试服务是否可用：

c:/>tnsping extproc_connection_data 
tns ping utility for 32-bit windows: version 9.2.0.1.0 - production on 07-4月 -2 
005 16:57:00 
copyright (c) 1997 oracle corporation. all rights reserved.

　　已使用的参数文件:

d:/oracle/ora92/network/admin/sqlnet.ora
　　已使用 tnsnames 适配器来解析别名

attempting to contact (description = (address_list = (address = (protocol = ipc) 
(key = extproc1))) (connect_data = (sid = plsextproc) (presentation = ro))) 
ok（30毫秒）

　　测试extproc进程是否正常：

d:/oracle/ora92/bin>extproc 
oracle corporation --- 星期四 4月 07 2005 17:37:18.968 
heterogeneous agent release 9.2.0.1.0 - production

　　 4、使用com对象说明

　　 com对象设计都会提供了三个基本操作给开发人员使用，分别为：获取属性值，设置属性值（只读属性除外），调用方法。oracle数据库在windows的平台下提供了操作com对象的接口，属于c语言外部例程模式。

　　工作原理如下图：

图2 操作com对象工作原理
　　在使用该功能之前，需明白如下内容：

　　 1) 创建com对象操作函数。

sql>connect system/[email protected] 
sql>create user chanet identified by chanet; 
sql>grant create library to chanet; 
sql>connect chanet/[email protected]; 
sql>@d:/oracle/ora92/com/comwrap.sql;

　　 2)配置监听器。

　　在listener.ora文件里，添加如下内容，并重启监听器。

startup_wait_time_listener = 0 
connect_timeout_listener = 10 
trace_level_listener = off 
passwords_lintener = (oracle)

　　 3) pl/sql数据类型与对应的com对象类型

　　表1-1数据类型比较

pl/sql数据类型	com api 数据类型
varchar2	bstr
boolean	bool
binary_integer	byte，int，long
double precision	double，float，currency
date	date

　　 4) 函数说明。

　　表1-2函数说明

名称	功能描述
createobject	创建对象
destroyobject	关闭对象
getlasterror	获取错误信息
getproperty	获取属性值
setproperty	设置属性值
initarg	为invoke函数初始化参数
initoutarg	为getarg初始化输出参数
getarg	获取输出参数
setarg	为invoke函数设置参数
invoke	调用com对象的函数或过程

　 5) 操作excel示例

　　本节介绍如何操作com对象（以excel对象为例），将数据库里的表记录通过pl/sql语句输出成excel文件。通过对象浏览器可以查看excel对象提供的属性和方法。（如：在excel菜单，工具 -> 宏 -> 打开visual basic编辑器，在编辑器里，视图 -> 对象浏览器）。

　　使用excel对象一般针对单元格进行操作（如，设置第一个单元格字体大小的代码为：range("a1").font.size = 20）。对应的com外部例程操作的步骤为：

　　 1、获取程序句柄；

　　 2、获取工作簿句柄；

　　 3、获取工作表句柄；

　　 4、获取range区句柄；

　　 5、获取font类句柄；

　　 6、设置size属性。

　　如下为操作excel对象的例子，首先建立示例表，然后建立操作包（package），最后是使用包函数的过程（procedure）。创建一个测试用表：

　　 -- 销售表（脚本）

create table it_sale_tab(its_id varchar2(5),its_date date,its_total number); 
insert into it_sale_tab(its_id,its_date,its_total) 
values(’1’,to_date(’2004-01-01’,’yyyy-mm-dd’),250); 
insert into it_sale_tab(its_id,its_date,its_total) 
values(’2’,to_date(’2004-02-01’,’yyyy-mm-dd’),150); 
insert into it_sale_tab(its_id,its_date,its_total) 
values(’3’,to_date(’2004-03-01’,’yyyy-mm-dd’),80); 
insert into it_sale_tab(its_id,its_date,its_total) 
values(’4’,to_date(’2004-04-01’,’yyyy-mm-dd’),96); 
insert into it_sale_tab(its_id,its_date,its_total) 
values(’5’,to_date(’2004-05-01’,’yyyy-mm-dd’),300); 
insert into it_sale_tab(its_id,its_date,its_total) 
values(’6’,to_date(’2004-06-01’,’yyyy-mm-dd’),210); 
insert into it_sale_tab(its_id,its_date,its_total) 
values(’7’,to_date(’2004-07-01’,’yyyy-mm-dd’),320); 
insert into it_sale_tab(its_id,its_date,its_total) 
values(’8’,to_date(’2004-08-01’,’yyyy-mm-dd’),280); 

insert into it_sale_tab(its_id,its_date,its_total) 
values(’9’,to_date(’2004-09-01’,’yyyy-mm-dd’),276); 
insert into it_sale_tab(its_id,its_date,its_total) 
values(’10’,to_date(’2004-10-01’,’yyyy-mm-dd’),368); 
insert into it_sale_tab(its_id,its_date,its_total) 
values(’11’,to_date(’2004-11-01’,’yyyy-mm-dd’),163); 
insert into it_sale_tab(its_id,its_date,its_total) 
values(’12’,to_date(’2004-12-01’,’yyyy-mm-dd’),305); 
commit;

　　操作excel对象包（package）。

create or replace package oraexcel is 
xlthin binary_integer default 2; 
dummytoken binary_integer; 
applicationtoken binary_integer:=-1; -- excel对象句柄 
workbookstoken binary_integer:=-1; -- 工作簿句柄 
workbooktoken binary_integer:=-1; 
worksheettoken binary_integer:=-1; -- 工作表句柄 
worksheettoken1 binary_integer:=-1; 
rangetoken binary_integer:=-1; -- range区句柄 
chartobjecttoken binary_integer:=-1; -- 图表对象句柄 
chartobject1 binary_integer:=-1; 
chart1token binary_integer:=-1; 
hlines binary_integer:=-1; 
i binary_integer; 
err_src varchar2(255); 
err_desc varchar2(255); 
err_hpf varchar2(255); 
err_hpid binary_integer; 
-- 创建excel对象 
function createexcelworksheet(servername varchar2) return binary_integer; 
-- 插入数据(字符型) 
function setcellvalues(range varchar2,data varchar2,type varchar2) 
return binary_integer; 
-- 插入数据(日期型) 
function setcellvalues(range varchar2,data date,type varchar2) 
return binary_integer; 
-- 插入数据(整型) 
function setcellvalues(range varchar2,data binary_integer,type varchar2) 
return binary_integer; 
-- 插入数据(实型) 
function setcellvaluesreal(range varchar2,data double precision,type varchar2) 

return binary_integer; 
-- 设置列宽 
function setcellcolwidth(range varchar2,width double precision,type varchar2) return 
binary_integer; 
-- 设置表格 
function setcelllines(range varchar2,bordersindex binary_integer,weight 
binary_integer default xlthin,type varchar2) return binary_integer; 
-- 合并单元格 
function setcellmerge(range varchar2,bvalues boolean,type varchar2) 
return binary_integer; 
-- 设置字体属性 
function setcellfont(range varchar2,property varchar2, 
fontvalues binary_integer,type varchar2) return binary_integer; 
-- 调用方法 
function callmethod(range varchar2,methodname varchar2) return binary_integer; 
-- 插入图表 
function insertchart(xpos binary_integer,ypos binary_integer, 
width binary_integer,height binary_integer, 
range varchar2,type varchar2) return binary_integer; 
-- 保存文件 
function savetofile(filename varchar2) return binary_integer; 
-- 关闭excel对象 
function closeexcel return binary_integer; 
end oraexcel;

　　数据包体内容（package body）

create or replace package body oraexcel is 
function createexcelworksheet(servername varchar2) return binary_integer is 
begin 
-- 创建excel对象 
i:=ordcom.createobject(’excel.application’, 0, servername,applicationtoken); 
if (i!=0) then -- 创建失败,提示返回的错误信息 
ordcom.getlasterror(err_src, err_desc, err_hpf, err_hpid); 
raise_application_error(-20000,err_src || err_desc || err_hpf || err_hpid); 
end if; 
-- 通过程序对象句柄获取工作簿句柄 
i:=ordcom.getproperty(applicationtoken, ’workbooks’, 0, workbookstoken); 
ordcom.initarg(); 
ordcom.setarg(-4167,’i4’); 
i:=ordcom.invoke(workbookstoken, ’add’, 1, workbooktoken); 
ordcom.initarg(); 
ordcom.setarg(’sheet 1’,’bstr’); 

-- 获取工作表句柄 
i:=ordcom.getproperty(applicationtoken, ’worksheets’, 0, worksheettoken1); 
i:=ordcom.invoke(worksheettoken1, ’add’, 0, worksheettoken); 
return i; 
end createexcelworksheet; 
function setcellvalues(range varchar2,data varchar2, type varchar2) 
return binary_integer is 
begin 
ordcom.initarg(); 
ordcom.setarg(range,’bstr’); 
-- 获取range区句柄,之后将数据写入到指定的单元格 
i:=ordcom.getproperty(worksheettoken, ’range’, 1, rangetoken); 
i:=ordcom.setproperty(rangetoken, ’value’, data, type); 
i:=ordcom.destroyobject(rangetoken); 
return i; 
end setcellvalues; 
function setcellvalues(range varchar2,data binary_integer,type varchar2) 
return binary_integer is 
begin 
ordcom.initarg(); 
ordcom.setarg(range, ’bstr’); 
i:=ordcom.getproperty(worksheettoken, ’range’, 1, rangetoken); 
i:=ordcom.setproperty(rangetoken, ’value’, data, type); 
i:=ordcom.destroyobject(rangetoken); 
return i; 
end setcellvalues; 
function setcellvaluesreal(range varchar2,data double precision,type varchar2) 
return binary_integer is 
begin 
ordcom.initarg(); 
ordcom.setarg(range, ’bstr’); 
i:=ordcom.getproperty(worksheettoken, ’range’, 1, rangetoken); 
i:=ordcom.setproperty(rangetoken, ’value’, data, type); 
i:=ordcom.destroyobject(rangetoken); 
return i; 
end setcellvaluesreal; 
function setcellvalues(range varchar2,data date,type varchar2) 
return binary_integer is 
begin 
ordcom.initarg(); 
ordcom.setarg(range, ’bstr’); 
i:=ordcom.getproperty(worksheettoken, ’range’, 1, rangetoken); 
i:=ordcom.setproperty(rangetoken, ’value’, data, type); 
i:=ordcom.destroyobject(rangetoken); 

return i; 
end setcellcolwidth; 
function setcellmerge(range varchar2,bvalues boolean,type varchar2) 
return i; 
end setcellvalues; 
function setcellcolwidth(range varchar2,width double precision,type varchar2) 
return binary_integer is 
begin 
ordcom.initarg(); 
ordcom.setarg(range,’bstr’); 
i:=ordcom.getproperty(worksheettoken,’range’,1,rangetoken); 
i:=ordcom.setproperty(rangetoken,’columnwidth’,width,type); 
i:=ordcom.destroyobject(rangetoken); 
return binary_integer is 
begin 
ordcom.initarg(); 
ordcom.setarg(range,’bstr’); 
i:=ordcom.getproperty(worksheettoken,’range’,1,rangetoken); 
i:=ordcom.setproperty(rangetoken,’mergecells’,bvalues,’boolean’); 
i:=ordcom.destroyobject(rangetoken); 
return i; 
end setcellmerge; 
function setcelllines(range varchar2,bordersindex binary_integer, 
weight binary_integer default xlthin,type varchar2) return binary_integer is 
begin 
ordcom.initarg(); 
ordcom.setarg(range,’bstr’); 
i:=ordcom.getproperty(worksheettoken,’range’,1,rangetoken); 
ordcom.initarg(); 
ordcom.setarg(bordersindex,type); -- 画表格的具体载入参数 
i:=ordcom.getproperty(rangetoken,’borders’,1,hlines); 
i:=ordcom.setproperty(hlines,’weight’,weight,type); 
i:=ordcom.destroyobject(hlines); 
i:=ordcom.destroyobject(rangetoken); 
return i; 
end setcelllines; 
function setcellfont(range varchar2,property varchar2,fontvalues binary_integer,type 
varchar2) return binary_integer is 
begin 
ordcom.initarg(); 
ordcom.setarg(range,’bstr’); 
i:=ordcom.getproperty(worksheettoken,’range’,1,rangetoken); 
ordcom.initarg(); 
ordcom.setarg(property,type); 

ordcom.initarg(); 
i:=ordcom.getproperty(worksheettoken, ’chartobjects’, 0, chartobjecttoken); 
ordcom.initarg(); 
ordcom.setarg(xpos,’i2’); -- 载入图表对象位置参数 
ordcom.setarg(ypos,’i2’); 
ordcom.setarg(width,’i2’); 
ordcom.setarg(height,’i2’); 
i:=ordcom.invoke(chartobjecttoken, ’add’, 4, chartobject1); -- 添加图表 
i:=ordcom.getproperty(chartobject1, ’chart’, 0,chart1token); 
ordcom.initarg(); 
ordcom.setarg(range, ’bstr’); 
i:=ordcom.getproperty(worksheettoken,’range’, 1, rangetoken); -- 选取区域 
ordcom.initarg(); 
ordcom.setarg(rangetoken, ’dispatch’); 
if type=’xlpie’ then 
charttype := -4102; 
elsif type=’xl3dbar’ then 
charttype := -4099; 
elsif type=’xlbar’ then 
charttype := 2; 
elsif type=’xl3dline’ then 
i:=ordcom.getproperty(rangetoken,’font’,0,hlines); -- 获取字体对象 
i:=ordcom.setproperty(hlines,property,fontvalues,type); 
i:=ordcom.destroyobject(hlines); 
i:=ordcom.destroyobject(rangetoken); 
return i; 
end; 
function callmethod(range varchar2,methodname varchar2) return binary_integer is 
reti binary_integer := -1; 
begin 
ordcom.initarg(); 
ordcom.setarg(range,’bstr’); 
i:=ordcom.getproperty(worksheettoken,’range’,1,rangetoken); 
ordcom.initarg(); 
i:=ordcom.invoke(rangetoken,methodname,0,reti); -- 调用对象的方法 
i:=ordcom.destroyobject(rangetoken); 
return reti; 
end; 
function insertchart(xpos binary_integer, ypos binary_integer, 
width binary_integer, height binary_integer, 
range varchar2, type varchar2) 
return binary_integer is 
charttype binary_integer:= -4099; 
begin 

charttype:= -4101; 
end if; 
ordcom.setarg(charttype,’i4’); 
i:=ordcom.invoke(chart1token,’chartwizard’, 2, dummytoken); 
i:=ordcom.destroyobject(rangetoken); 
i:=ordcom.destroyobject(chartobjecttoken); 
i:=ordcom.destroyobject(chartobject1); 
i:=ordcom.destroyobject(chart1token); 
return i; 
end insertchart; 
function savetofile(filename varchar2) return binary_integer is 
begin 
ordcom.initarg(); 
ordcom.setarg(filename,’bstr’); 
i:=ordcom.invoke(workbooktoken, ’saveas’, 1, dummytoken); -- 保存文件 
if (i!=0) then 
ordcom.getlasterror(err_src, err_desc, err_hpf, err_hpid); 
raise_application_error(-20000,err_src || err_desc || err_hpf || err_hpid); 
end if; 
return i; 
end savetofile; 
function closeexcel return binary_integer is 
begin 
ordcom.initarg(); 
ordcom.initarg(); 
ordcom.setarg(false,’bool’); 
i:=ordcom.invoke(workbooktoken, ’close’, 0, dummytoken); 
i:=ordcom.destroyobject(workbooktoken); 
ordcom.initarg(); 
i:=ordcom.invoke(workbookstoken, ’close’, 0, dummytoken); 
i:=ordcom.destroyobject(workbookstoken); 
i:=ordcom.invoke(applicationtoken, ’quit’, 0, dummytoken); 
-- 关闭所有句柄 
i:=ordcom.destroyobject(worksheettoken); 
i:=ordcom.destroyobject(worksheettoken1); 
i:=ordcom.destroyobject(applicationtoken); 
i:=ordcom.destroyobject(chartobjecttoken); 
i:=ordcom.destroyobject(chart1token); 
i:=ordcom.destroyobject(hlines); 
i:=ordcom.destroyobject(chartobject1); 
i:=ordcom.destroyobject(dummytoken); 
return i; 
end closeexcel; 
end oraexcel;

　　成功创建oraexcel包后，最后创建使用包的存储过程，实现把数据表里的字符型、日期型和数值型分别传到excel工作表里，对数值型数据进行统计和使用excel中的图表。该过程具体操作步骤为：

　　 ·创建excel对象。

　　 ·建立表头，设置列宽。

　　 ·将游标数据传到工作表。

　　 ·画表格。

　　 ·设置字体属性。

　　 ·插入图表。

　　 ·保存为excel格式文件，关闭excel对象。

　　如下为dp_toexcel存储过程：

create or replace procedure dp_toexcel is 
cursor c1 is select its_id,its_date,its_total from it_sale_tab; 
n binary_integer:=2; 
i binary_integer; 
filename varchar2(255); 
cellindex varchar2(40); 
cellvalue varchar2(40); 
cellcolumn varchar2(10); 
returnedtime varchar2(20); 
currencyvalue double precision; 
datevalue date; 
xlthin binary_integer:=2; 
xledgeleft binary_integer:=7; 
xledgetop binary_integer:=8; 
xledgebottom binary_integer:=9; 
xledgeright binary_integer:=10; 
xlinsidevertical binary_integer:=11; 
xlinsidehorizontal binary_integer:=12; 
begin 
i:=oraexcel.createexcelworksheet(’’); 
i:=oraexcel.setcellvalues(’a2’, ’序号’, ’bstr’); 
i:=oraexcel.setcellvalues(’b2’, ’日期’, ’bstr’); 
i:=oraexcel.setcellvalues(’c2’, ’销售’, ’bstr’); 

cellvalue:=c1_rec.its_total; 
currencyvalue:=cellvalue; 
i:=oraexcel.setcellvaluesreal(cellindex, currencyvalue, ’cy’); 
n:=n+1; 
end loop; 
i:=oraexcel.setcellvalues(’a’||n,’合计’,’bstr’); 
i:=oraexcel.setcellvalues(’c’||n,’=sum(c3:c’||to_char(n-1)||’)’,’bstr’); 
-- 画表格 
i:=oraexcel.setcelllines(’a1:c’||n,xledgeleft,xlthin,’i2’); 
i:=oraexcel.setcelllines(’a1:c’||n,xledgetop,xlthin,’i2’); 
i:=oraexcel.setcelllines(’a1:c’||n,xledgebottom,xlthin,’i2’); 
i:=oraexcel.setcelllines(’a1:c’||n,xledgeright,xlthin,’i2’); 
i:=oraexcel.setcelllines(’a1:c’||n,xlinsidevertical,xlthin,’i2’); 
i:=oraexcel.setcelllines(’a1:c’||n,xlinsidehorizontal,xlthin,’i2’); 
-- 设置字体属性 
i:=oraexcel.setcellfont(’a1:c1’,’size’,20,’i2’); 
i:=oraexcel.setcellfont(’a1:c1’,’bold’,1,’i2’); 
i:=oraexcel.callmethod(’a1:c1’,’merge’); -- 合并单元格 
i:=oraexcel.setcellvalues(’a1:c1’,’合计’,’bstr’); 
-- 插入图表 
i:=oraexcel.setcellcolwidth(’b:b’, 12.75,’cy’); -- 设置列宽 
i:=oraexcel.setcellcolwidth(’c:c’, 12.75,’cy’); 
n:=3; 
for c1_rec in c1 loop 
cellcolumn:=to_char(n); 
cellindex:= ’a’||cellcolumn; 
cellvalue:= to_char(c1_rec.its_id); 
i:=oraexcel.setcellvalues(cellindex, cellvalue, ’bstr’); 
cellindex:= ’b’ || cellcolumn; 
datevalue:=c1_rec.its_date; 
i:=oraexcel.setcellvalues(cellindex, datevalue, ’date’); 
cellindex:= ’c’ || cellcolumn; 
i:=oraexcel.insertchart(350,200,250,250,’c3:c’||to_char(n-1),’xlpie’); 
select to_char(sysdate, ’hh24miss’) into returnedtime from dual; 
filename:=’d:/testexcel’ || returnedtime || ’.xls’; 
i:=oraexcel.savetofile(filename); -- 保存文件 
i:=oraexcel.closeexcel(); -- 关闭对象 
end;

　　小结

　　本文介绍如何从pl/sql中直接调用c程序的外部例程，并以操作excel对象为示例。在调用该外部例程时，有如下相关的限制：

　　 ·操作系统必需支持动态链接库（dll）和共享库功能。

　　 ·监听器和extproc进程必须运行在数据库所在的同一台机子上，不支持远程数据库。

　　 ·extproc唯一支持的是c例程，但可以通过先调用c外部例程去使用其它对象（如：com对象）。

　　除了限制外，调用外部例程会引起额外的系统资源开销，在使用外部例程之前要考虑是否一定要用到外部例程。

上一篇：从Oracle迁移到SQL Server的陷阱

下一篇：Oracle与SQL Server在企业应用中的比较