[size=large][b]1.建包[/b][/size]
[size=large][b]2.建包体[/b][/size]
[size=large][b]3.主要的地方[/b][/size]
A.包中定义的存储过程如果没有参数则不需要括号。
B.包和包体中的存储过程要一一对应。
C.[color=red]type region_array is varray(50) of varchar2(20);[/color] 是定义数组的意思。
D.定义一个游标属性 [color=red]type RESULT_CUR is ref cursor;RESULT_CUR_REF RESULT_CUR;[/color]
[size=large][b]4.存储过程的DEBUG调试[/b][/size]
1.首先右键该存储过程点击Add Debug Information
2.然后右键该存储过程点击Test
3.然后输入需要的参数或不输入
4.然后右键该存储过程点击View 点击行号出现红色叉叉表示断点
5.然后回到Test页面点击F9或页面上最左边的按钮 然后点击Run 一步一步执行则点击Run旁边左边的按钮就行
CREATE OR REPLACE PACKAGE PKG_XXX IS
PROCEDURE proc_main ;
PROCEDURE proc_xx1 ;
PROCEDURE proc_xx1_rule(TABLE_NAME IN VARCHAR2,xxx_NAME IN VARCHAR2);
END PKG_AM_EXP_PREWARNINGS;
[size=large][b]2.建包体[/b][/size]
CREATE OR REPLACE PACKAGE BODY PKG_XXX IS
--定义时间 主要用于查询
default_date constant VARCHAR2(10) := TO_CHAR(SYSDATE, 'YYYY-MM-DD');
--定义字符串数组类型
TYPE T_ARRAY IS ARRAY(50) OF VARCHAR2(20);
--返回字符串数组函数
FUNCTION GETARR RETURN T_REGION_ARRAY IS
var_array T_ARRAY;
BEGIN
var_array := T_ARRAY('',
'',
'');
RETURN var_array;
END GETARR;
--主存储过程调用其他存储过程
PROCEDURE proc_main AS
BEGIN
proc_xx1();
proc_xx1_rule('','');
END proc_prewarning_main;
procedure proc_xx1 AS
--定义字符串数组
type region_array is varray(50) of varchar2(20);
var_array1 region_array:=region_array('1','2',
'2','3','2',
'2','2','2','1','2');
var_array2 region_array:=region_array('1','2',
'2','3','2',
'2','2','2','1','2');
var_array3 region_array:=region_array('1','2',
'2','3','2',
'2','2','2','1','2');
BEGIN
for i in 1..var_array1.count loop
PROC_LOAD_xx('AM_EXP_DEVICE_T',var_array1(i));
end loop ;
for i in 1..var_array2.count loop
DBMS_OUTPUT.put_line(123);
PROC_LOAD_xx('AM_EXP_WORK_CONDITION_T',var_array2(i));
end loop ;
for i in 1..var_array3.count loop
PROC_LOAD_xx('AM_EXP_USEELECTRIC_T',var_array3(i));
end loop ;
END proc_prewarning_all_wud;
PROCEDURE PROC_LOAD_xx(TABLE_NAME IN VARCHAR2,
xxx_NAME IN VARCHAR2) IS
SQLSTR VARCHAR2(1500);
TYPENAME VARCHAR2(20);
BEGIN
IF TABLE_NAME = 'AM1' THEN
TYPENAME := '3';
ELSIF TABLE_NAME = 'AM2' THEN
TYPENAME := '2';
ELSE
TYPENAME := '1';
END IF;
SQLSTR := '';
EXECUTE IMMEDIATE SQLSTR
into xx, xx, xx;
COMMIT;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
END proc_xx1;
procedure proc_xx1_rule(REGION_NAME IN VARCHAR2) IS
SQLSTR VARCHAR2(1500);
--定义一个游标属性
type RESULT_CUR is ref cursor;
RESULT_CUR_REF RESULT_CUR;
--定义数组
type region_array is varray(50) of varchar2(20);
BEGIN
var_array1 region_array:=region_array('1','2',
'2','3','2',
'2','2','2','1','2');
for i in 1 .. var_array1.count loop
SQLSTR := '拼接SQL'
;
DBMS_OUTPUT.put_line(SQLSTR);
--游标结合SQL字符串
OPEN RESULT_CUR_REF FOR SQLSTR;
--插入相关信息
loop
fetch RESULT_CUR_REF
into xx, xx, xx, xx;
exit when RESULT_CUR_REF%NOTFOUND;
--对取得的数据进行操作
end loop;
end loop;
COMMIT;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
END proc_xx1_rule;
END PKG_XXX;
[size=large][b]3.主要的地方[/b][/size]
A.包中定义的存储过程如果没有参数则不需要括号。
B.包和包体中的存储过程要一一对应。
C.[color=red]type region_array is varray(50) of varchar2(20);[/color] 是定义数组的意思。
D.定义一个游标属性 [color=red]type RESULT_CUR is ref cursor;RESULT_CUR_REF RESULT_CUR;[/color]
[size=large][b]4.存储过程的DEBUG调试[/b][/size]
1.首先右键该存储过程点击Add Debug Information
2.然后右键该存储过程点击Test
3.然后输入需要的参数或不输入
4.然后右键该存储过程点击View 点击行号出现红色叉叉表示断点
5.然后回到Test页面点击F9或页面上最左边的按钮 然后点击Run 一步一步执行则点击Run旁边左边的按钮就行