ORACLE常用命令

为什么80%的码农都做不了架构师？>>>   

■　ディレクトリ検索
select dbms_lob.fileexists(bfilename('BSA_DIR', 'lock')) from dual;

■　オラクルサーバにてファイル内容を調査する
declare
v1 varchar2(32767);
f1 utl_file.file_type;
begin
f1 := utl_file.fopen('BSA_DIR','exp_upsert.txt','r');
loop
utl_file.get_line(f1,v1);
dbms_output.put_line('v1: ' || v1);
end loop;
utl_file.fclose(f1);
exception
when no_data_found then
utl_file.fclose(f1);
end;

■　package有効かどうか検証する
set serveroutput on

declare
tmp_str varchar2(2000);
begin
tmp_str := bsa_pkg.replace_greek('aaa');
dbms_output.put_line(tmp_str);
end;

■　package有効期間の判断
SELECT object_name||','||object_type||','||owner||','||status||','||last_ddl_time FROM
dba_objects WHERE object_name = 'BSA_PKG';

■　紙面データを導入するかどうかの検証
select to_char(up_date,'yyyy-mm-dd hh24:mi:ss') from bsa_stockbike where trunc(up_date) = trunc(sysdate) and rtu_state='333' order by up_date;

##########oracle内package作成の例子############
■　PACKAGE存在かどうかの確認

SQL> select object_name from dba_objects where object_name='TEST_PACKAGE_1';

レコードが選択されませんでした

■　PACKAGEの作成

CREATE OR REPLACE PACKAGE "CLARO"."TEST_PACKAGE_1" 
is
 tmp_str varchar2(20);
 tmp_cnt varchar2(20);
 function return_str_cnt(str in varchar2) return pls_integer;

 procedure print_str;

end;
/
CREATE OR REPLACE PACKAGE BODY "CLARO"."TEST_PACKAGE_1" is
  function return_str_cnt(str in varchar2) return pls_integer is
    cnt pls_integer;
  begin
    cnt := lengthb(str);
    return cnt;
  end return_str_cnt;

  procedure print_str is 
  begin
     dbms_output.put_line('bbbbbb');
  end print_str;     
end test_package_1;
/

■　PACKAGEの実行確認

set serveroutput on
declare
 cnt pls_integer; 
begin
   cnt :=TEST_PACKAGE_1.return_str_cnt('aaaaa');
   dbms_output.put_line(cnt);
end;
/

begin
  TEST_PACKAGE_1.print_str;
end;
/

■　PACKAGEの削除

drop package TEST_PACKAGE_1;

■　削除後もう一回の確認

SQL> select count(*) from dba_objects where object_name='TEST_PACKAGE_1';

  COUNT(*)
----------
         0

转载于:https://my.oschina.net/luqin/blog/468278