create or replace procedure pro_DataCopyAndCheck is
ls_COD varchar2(50);
ls_STA VARCHAR2(1);
ls_LNG VARCHAR2(3);
ld_EMS DATE;
ls_OPR_EMS VARCHAR2(20);
ls_REV VARCHAR2(3);
ld_REV DATE;
ls_OPR_REV VARCHAR2(20);
ls_SIG_PRD VARCHAR2(1);
ls_FIL_LAME VARCHAR2(1);
ls_COD_LAME VARCHAR2(5);
cursor get70TableData is
select I94_COD_QCP,I94_STA_QCP,I94_LNG_QCP,D94_EMS_QCP,T94_OPR_EMS_QCP,
I94_REV_QCP,D94_REV_QCP,T94_OPR_REV_QCP,I27_SIG_PRD,
F94_FIL_LAME,I94_COD_LAME from TGED070_QCP_STANGING;
begin
open get70TableData;
fetch get70TableData into
ls_COD,ls_STA,ls_LNG,ld_EMS,ls_OPR_EMS,ls_REV,ld_REV,
ls_OPR_REV,ls_SIG_PRD,ls_FIL_LAME,ls_COD_LAME;
while get70TableData%found loop
begin
insert into TGED070_QCP values
(ls_COD,ls_STA,ls_LNG,ld_EMS,ls_OPR_EMS,ls_REV,ld_REV,
ls_OPR_REV,ls_SIG_PRD,ls_FIL_LAME,ls_COD_LAME);
EXCEPTION
when others then
update TGED070_QCP_STANGING set C_flag = "B",Err_info = insert语句产生的错误信息
where I94_COD_QCP = ls_cod;
fetch get70TableData into
ls_COD,ls_STA,ls_LNG,ld_EMS,ls_OPR_EMS,ls_REV,ld_REV,
ls_OPR_REV,ls_SIG_PRD,ls_FIL_LAME,ls_COD_LAME;
end;
end loop;
Close get70TableData;
end pro_DataCopyAndCheck;如何得到insert语句所产生的错误消息
ls_COD varchar2(50);
ls_STA VARCHAR2(1);
ls_LNG VARCHAR2(3);
ld_EMS DATE;
ls_OPR_EMS VARCHAR2(20);
ls_REV VARCHAR2(3);
ld_REV DATE;
ls_OPR_REV VARCHAR2(20);
ls_SIG_PRD VARCHAR2(1);
ls_FIL_LAME VARCHAR2(1);
ls_COD_LAME VARCHAR2(5);
cursor get70TableData is
select I94_COD_QCP,I94_STA_QCP,I94_LNG_QCP,D94_EMS_QCP,T94_OPR_EMS_QCP,
I94_REV_QCP,D94_REV_QCP,T94_OPR_REV_QCP,I27_SIG_PRD,
F94_FIL_LAME,I94_COD_LAME from TGED070_QCP_STANGING;
begin
open get70TableData;
fetch get70TableData into
ls_COD,ls_STA,ls_LNG,ld_EMS,ls_OPR_EMS,ls_REV,ld_REV,
ls_OPR_REV,ls_SIG_PRD,ls_FIL_LAME,ls_COD_LAME;
while get70TableData%found loop
begin
insert into TGED070_QCP values
(ls_COD,ls_STA,ls_LNG,ld_EMS,ls_OPR_EMS,ls_REV,ld_REV,
ls_OPR_REV,ls_SIG_PRD,ls_FIL_LAME,ls_COD_LAME);
EXCEPTION
when others then
update TGED070_QCP_STANGING set C_flag = "B",Err_info = insert语句产生的错误信息
where I94_COD_QCP = ls_cod;
fetch get70TableData into
ls_COD,ls_STA,ls_LNG,ld_EMS,ls_OPR_EMS,ls_REV,ld_REV,
ls_OPR_REV,ls_SIG_PRD,ls_FIL_LAME,ls_COD_LAME;
end;
end loop;
Close get70TableData;
end pro_DataCopyAndCheck;如何得到insert语句所产生的错误消息
解决方案 »
- 请教个关于存储过程的问题
- PL/SQL 存储过程
- 数据库刚入门,求教一Oracle基础题,谢谢各位了!
- c#调用oracle存储过程的问题 报错:调用 '' 时参数个数或类型错误
- 我在使用外连接查询三个表时,结果集中有个字段有空值,vb使用ADO读取结果时,无法得到结果集
- 请问oracle9i中SALES_HISTORY_ROLE的权限是什么,在8i中相应role是什么 谢谢!
- 求报表思路
- 在AIX上安装Oracle数据库是提示需要安装IY22854、IY26778等系统补丁,那位大侠知道那里又下载的?
- 如何增加一个字段,用于存放序列值?
- 如何关闭隐式游标?
- Oracle存储过程调试问题
- Oracle9i中导入数据表时发生错误ORA-01658
init文件的参数必须:
audit_trail=DB
比如:用user用户登陆.打算对表user.test的插入操作做审计.
操作如下:
audit insert on user.test; 执行你的语句:
insert into test values (....);
查询sql执行情况:
select * from sys.aud$;
违反主见,唯一建,唯一索引