最近寫了一直Web Service給很多不同站的客戶端呼叫，并直接寄信通知程式中的異常。

直接在oracle中設置某張表的trigger（after insert），當有新的異常資料寫入時候，寄給相關站別的管理員。

/* Written by milo on 2017-03-09

*觸發器發送email

*/

CREATE OR REPLACE TRIGGER small_program_exception_afin

  AFTER INSERT ON small_program_exception

  FOR EACH ROW

DECLARE

  l_html         VARCHAR2(32767);

  v_station_name varchar(300);

  v_email_string varchar2(1000);

  v_program_name varchar2(300);

  v_station_code varchar(300);

BEGIN

  /*

  dbms_output.put_line('new.station: ' || :new.station);

  dbms_output.put_line('new.program_id: ' || :new.program_id);

  dbms_output.put_line('new.occurred_time: ' ||

                       to_char(:new.occurred_time, 'yyyy-mm-dd hh24:mm:ss'));

  dbms_output.put_line('new.program_id: ' ||

                       substr(:new.exception_message, 1, 32767));

  */

  BEGIN

    --獲取程式名稱、接收人email以及站名稱

    select s.stn_name, m.mail_for_error, p.name,s.stn_code

      into v_station_name, v_email_string, v_program_name,v_station_code

      from tk_cust_prog_m m, tk_cust_prog_d d, station s, tk_programe p

     where m.custom_no = d.custom_no

       and m.custom_no = s.stn_code

       and d.prog_id = p.id

       and d.prog_id = :new.program_id

       and d.custom_no = :new.station;

  exception

    when no_data_found then

      raise_application_error(-20001, 'No data found.');

      --dbms_output.put_line('no_data_found');

      --dbms_output.put_line('v_email_string: ' || v_email_string);

      if (v_email_string is null or v_email_string = ' ') then

        raise_application_error(-20001,

                                'Errors email recipient should not be empty, please type the recipient''s email address on the web-function');

      end if;

  END;

  l_html := '<html>

<head>

    <title></title>

</head>

<body>

<p> Dear ' || v_station_code || '</p>

<p> This email is to notify you that an unexpected error occurred in the program. Please check it ASAP.</p>

<p> Exception Message</p>

<p> ------------------------------------------------------------------------------</p>

<p> <b>' || v_station_name || '</b></p>

<p> <b>' || v_program_name || '</b></p>

<p> Posted on ' ||

            to_char(:new.occurred_time, 'mm-dd-yyyy hh24:mm:ss') || '</p>

<p> ' || substr(:new.exception_message, 1, 32767) || '</p>

<p> ------------------------------------------------------------------------------</p>

</body>

</html>';

  send_mail(p_to        => v_email_string,

            p_from      => 'milo@***.com', -- ***@oecgroup.com

            p_subject   => 'Program Occurred Errors Notice',

            p_text_msg  => '',

            p_html_msg  => l_html,

            p_smtp_host => 'spam.***.com',

            p_account   => 'milo@***.com',

            p_password  => '***');

END;

/

Oracle觸發器調用procedure寄信的更多相关文章

  1. Postgresql 創建觸發器，刪除觸發器和 禁用觸發器

    CREATE OR REPLACE FUNCTION XF_VIP_AFUPD_WX() RETURNS trigger AS $$ DECLARE i_count integer; s_wx_ope ...

  2. SQL觸發器聯級刪除

    Create TRIGGER [dbo].[trigInstructionsDelete] ON dbo.Instructions instead OF DELETE AS BEGIN DECLARE ...

  3. 利用 Oracle EM 企业管理器 进行oracle SQL的优化（自动生成索引）

    利用 Oracle EM 企业管理器 进行oracle SQL的优化(自动生成索引) ##应用情景 项目中有大量的SQL,尤其是涉及到统计报表时,表关联比较多,当初开发建表时也没搞好索引关联的,上线后 ...

  4. Oracle SQL优化器简介

    目录 一.Oracle的优化器 1.1 优化器简介 1.2 SQL执行过程 二.优化器优化方式 2.1 优化器的优化方式 2.2 基于规则的优化器 2.3 基于成本的优化器 三.优化器优化模式 3.1 ...

  5. 怎么配置 Oracle 侦听器来使用SQL操作ST_Geometry

    关于这个内容,其实从ArcSDE9.2推出ST_Geometry就让用户感到很有吸引力,而且特别是在ArcSDE9.3之后,用户使用SQL操作ST_geometry越来越多,但是在配置Oracle监听 ...

  6. Oracle的优化器的RBO和CBO方式

      1.基于规则的优化方式(Rule-Based Optimization,简称为RBO)       优化器在分析SQL语句时,所遵循的是Oracle内部预定的一些规则,对数据是不敏感的.它只借助少 ...

  7. Oracle的优化器介绍

    Oracle优化器介绍 本文讲述了Oracle优化器的概念.工作原理和使用方法,兼顾了Oracle8i.9i以及最新的10g三个版本.理解本文将有助于您更好的更有效的进行SQL优化工作. RBO优化器 ...

  8. Oracle 服务器端执行带参数的procedure

    进入服务器后 su - oracle sqlplus schema/schemapass 连接上以后,输入以下,然后执行 declare vRet number(5) := 8; begin proc ...

  9. jQuery-menu-aim有時候不能觸發BUG解決辦法

    在使用jQuery-menu-aim菜單時有時候鼠標移上去會發現樣式有改變但是第二階菜單卻沒有出現的問題 解決辦法:在exitMenu的方法中加入return true; 如下所示: exitMenu ...

随机推荐

  1. BLE 周边设备断开

    运行中,突然远程设备断开. TBluetoothLEDevice.IsConnected 为false了. 再次搜索,订阅, BluetoothLE1.SubscribeToCharacteristi ...

  2. 给虚拟机添加eth1网络适配器（网卡）

    1.虚拟机 -- > 设置 2.添加 --> 网络适配器 --> 下一步 3.主机 -- > 完成 -- > 确定 4.修改网卡的配置文件 cd /etc/sysconf ...

  3. Spring、Springboot常用注解：@Qualifier(不定时更新)

    1.@Qualifier 出现场景: 老项目中有多个实现类实现同一个接口时,或者一个项目中有多个数据源时,spring容器不知道该注入哪个实现类或者使用哪个数据源,该注解就派上用场. 1)多实现类实现 ...

  4. 什么是web资源？？？？

    所谓 web 资源即放在 Internet 网上供外界访问的文件或程序,又根据它们呈现的效果及原理不同,将它们划分为静态资源和动态资源. 1. 什么是静态资源 静态资源是浏览器能够直接打开的,一个 j ...

  5. MonoDevelop Assembly Browser

    [MonoDevelop Assembly Browser] View -> Assembly Browser,通过此窗口可以查看Dll的反编译后的代码. 还有几款免费的替代产品可以使用, 虽然 ...

  6. Mono在Full AOT模式下的限制

    [Mono在Full AOT模式下的限制] 调试时遇到一个Mono运行时异常: ExecutionEngineException: Attempting to JIT compile method ' ...

  7. SSH（安全协议外壳）介绍及Linux SSH免密登录

    SSH(安全外壳协议) SSH 为 Secure Shell 的缩写,是一种网络安全协议,专为远程登录会话和其他网络服务提供安全性的协议.通过使用 SSH,可以把传输的数据进行加密,有效防止远程管理过 ...

  8. 自定义信息丰富的Android Log

    [问题背景] 最近在项目上需要用LOG来查看和定位一些信息,但是系统原生的LOG实在太乱,信息也不太多,比如调用行数,所在方法,所在类名,线程名称都没有. [初步想法] 本着开源的精神,首先去GitH ...

  9. 在Qt中使用SQLite数据库

    前言 SQLite(sql)是一款开源轻量级的数据库软件,不需要server,可以集成在其他软件中,非常适合嵌入式系统. Qt5以上版本可以直接使用SQLite(Qt自带驱动). 用法 1 准备 引入 ...

  10. a Concise Sparse Matrix package

    简明稀疏矩阵包 https://github.com/kulhanek/csparse https://github.com/kulhanek/csparse