Oracle触发器未找到且,一个Oracle触发器的问题，语法不对，大家帮助改改

朴灿烈づ我的快乐病毒、 2022-10-21 13:57 24阅读 0赞

谢谢各位，总算是可以编译通过了，但不知道好用不好用。因为Sqlserver和Oracle在字符处理方面可能还有差异。

CREATE OR REPLACE

TRIGGER TRG\_Mail

BEFORE INSERT OR UPDATE ON RELEX.ALERTHISTORY

referencing old as old  new as new

for each row

declare

r\_from int;--:所在的位置

r\_len int;--长度

r\_Identifier varchar2(4000);--Idnetity字符串

r\_id int;    --- Fracas.AlertHistory 的id

r\_currentname varchar2(255);--当前标示符

r\_prjname varchar2(255);--系统名称

r\_new varchar2(4000);--新生成的字符串,带引号的标识符

r\_Setid int;--系统id

r\_solutionid int;---项目id

r\_ssql varchar2(4000);--要执行的sql语句

s\_SetId varchar2(255);--存放临时转换的字符串

BEGIN

\--set   serveroutput   off;

\--if (updating(RecordsMatched)) then

\--取得记录

r\_setid := :new.setid;

r\_id := :new.id;

r\_Identifier := :new.RecordsMatched;

\--取得记录

\-- cast(new.RecordsMatched as varchar2(4000)) into r\_Identifier

\--select  new.setid into r\_setid,new.id into r\_id, new.RecordsMatched into r\_Identifier  from :new ;

\---要去掉 r\_identifier的右边空格

r\_Identifier:=rtrim(r\_identifier);

if (length(r\_Identifier)<1) then

return;

end if;

\--取得：的位置和总的长度

r\_from:=instr(':', r\_Identifier) ;

r\_len:= length(r\_Identifier);

\--项目id

select  solutionid into r\_solutionid from Relex.DatabaseFiles

where id=r\_setid;

\--如果到：结束，就退出

if (r\_from=r\_len) then

return;

end if;

if (upper(substr(r\_identifier,1,1))='I') then

\-- 取得系统,从第5个开始中文，英文从11个开始

r\_prjname:=substrc(r\_Identifier,11,r\_from-11);

else

r\_prjname:=substr(r\_Identifier,5,r\_from-2-5);

end if;

r\_setid:=0;

\--取得setid

select id into  r\_setid

from Relex.DatabaseFiles

where filename=r\_prjname and solutionid=r\_solutionid;

\--如果没有找到项目对应的id，退出

if (r\_setid=0) then

return;

end if;

\--取得总长度

r\_len:=length(r\_Identifier);

\--取得标识符字符串

r\_Identifier:=substr(r\_Identifier,r\_from+2,r\_len-r\_from-2);

\--加引号的处理过程

r\_new:='(';

while (instr(',',r\_Identifier)>0)

Loop

r\_len:=instr(',',r\_Identifier);

r\_currentname:=substr(r\_Identifier,1,r\_len-1);

\--去掉左右字符串

r\_currentname:=rtrim(ltrim(r\_currentname));

r\_new:=r\_new+''''||r\_currentname ||''''||',';

r\_Identifier:=substr(r\_Identifier,r\_len+1,length(r\_Identifier)-r\_len) ;

end Loop;

r\_new:=r\_new+''''||ltrim(rtrim(r\_Identifier))||'''';

r\_new:=r\_new ||')';

\--更新语句的拼写

s\_SetId:=rtrim(to\_char(r\_setid));

r\_ssql:='update Relex.Incidents1 set IncUserBool3=1 where ((IncUserBool3 is null) or(IncUserBool3=0)) ';

r\_ssql:=r\_ssql||' and (setid='||s\_setId||')';

r\_ssql:=r\_ssql||' and (Identifier in '||r\_new||')';

\---执行更新程序

execute immediate  r\_ssql;

Exception

when Others Then

return ;

END TRG\_mail;

Oracle触发器未找到且,一个Oracle触发器的问题，语法不对，大家帮助改改

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关 oracle-触发器

相关 Oracle触发器

相关 Oracle触发器未找到且,一个Oracle触发器的问题，语法不对，大家帮助改改

相关 Oracle 触发器语法及实例

相关 Oracle触发器

相关 Oracle触发器编译错误之ORA-04098: 触发器无效且未通过重新验证

相关 Oracle：触发器

相关 Oracle 序列、触发器语法

相关 oracle触发器~

相关 Oracle触发器