oracle监听日志制空,oracle存储过程简单例子

最新推荐文章于 2022-05-17 19:29:24 发布
最新推荐文章于 2022-05-17 19:29:24 发布
阅读量158 收藏
点赞数
文章标签： oracle监听日志制空

过程中直接执行sql时候切记变量名不能同列名一样(下面where 条件是错误的会变成全局匹配的类似1=1)

update ac_account a set a.now_balance=zzCur where a.account_id=account_id;

过程中可能会遇到数据查询为空的情况赋值会抛异常的，这个时候先判断下

querySql:='select count(*)

from fc_DayAccountView

where organ_id = '||chr(39)||88||chr(39)||

' and account_id = '||chr(39)||account_id||chr(39);

execute immediate querysql into isHis;

if isHis>0 then

querysql:='select nvl(dm,0), nvl(cm,0) , nvl(c_num,0)

from fc_DayAccountView

where organ_id = '||chr(39)||88||chr(39)||

' and account_id = '||chr(39)||account_id||chr(39);

execute immediate querysql into debBalance, creBalance, c_num/*into debBalance,creBalance,c_num*/;

else

dbms_output.put_line('**没有借贷记录**');

end if;

基本语法

create or replace procedure test1(a in integer,

b in integer,

c out integer)

as

begin

c:=a+b;

if a=1 then

dbms_output.put_line('输入了1');

elsif a=2 then

dbms_output.put_line('输入了2');

end if;

end test1;

返回个游标

create or replace procedure test2(s out sys_refcursor)

as

begin

open s for select p.user_name from pm_user p;

end test2;

调用

declare

c integer;

s sys_refcursor;

ss pm_user.user_name%type;

begin

test1(1,3,c);

dbms_output.put_line(c);

test2(s);

loop

fetch s into ss;

exit when s%notfound;

dbms_output.put_line(ss);

end loop;

end;

declare

f_date varchar2(32);--积数日期

f_account varchar2(50);--积数账号

f_debit_money number(15,2);--积数借方余额

str varchar2(1000);--打印输出语句

s sys_refcursor;--游标

debit_dql varchar2(2000);--查询借方余额的sql

real_debit_money number(15,2);--计算出来的借方余额

errorException exception; --申明异常

errorCode number; --异常代号

errorMsg varchar2(1000); --异常信息

flag varchar2(10);

out_return varchar2(2000);--错误信息拼接

begin

DBMS_OUTPUT.ENABLE (buffer_size=>null);--表示没有限制.

str :='';--制空

open s for

select to_char(f.balance_date,'yyyy-MM-dd'),f.account,f.debit_bal from FC_ACCU_BALANCE f where f.interest_sign='0' order by f.account asc,f.balance_date asc;

loop

fetch s into f_date,f_account,f_debit_money;

exit when s%notfound;

str :='日期'||f_date||'账号'||f_account||'借方余额'||f_debit_money;

dbms_output.put_line(str);

dbms_output.put_line('--开始计算次日期实际借方余额--');

--重新计算借方金额

debit_dql := 'select badd.debit_add-asub.debit_sub

from(

select nvl(sum(b.trademoney),0) debit_sub

from books_bus_allocate_order b

where b.relationaccount ='||chr(39)||f_account||chr(39)||

' and b.billstatus='||chr(39)||100||chr(39)||

' and b.is_day_over ='||chr(39)||1||chr(39)||

' and b.allocatetype ='||chr(39)||1||chr(39)||

'and b.day_over <='||chr(39)||f_date||chr(39)||')asub,

(

select nvl(sum(b.trademoney),0) debit_add

from books_bus_allocate_order b

where b.relationaccount ='||chr(39)||f_account||chr(39)||

'and b.billstatus='||chr(39)||100||chr(39)||

' and b.is_day_over ='||chr(39)||1||chr(39)||

' and b.allocatetype ='||chr(39)||0||chr(39)||

' and b.day_over <= '||chr(39)||f_date||chr(39)||')badd';

execute immediate debit_dql into real_debit_money;

str :='实际借方余额'||real_debit_money;

dbms_output.put_line(str);

if real_debit_money<>f_debit_money then

dbms_output.put_line('**金额有差别**');

dbms_output.put_line('**开始更新余额**');

update FC_ACCU_BALANCE f set f.debit_bal=real_debit_money where f.account=f_account and to_char(f.balance_date,'yyyy-MM-dd')=f_date;

else

dbms_output.put_line('**正确**');

end if;

end loop;

dbms_output.put_line('**更新结束提交事务**');

commit; --提交事务

dbms_output.put_line('**结束**');

exception

when errorException then

rollback;

errorCode := SQLCODE;

errorMsg := SUBSTR(SQLERRM, 1, 200);

flag := 'false';

out_return := 'flag=' || flag || ',errorCode=' || errorCode || ',errorMsg=' || errorMsg;

dbms_output.put_line(out_return);

when others then

rollback;

errorCode := SQLCODE;

errorMsg := SUBSTR(SQLERRM, 1, 200);

flag := 'false';

out_return := 'flag=' || flag || ',errorCode=' || errorCode || ',errorMsg=' || errorMsg;

dbms_output.put_line(out_return);

end;

这里可以在数据库创建定时任务 job目录新建

CREATE OR REPLACE PROCEDURE JNMD_INIT_BAL

as

now_bank_acc varchar2(32);--当前银行账号

now_bank_type varchar2(1);--账号类型

now_acc_no varchar2(32);--保留

now_bif_code varchar2(32);

amt0 number(15,2);--初始余额

amt1 number(15,2);--当日收入明细蓝之和

amt2 number(15,2);--当日收入明细红之和

amt3 number(15,2);--当日支出明细蓝之和

amt4 number(15,2);--当日支出明细蓝之和

bal number(15,2);--计算后余额

nowDate varchar2(32);--当前日期

-------------------------------------------------------------------

s sys_refcursor;--游标

--------------------------------------------------------------------

status varchar2(1);--字典状态

over varchar2(1);--是否覆盖

str varchar2(1000);--打印输出语句

querysql varchar2(2000);--查询的sql

isHis integer;--判断是否有数据

--------------------------------------------------------------------

errorException exception; --申明异常

errorCode number; --异常代号

errorMsg varchar2(1000); --异常信息

flag varchar2(10);

out_return varchar2(2000);--错误信息拼接

begin

DBMS_OUTPUT.ENABLE (buffer_size=>null);--表示没有限制.

nowDate:=to_char(sysdate,'YYYY-MM-DD');--(当前日期)

str :='';--制空

status:='';

over:='';

--判断是否执行

querysql:='select b.status,b.over from BT_INITBAL_DICTIONARY b';

execute immediate querysql into status,over;

if status <> '1' then

return;

end if;

open s for

select b.bankacc,'1',bank_type as bank_type from bt_bankacc_app b

union

select bb.bank_acc,'2',bb.bif_code from bt_bank_acc bb where bb.bif_code='9999';

loop

--清楚数据

now_bank_acc :='';

now_bank_type:='';

now_bif_code:='';

amt0:=0;

amt1:=0;

amt2:=0;

amt3:=0;

amt4:=0;

bal:=0;

isHis:=0;

--首先查询账号

fetch s into now_bank_acc,now_bank_type,now_bif_code;

exit when s%notfound;

str:='账号:'||now_bank_acc||

'类型'||now_bank_type||

'日期'||nowDate||

'余额计算开始了...';

dbms_output.put_line(str);

if now_bank_acc is null or now_bank_acc = '' then

CONTINUE;--账号为空这里跳过循环执行

end if;

querysql:='select count(0) from (select bank_bal as baseAmt

from bis_acc_his_bal a

where a.bank_acc = '||chr(39)||now_bank_acc||chr(39)||

'and a.bal_date =

(select min(b.bal_date)

from bis_acc_his_bal b

where b.bank_acc = '||chr(39)||now_bank_acc||chr(39)||

'and to_char(b.bal_date,'||chr(39)||'YYYY-MM-DD'||chr(39)||') <= '||chr(39)||nowDate||chr(39)||')),'||

'(select sum(amt) as amt1

from bis_acc_his_dtl

where bank_acc = '||chr(39)||now_bank_acc||chr(39)||

'and to_char(trans_time,'||chr(39)||'YYYY-MM-DD'||chr(39)||') <= '||chr(39)||nowDate||chr(39)||

'and cd_sign = '||chr(39)||0||chr(39)||

'and rb_sign = '||chr(39)||2||chr(39)||

'and status <> -2),

(select sum(amt) as amt2

from bis_acc_his_dtl

where bank_acc = '||chr(39)||now_bank_acc||chr(39)||

'and to_char(trans_time,'||chr(39)||'YYYY-MM-DD'||chr(39)||') <= '||chr(39)||nowDate||chr(39)||

'and cd_sign = '||chr(39)||0||chr(39)||

'and rb_sign = '||chr(39)||1||chr(39)||

'and status <> -2),

(select sum(amt) as amt3

from bis_acc_his_dtl

where bank_acc ='||chr(39)||now_bank_acc||chr(39)||

'and to_char(trans_time,'||chr(39)||'YYYY-MM-DD'||chr(39)||') <= '||chr(39)||nowDate||chr(39)||

'and cd_sign = '||chr(39)||1||chr(39)||

'and rb_sign = '||chr(39)||2||chr(39)||

'and status <> -2),

(select sum(amt) as amt4

from bis_acc_his_dtl

where bank_acc = '||chr(39)||now_bank_acc||chr(39)||

'and to_char(trans_time,'||chr(39)||'YYYY-MM-DD'||chr(39)||') <= '||chr(39)||nowDate||chr(39)||

'and cd_sign = '||chr(39)||1||chr(39)||

'and rb_sign = '||chr(39)||1||chr(39)||

'and status <> -2)';

execute immediate querysql into isHis;

if isHis > 0 then --存在数据

querysql:='select nvl(baseAmt,0)baseAmt,nvl(amt1,0)amt1,nvl(amt2,0)amt2,nvl(amt3,0)amt3,nvl(amt4,0)amt4 from (select bank_bal as baseAmt

from bis_acc_his_bal a

where a.bank_acc = '||chr(39)||now_bank_acc||chr(39)||

'and a.bal_date =

(select min(b.bal_date)

from bis_acc_his_bal b

where b.bank_acc = '||chr(39)||now_bank_acc||chr(39)||

'and to_char(b.bal_date,'||chr(39)||'YYYY-MM-DD'||chr(39)||') <= '||chr(39)||nowDate||chr(39)||')),'||

'(select sum(amt) as amt1

from bis_acc_his_dtl

where bank_acc = '||chr(39)||now_bank_acc||chr(39)||

'and to_char(trans_time,'||chr(39)||'YYYY-MM-DD'||chr(39)||') <= '||chr(39)||nowDate||chr(39)||

'and cd_sign = '||chr(39)||0||chr(39)||

'and rb_sign = '||chr(39)||2||chr(39)||

'and status <> -2),

(select sum(amt) as amt2

from bis_acc_his_dtl

where bank_acc = '||chr(39)||now_bank_acc||chr(39)||

'and to_char(trans_time,'||chr(39)||'YYYY-MM-DD'||chr(39)||') <= '||chr(39)||nowDate||chr(39)||

'and cd_sign = '||chr(39)||0||chr(39)||

'and rb_sign = '||chr(39)||1||chr(39)||

'and status <> -2),

(select sum(amt) as amt3

from bis_acc_his_dtl

where bank_acc ='||chr(39)||now_bank_acc||chr(39)||

'and to_char(trans_time,'||chr(39)||'YYYY-MM-DD'||chr(39)||') <= '||chr(39)||nowDate||chr(39)||

'and cd_sign = '||chr(39)||1||chr(39)||

'and rb_sign = '||chr(39)||2||chr(39)||

'and status <> -2),

(select sum(amt) as amt4

from bis_acc_his_dtl

where bank_acc = '||chr(39)||now_bank_acc||chr(39)||

'and to_char(trans_time,'||chr(39)||'YYYY-MM-DD'||chr(39)||') <= '||chr(39)||nowDate||chr(39)||

'and cd_sign = '||chr(39)||1||chr(39)||

'and rb_sign = '||chr(39)||1||chr(39)||

'and status <> -2)';

dbms_output.put_line(querysql);

execute immediate querysql into amt0,amt1,amt2,amt3,amt4;

end if;

bal:=amt0+amt1+amt4-amt2-amt3;

str:='初始金额:'||amt0||

'收入蓝之和:'||amt1||

'收入红之和:'||amt2||

'支出蓝之和:'||amt3||

'支出红之和:'||amt4||

'计算余额:'||bal;

dbms_output.put_line(str);

isHis:=0;

querysql:='select count(1) from bis_acc_his_bal t where t.bank_acc='||chr(39)||now_bank_acc||chr(39)||' and to_char(t.bal_date,'||chr(39)||'YYYY-MM-DD'||chr(39)||')= '||chr(39)||nowDate||chr(39);

dbms_output.put_line(querysql);

execute immediate querysql into isHis;

if isHis = 0 then

str:='插入操作开始了...';

dbms_output.put_line(str);

insert into bis_acc_his_bal

(acc_no,

bank_acc,

bif_code,

bal_date,

get_date,

bank_bal,

--status,

--nextchecker,

--corp_id,

avail_bal)

values

(now_acc_no,now_bank_acc,now_bif_code, to_date(nowDate,'YYYY-MM-DD'),sysdate, bal,bal);

elsif over = '1' then

str:='更新操作开始了...';

dbms_output.put_line(str);

update bis_acc_his_bal set bank_bal=bal,avail_bal=bal where bank_acc=now_bank_acc and to_char( bal_date,'YYYY-MM-DD')=nowDate;

end if;

end loop;

dbms_output.put_line('**更新结束提交事务**');

commit; --提交事务

dbms_output.put_line('**结束**');

exception

when errorException then

rollback;

errorCode := SQLCODE;

errorMsg := SUBSTR(SQLERRM, 1, 200);

flag := 'false';

out_return := 'flag=' || flag || ',errorCode=' || errorCode || ',errorMsg=' || errorMsg;

dbms_output.put_line(out_return);

when others then

rollback;

errorCode := SQLCODE;

errorMsg := SUBSTR(SQLERRM, 1, 200);

flag := 'false';

out_return := 'flag=' || flag || ',errorCode=' || errorCode || ',errorMsg=' || errorMsg;

dbms_output.put_line(out_return);

end;

小温小台
关注
Oracle SQL学习笔记
Record_Algorithm
02-07 3255
LAST_DAY®函数：返回指定r日期的当前月份的最后一天日期。
oracle 初级学习（王二暖 视频 笔记）
xv740234390的专栏
03-10 4551
对oracle学习视频的总结 方便以后查看 将不定期更新
oracle监听日志制空,【星海爭霸Ⅱ】2011Blizzcon：星海爭霸II：蟲群之心官方Q&A
weixin_42302142的博客
04-07 63
這次星海爭霸也公布了三種族的全新單位，每個種族都有2~3個不等的新單位喔！馬上來看看，另外讓人震驚的是，居然有舊單位要退役了！值得注意的是，我們也移除《星海爭霸®II：自由之翼™》部分單位以避免重覆，並以玩家的角度思考對戰時的情況，將多人對戰的單位及技能數量維持在精簡適中的範圍內。神族透過近期的數據分析，神族發現有些地方還能再加以改進，以在面對敵人時能發揮更大的功效。神族根據這些發現，導入了第二種...
mysql execute immediate_使用EXECUTE IMMEDIATE来生成含有绑定变量的SQL
weixin_39540018的博客
01-25 1065
一个SQL，通过SPM固定它的执行计划，可以通过DBMS_SPM.LOAD_PLANS_FROM_CURSOR_CACHE实现。也可以通地此功能在不修改原SQL的情况下对其加HINT来固定执行计划。DB VERSION:Oracle 11.2.0.4OS:CentOS 6.6例如：原SQL走索引：SELECT * FROM SCOTT.TB_SPM WHERE OBJECT_ID=10;想通过加H...
Oracle中动态SQL详解(EXECUTE IMMEDIATE)
javalingyu的博客
05-17 9302
Oracle中动态SQL详解 1．静态SQLSQL与动态SQL 　　Oracle编译PL/SQL程序块分为两个种：其一为前期联编（early binding），即SQL语句在程序编译期间就已经确定，大多数的编译情况属于这种类型；另外一种是后期联编（late binding），即SQL语句只有在运行阶段才能建立，例如当查询条件为用户输入时，那么Oracle的SQL引擎就无法在编译期对该程序语句进行确定，只能在用户输入一定的查询条件后才能提交给SQL引擎进行处理。通常，静态SQL采用前一种编译方式，而动态SQ
动态SQL execute immediate
朝和
12-17 2387
【功能】 如果在存储过程中，要执行“创建、修改、删除、删表(create、alter、drop、truncate)”四种语句，不能直接使用，要将该类语句放在动态SQL(execute immediate)中执行。 应用场景： 1.封装DDL语句 alter drop 2.for 循环使用 【格式】 begin execute immediate ‘要执行的语句’; end; 【示例】 ①动态SQL组成部分： 1.常量(DML语音关键字用常量封装) 2.变量（字段、表 注意：不能用单引封装） 3.连接符||
8.Oracle创建带参数函数
qq_29956725的博客
03-15 1523
1. ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- create or ...
Oracle971个面试题总结
志在千里
09-30 9964
Oracle1000个面试题总结（一） 　　1. Oracle安装完成后的初始口令?                                     　　　　internal/oracle
oracle学习大全（good）
12-21 2万+
一、数据库语言部分1. SQL语言：关系数据库的标准语言2. PL/SQL：过程化语言Procedural Language3. SQL*Plus：简单的报表，操作系统接口4. Oracle 8.01后出现:(1) 数据分区技术：只适用8.01后的版本，数据分散存放，不要放在一个硬盘上，I/O性能好，安全性能好。(2) 对象技术：存储过程、函数、包、数据库触发器、动态SQL编程(3) 数据库权限管
oracle 非常完整的总结
白飞飞_Alan
12-21 3449
Ⅰ.oracle itcast 本文档对应程序在myeclipse的jdbc/src/下       Oracle安装自动生成sys用户和system用户 sys 超级用户  具有最高权限 具有sysDBA角色，有create database权限 该用户默认密码是change_on_install  system 管理操作员 权限也比较大，具有sysoper角色，没有crea
PL/SQL开发中动态SQL的使用方法
zhanghq1的专栏
05-11 953
转自：http://www.qqread.com/oracle/c225857010.html内容摘要：在PL/SQL开发过程中，使用SQL，PL/SQL可以实现大部份的需求，但是在某些特殊的情况下，在PL/SQL中使用标准的SQL语句或DML语句不能实现自己的需求，比如需要动态建表或某个不确定的操作需要动态执行。这就需要使用动态SQL来实现。
Oracle存储过程报ORA-20000的错误
热门推荐
a475952074的博客
04-23 4万+
在输出时,控制输出结果的缓冲大小由DBMS_OUTPUT.ENABLE控制,buffer size默认为20000,每行最大的限制是32k,后面的一个例子是用来说明存储过程是在缓存了所有数据后才将结果返回。所以当我们使用游标进行输出时，如果结果很多，将会超过这个值报ORA-20000, ORU-10027: Buffer overflow, limit of &lt;buf_limit&gt; b...
Linux将日志文件置空
Denglishang的博客
07-15 3784
系统正在运行时，如果直接rm删掉日志文件再手工重建，可能会导致后续的运行日志不再写入日志文件，需要重启才行。可以将文件置空但是不删除，保留原文件，不影响后续日志写入 cp /dev/null /home/sys/log/syslog.out; 注：/dev/null 空设备，是一种特殊的设备文件 ...
oracle 监听 sql 查询,oracle 监控执行的sql语句
weixin_36160268的博客
04-11 1527
oracle监控执行的sql语句select * from v$sqlarea a where module='PL/SQL Developer' order by a.FIRST_LOAD_TIME descselect * from v$sqlarea a where module='PL/SQL Developer' order by a.FIRST_LOAD_TIME desc监视ora...
oracle使用存储过程实现日志记录.sql
愤怒的coder
02-23 903
--这段sql语句是用来实现oracle后台记录操作日志的，代替或者补充应用系统的操作日志。 --1.对应的日志记录表-------------------------------------------------------------------create table TEST(  T_ID   NUMBER(4),  T_NAME VARCHAR2(20),  T_AGE  NUM...
基于Java语言的蓝牙遥控器设计源码，支持键盘、鼠标、影音遥控器
10-05
该项目为基于Java语言的蓝牙遥控器设计源码，包含539个文件，涵盖307个Java源文件、120个XML配置文件、34个PNG图片文件、16个Gradle构建文件、12个Git忽略文件、9个文本文件、6个JAR包文件、5个JSON配置文件、5个JPG图片文件。该遥控器支持键盘、鼠标和影音控制功能，适用于多种场合。
数据手册-74HC573-datasheet.zip
10-05
数据手册-74HC573-datasheet.zip
苏州科技大学在辽宁2020-2024各专业最低录取分数及位次表.pdf
10-05
那些年，与你同分同位次的同学都去了哪里？全国各大学在辽宁2020-2024年各专业最低录取分数及录取位次数据，高考志愿必备参考数据
c++的概要介绍与分析
最新发布
10-05
关于C++的资源描述和项目源码，以下是一些关键信息： 资源描述 C++是一种广泛应用于开发高性能应用程序的编程语言，既有高级语言的特性，也有低级语言的效率。以下是C++学习资源的简要描述： 在线课程：如优达学城提供的C++中级课程，以及北京大学提供的C++程序设计和C++程序设计进阶课程，这些课程适合从零开始系统学习C++，涵盖从基础到高级的编程内容。 书籍：如《C++ Primer》、《Effective C++》和《C++标准库》等，这些书籍详细介绍了C++语言的基本概念和编程技术，适合作为自学或课堂教学的参考资料。 在线社区：如CSDN博客和Stack Overflow等，这些社区提供了丰富的C++编程教程、示例代码和问题解决方案，是学习和交流C++编程技术的重要平台。 开发工具：如Visual C++（VC）等集成开发环境（IDE），提供了编译器、调试器和其他工具，方便开发者进行Windows平台上的C++应用程序开发。 项目源码 由于项目源码通常包含大量的代码文件和资源文件，且涉及版权和知识产权问题，因此无法在此直接提供完整的项目源码。不过，以下是一些获取C++项目源码的
Oracle监听日志过大引发的数据库无法启动问题解决方法
Oracle监听日志过大是指Oracle监听进程在记录日志时，日志文件增大到一定程度，导致监听进程无法正常工作，甚至影响数据库的连接和运行的问题。这种情况通常发生在频繁连接数据库的应用中，短连接的应用也会导致监听...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值