oracle call 存储过程 带out_oracle存储过程中记录日志文件

最新推荐文章于 2021-04-14 05:36:59 发布
最新推荐文章于 2021-04-14 05:36:59 发布
阅读量1k 收藏
点赞数
文章标签： oracle call 存储过程 带out oracle dblink 查看存储过程权限 oracle 创建存储过程 oracle 在包里添加存储过程 oracle 存储过程 oracle 存储过程 if

一、背景

在日常编写oracel存储过程中需要用到记录日志文件的情况，比如某个存储过程处理数据量比较大，我们需要实时观察存储过程处理情况，可以通过记录日志文件方式进行跟踪。

下面通过ORACLE提供的utl_file来实现日志记录。

二、操作步骤

1.创建oracle用户，并授予dba权限。

创建oracle用户

create user test identified by test;

授予DBA权限

grant connect,resource,dba to test;

eb6c2ae3f0153a4df8f8e0ae9115b065.png

创建用户示例图

2.创建日志目录

sqlplus / as sysdba<

create directory LOGDIR as '/home/db/oracle/log'; --此处目录可自行指定

grant read,write on directory LOGDIR to test; --用户test可对目录进行读写

grant execute on utl_file to test;

!

0a58a3035d1759c04fc34e6f9c6af917.png

创建目录示例图

3.编写日志存储过程包

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

-- 文件名: log.sql

-- 包 名: wlog

-- 包方法: enable( flag ) 控制是否记录日志(true,false),默认为true

-- init(logfile,procname) 日志初始化，

-- logfile日志文件名

-- procname存储过程名

-- write( msg ) 记录日志，参数为日志内容

-- put_line( msg) 记录日志，参数为日志内容

-- stop(flag) 结束日志记录，flag: 0成功完成 ，其他失败完成

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

create or replace package wlog is

g_flag boolean := true;

g_log_flag boolean := true;

g_file UTL_FILE.FILE_TYPE;

g_logfile varchar(256);

g_procname varchar(50);

g_old_procname varchar(50) ;

procedure enable(p_flag boolean default true );

procedure init(p_logfile varchar,p_procname varchar );

procedure write(p_logline varchar);

procedure log(p_fname varchar2,p_info varchar2);

procedure put_line(p_logline varchar);

procedure stop(p_flag char default '0');

end;

/

show err

create or replace package body wlog is

procedure enable( p_flag boolean default true)

is

begin

g_flag := p_flag;

exception

when others then

dbms_output.put_line('ERROR:' || sqlcode || ':' || sqlerrm || dbms_utility.format_error_backtrace );

end;

procedure setlogflag( p_flag boolean default true)

is

begin

g_log_flag := p_flag;

exception

when others then

dbms_output.put_line('ERROR:' || sqlcode || ':' || sqlerrm || dbms_utility.format_error_backtrace );

end;

procedure init( p_logfile varchar,p_procname varchar )

is

v_datetime varchar(50);

begin

if g_flag = false then

return ;

end if;

g_logfile := p_logfile;

g_procname := p_procname;

g_old_procname := p_procname;

g_file := utl_file.fopen( 'LOGDIR' , g_logfile , 'a');

utl_file.put_line(g_file, '');

select to_char(current_timestamp(3),'YYYY-MM-DD HH24:MI:SSxFF')

into v_datetime from dual;

utl_file.put_line(g_file, v_datetime || ' PROCEDURE NAME[' || g_procname || '] Execute Begin...');

utl_file.put_line(g_file, '-----------------------------------------------------');

utl_file.fflush(g_file);

exception

when others then

dbms_output.put_line('ERROR:' || sqlcode || ':' || sqlerrm ||dbms_utility.format_error_backtrace );

end;

procedure write_core(p_logline varchar,p_callme varchar ,p_lineno number)

is

v_file_exist boolean;

v_file_length number(10,2);

v_block_size binary_integer;

l_owner varchar2(30);

l_name varchar2(30);

l_lineno number ;

l_type varchar(30);

v_datetime varchar(50);

begin

if g_flag = false then

return ;

end if;

utl_file.fgetattr('LOGDIR',g_logfile,v_file_exist,v_file_length,v_block_size );

if NOT v_file_exist then

if utl_file.is_open(g_file) then

utl_file.fclose( g_file );

end if;

g_file := utl_file.fopen('LOGDIR' ,g_logfile, 'a' );

end if ;

--owa_util.who_called_me(l_owner,l_name,l_lineno,l_type );

l_name := p_callme;

l_lineno :=p_lineno;

select to_char(current_timestamp(3),'YYYY-MM-DD HH24:MI:SSxFF')

into v_datetime from dual;

if l_name is null then

UTL_FILE.put_line(g_file, l_lineno || ':' || p_logline );

else

if g_old_procname = l_name then

UTL_FILE.put_line(g_file, l_lineno || ':' || p_logline );

else

if l_name = 'LOG' then

NULL;

else

g_old_procname:= l_name ;

end if;

UTL_FILE.put_line(g_file,v_datetime || ' Enter ' || l_name );

UTL_FILE.put_line(g_file, l_lineno || ':' || p_logline );

end if;

end if;

utl_file.fflush(g_file);

exception

when others then

dbms_output.put_line('ERROR:' || sqlcode || ':' || sqlerrm ||dbms_utility.format_error_backtrace );

end;

procedure write(p_logline varchar)

is

l_owner varchar2(30);

l_name varchar2(30);

l_lineno number ;

l_type varchar(30);

begin

if g_flag = false then

return ;

end if;

owa_util.who_called_me(l_owner,l_name,l_lineno,l_type );

write_core( p_logline ,l_name,l_lineno);

end;

procedure put_line(p_logline varchar)

is

l_owner varchar2(30);

l_name varchar2(30);

l_lineno number ;

l_type varchar(30);

begin

if g_flag = false then

return ;

end if;

owa_util.who_called_me(l_owner,l_name,l_lineno,l_type );

write_core( p_logline ,l_name,l_lineno);

end;

procedure stop(p_flag char default '0' )

is

v_datetime varchar(50);

v_file_exist boolean;

v_file_length number(10,2);

v_block_size binary_integer;

begin

if g_flag = false then

return ;

end if;

utl_file.fgetattr('LOGDIR',g_logfile,v_file_exist,v_file_length,v_block_size );

if NOT v_file_exist then

if utl_file.is_open(g_file) then

utl_file.fclose( g_file );

end if ;

g_file := utl_file.fopen('LOGDIR' ,g_logfile, 'a' );

end if ;

select to_char(current_timestamp(3),'YYYY-MM-DD HH24:MI:SSxFF')

into v_datetime from dual;

utl_file.put_line(g_file, '----------------------------------------------------------');

if p_flag = '0' then

utl_file.put_line(g_file, v_datetime || ' PROCEDURE NAME[' || g_procname || '] success.');

else

utl_file.put_line(g_file, v_datetime || ' PROCEDURE NAME[' || g_procname || '] fail.');

end if;

utl_file.fflush(g_file);

utl_file.fclose(g_file );

exception

when others then

dbms_output.put_line('ERROR:' || sqlcode || ':' || sqlerrm ||dbms_utility.format_error_backtrace);

end;

--记录日志过程

procedure log(p_fname varchar2,p_info varchar2 )

is

l_file UTL_FILE.FILE_TYPE;

begin

l_file := utl_file.fopen('LOGDIR' ,p_fname, 'a' );

utl_file.put_line(l_file, p_info );

utl_file.fflush(l_file);

utl_file.fclose(l_file );

exception

when others then

dbms_output.put_line('ERROR:' || sqlcode || ':' || sqlerrm ||dbms_utility.format_error_backtrace);

end;

end;

/

--查看创建出错信息

show err

到此，记录日志存储过程包已创建,下面看看具体应用。

0f740b7740981ce6291bca6e23aaa544.png

创建包过程

三、实例

创建两个测试存储过程

create or replace procedure test1

is

begin

wlog.write('test1....');

end;

/

show error

create or replace procedure test

is

begin

wlog.write('log test.....');

test1();

end;

/

show error

1d2f41e4df796de33c5e9ab260835023.png

测试使用存储过程

使用方式一：

exec wlog.init('test.log','TEST');

exec test();

exec wlog.stop();

0985bb9950cc8c4530c30d5b14452d15.png

方式一示例

使用方式二:

exec wlog.log('test1.log','TEST........');

exec wlog.log('test1.log','TEST........');

exec wlog.log('test1.log','TEST........');

exec wlog.log('test1.log','TEST........');

exec wlog.log('test1.log','TEST........');

exec wlog.log('test1.log','TEST........');

exec wlog.log('test1.log','TEST........');

exec wlog.log('test1.log','TEST........');

exec wlog.log('test1.log','TEST........');

ce55ebaf0b8c54b98880a50c93d41b0a.png

方式二示例

方式一可以查看存储过程相互调用关系及日志记录，方式二只是线型的记录每一条日志内容。

weixin_39897505
关注
VS2019调试查看变量_PL/SQL调试存储过程？看这篇就够了
weixin_39838829的博客
11-20 1117
概述虽然现在存储过程相对比较少用了，但是平时接触不可避免的要跟存储过程打交道，当需要自己写的时候总会碰到这或那的错误，这个时候一般要怎么调试呢?PL/SQL调试PL/SQL中提供了【调试存储过程】的功能，可以完成存储过程的预编译与测试。点击要调试的存储过程，右键选择TEST如果需要查看变量，当然调试都需要。在右键菜单中选择Add debug information.start debugger(F...
Oracle dbms_output vs utl_file 使用（一）
能量老8的博客
02-02 907
dbms_output buffer的默认长度是20000字符，可以使用dbms_output.enable(buffer size)来调整缓冲区的大小。最小2000，最大1,000,000，null表示不限制缓存区大小（旧版的Oracle可能不支持）。设置dbms_output.enable(NULL)后输出长度10000和32767的字符串成功，输出32768的字符串失败。设置dbms_output.enable(2000)后输出长度2000的字符串成功，输出长度2001的字符串失败。
Oracle存储过程
hengliang_的博客
02-23 650
转载：http://blog.csdn.net/u013057786/article/details/171656231、定义所谓存储过程(Stored Procedure)，就是一组用于完成特定数据库功能的SQL语句集，该SQL语句集经过编译后存储在数据库系统中。在使用时候，用户通过指定已经定义的存储过程名字并给出相应的存储过程参数来调用并执行它，从而完成一个或一系列的数据库操作。2、存储过程的...
oracle PLSQL创建和调用存储过程
波波诸葛伟
03-12 6115
我是在PLSQL的command window里使用的命令 建表  drop table students;  create table students(ID int,userName varchar(100),userpass varchar(100),userAge int);  insert into students values(1,'Jack','jjjaa',23)
oracle call 存储过程 带out_一个不为人知的存储过程--让你的Oracle输出结果集更美观...
weixin_39692271的博客
12-06 314
概述一直以来，觉得MySQL中使用G参数改变输出结果集的显示方式非常好用，尤其是在命令行界面。但是ORACLE数据库没有这个功能，今天在搜索到Tom大师的一篇博文时，发现大师用一个存储过程print_table实现了类似这样的功能。print_table建立存储过程如下：CREATE OR REPLACE PROCEDURE print_table(p_query IN VARCHAR2) AUT...
oracle call 存储过程 带out_【赵强老师】Oracle存储过程中的out参数
weixin_39664010的博客
12-03 1044
一、什么是存储过程Oracle存储过程可以说是一个记录集吧，它是由一些PL/SQL语句组成的代码块，这些PL/SQL语句代码像一个方法一样实现一些功能(对单表或多表的增删改查)，然后再给这个代码块取一个名字，在用到这个功能的时候调用他就行了。存储过程的好处：由于数据库执行动作时，是先编译后执行的。然而存储过程是一个编译过的代码块，所以执行效率要比PL/SQL语句高。一个存储过程在程序、在网络中交互...
Java下使用Oracle存储过程(详解)第1/3页
09-06
本文将详细讲解如何在Java环境下创建和使用Oracle存储过程。 首先，我们来看第一种创建Java存储过程的方法，即通过Oracle的SQL语句直接创建。这涉及到两个步骤：一是创建Java源代码，二是定义存储过程。例如： ```...
MybatisPlus中调用Oracle存储过程
DonLex 的博客
12-31 8561
起因 由于需要将新数据同步到另外的数据库，所以需要使用dblink进行操作，但是dblink不支持写入操作，因此需要调用写好的存储过程才能实现将新数据插入新数据的同时插入旧数据库。 准备工作 预先准备好新旧两个数据库 旧的数据库 create table OLD_USER ( USER_ID NUMBER(6) not null primary key,...
Ibatis调用Oracle存储过程返回自定义类型
04-28
### Ibatis调用Oracle存储过程返回自定义类型 在企业级应用开发中，尤其是在金融、保险等业务场景中，往往需要处理复杂的数据结构与逻辑。本文将深入探讨如何使用Ibatis框架来调用Oracle数据库中的存储过程，并实现...
项目里用到用java写oracle的存储过程，做个备份
03-16
通常，这种文本文件可能是日志、配置信息或测试数据，但在这里，它并没有直接影响到Java调用Oracle存储过程的知识点。如果需要进一步了解该文件，建议查看其内容或者提供更多上下文信息。 总之，使用Java调用Oracle...
oracle记录存储过程日志的方法
04-24
本包用于记录存储过程里面的日志，将日志信息写入日志表(mylog)。可以记录日志时间、过程名称、过程里面记录日志的行数、参数值。如果在异常处理部分记录日志，还可以记录异常代码、异常原因、异常产生的行数。 本人使用开发环境为oracle10g
ORACLE存储中记录日志
01-20
自已写的可在ORACLE存储过程中记录运行日志工具包，调用方便简单。
用callabledStatement调用oracle存储过程实用例子（IN OUT 传游标）
09-10
用callabledStatement调用oracle存储过程实用例子（IN OUT 传参数包括游标类型）
oracle call 存储过程 带out_Oracle存储过程实现批量表分区
weixin_39822147的博客
11-29 220
实际工作中，单个表里往往存有非常多的数据（千万级以上），此时应该对表进行分区，而且常常采取每日一个分区，如果创表时手动设置分区，以天划分的话要分成几百上千个，手动不太现实。因此只能用存储过程实现。实现案例首先创建一个测试表，设置为范围分区，先创建一个分区2020-01-01create table test_par( par_id varchar2(50), hire_date date) par...
oracle存储过程基本使用
lizhengyu891231的博客
08-02 711
转载自： https://blog.csdn.net/Harry_ZH_Wang/article/details/70975647 存储过程在数据库开发的过程中使用比较频繁，它也有着普通sql语句不可替代的作用，可以有效的提程序的执行效率。存储过程可以简单的理解为在数据库中执行的某种带特定功能的程序，其中包含一条或多条sql语句，它的语法大体与PLSQL相同，也有其自身的不同。 首先我们创建...
oracle call 存储过程 带out_Oracle就业课之五 存储过程
weixin_39873177的博客
12-03 2514
Oracle讲课笔记4存储过程概念：存储过程(Stored Procedure )是一组为了完成特定功能的SQL 语句集，经编译后存储在数据库中。用户通过指定存储过程的名字并给出参数(如果该存储过程带有参数)来执行它。存储过程是数据库中的一个重要对象，任何一个设计良好的数据库应用程序都应该用到存储过程。 存储过程是由流控制和SQL 语句书写的过程，这个过程经编译和优化后存储在数据库服务器...
c#中使用call调用oracle存储过程并获取out参数值
热门推荐
JACKY.昊昊 的专栏
12-20 1万+
1.创建测试存储过程：SQL> create or replace procedureproc_test(p1 INvarchar2,p2 OUT varchar2) is 2  begin 3    SELECT p1 INTO p2 FROM dual; 4  end proc_test; 5  / 过程被创建
oracle 存储 日志,oracle存储过程实现记录日志
weixin_35145307的博客
04-04 1130
oracle存储过程实现记录日志create table-- Create tablecreate table t_cem_proc_logs(id varchar2(32),proc_mc varchar2(100),title varchar2(4000),content clob,log_type varchar2(10),log_time date default s...
oracle 中的日志在处理,ORACLE在存储过程中记录日志的处理包
weixin_29453497的博客
04-14 755
Java开发过程中一般使用LOG4J来将程序的运行日志记录到文件中，在ORACLE存储过程中也需要记录日志，我将工作中自己整理的一个记录日志的包分享出来，其实很简单，希望大家多提意见。一、表结构为了能给运维人员查看到相关日志，日志最好记录在表中，表信息如下：其中序号并不是必须的，日志级别参考了LOG4J的日志类型，但没有全部拿过来，只是将常用的几个拿过来了。二、实现实现就是按照表结构插入数据了，这...
oracle call 存储过程 带out
最新发布
05-20
如果你想在 Oracle 数据库中调用一个带有 OUT 参数的存储过程，可以按照以下步骤进行操作： 1. 创建一个存储过程，其中包含一个 OUT 参数。例如： CREATE OR REPLACE PROCEDURE my_proc (input_param IN VARCHAR2,...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值