Oracle cols_as_rows 比對資料
AskTom提供的指令碼,用於比對資料.
create or replace type myscalartype as object
( rnum number, cname varchar2(30), val varchar2(4000) )
/
create or replace type mytabletype as table of myscalartype
/
create or replace
function cols_as_rows( p_query in varchar2 ) return mytabletype
-- This function is designed to be installed ONCE per database, and
-- it is nice to have ROLES active for the dynamic sql, hence the
-- AUTHID CURRENT_USER.
authid current_user
-- This function is a pipelined function, meaning that it'll send
-- rows back to the client before getting the last row itself.
-- In 8i, we cannot do this.
pipelined
as
l_thecursor integer default dbms_sql.open_cursor;
l_columnvalue varchar2(4000);
l_status integer;
l_colcnt number default 0;
l_desctbl dbms_sql.desc_tab;
l_rnum number := 1;
begin
-- Parse, describe and define the query. Note, unlike print_table,
-- I am not altering the session in this routine. The
-- caller would use to_char() on dates to format and if they
-- want, they would set cursor_sharing. This routine would
-- be called rather infrequently. I did not see the need
-- to set cursor sharing therefore.
dbms_sql.parse( l_thecursor, p_query, dbms_sql.native );
dbms_sql.describe_columns( l_thecursor, l_colcnt, l_desctbl );
for i in 1 .. l_colcnt loop
dbms_sql.define_column( l_thecursor, i, l_columnvalue, 4000 );
end loop;
-- Now, execute the query and fetch the rows. iterate over
-- the columns and "pipe" each column out as a separate row
-- in the loop. Increment the row counter after each
-- dbms_sql row.
l_status := dbms_sql.execute(l_thecursor);
while ( dbms_sql.fetch_rows(l_thecursor) > 0 )
loop
for i in 1 .. l_colcnt
loop
dbms_sql.column_value( l_thecursor, i, l_columnvalue );
pipe row
(myscalartype( l_rnum, l_desctbl(i).col_name, l_columnvalue ));
end loop;
l_rnum := l_rnum+1;
end loop;
-- Clean up and return...
dbms_sql.close_cursor(l_thecursor);
return;
end cols_as_rows;
/
create or replace function
cols_as_rows8i( p_query in varchar2 ) return mytabletype
authid current_user
as
l_thecursor integer default dbms_sql.open_cursor;
l_columnvalue varchar2(4000);
l_status integer;
l_colcnt number default 0;
l_desctbl dbms_sql.desc_tab;
l_data mytabletype := mytabletype();
l_rnum number := 1;
begin
dbms_sql.parse( l_thecursor, p_query, dbms_sql.native );
dbms_sql.describe_columns( l_thecursor, l_colcnt, l_desctbl );
for i in 1 .. l_colcnt loop
dbms_sql.define_column( l_thecursor, i, l_columnvalue, 4000 );
end loop;
l_status := dbms_sql.execute(l_thecursor);
while ( dbms_sql.fetch_rows(l_thecursor) > 0 )
loop
for i in 1 .. l_colcnt
loop
dbms_sql.column_value( l_thecursor, i, l_columnvalue );
l_data.extend;
l_data(l_data.count) :=
myscalartype( l_rnum, l_desctbl(i).col_name, l_columnvalue );
end loop;
l_rnum := l_rnum+1;
end loop;
dbms_sql.close_cursor(l_thecursor);
return l_data;
end cols_as_rows8i;
/
以HR表為例,比對員工編號200和201的員工資料
column val format a20;
select a.cname,a.val,b.val from
table(cols_as_rows('select * from hr.employees where employee_id=200')) a,
table(cols_as_rows('select * from hr.employees where employee_id=201')) b
where a.cname=b.cname and (a.val is not null or b.val is not null)
order by a.cname;
create or replace type myscalartype as object
( rnum number, cname varchar2(30), val varchar2(4000) )
/
create or replace type mytabletype as table of myscalartype
/
create or replace
function cols_as_rows( p_query in varchar2 ) return mytabletype
-- This function is designed to be installed ONCE per database, and
-- it is nice to have ROLES active for the dynamic sql, hence the
-- AUTHID CURRENT_USER.
authid current_user
-- This function is a pipelined function, meaning that it'll send
-- rows back to the client before getting the last row itself.
-- In 8i, we cannot do this.
pipelined
as
l_thecursor integer default dbms_sql.open_cursor;
l_columnvalue varchar2(4000);
l_status integer;
l_colcnt number default 0;
l_desctbl dbms_sql.desc_tab;
l_rnum number := 1;
begin
-- Parse, describe and define the query. Note, unlike print_table,
-- I am not altering the session in this routine. The
-- caller would use to_char() on dates to format and if they
-- want, they would set cursor_sharing. This routine would
-- be called rather infrequently. I did not see the need
-- to set cursor sharing therefore.
dbms_sql.parse( l_thecursor, p_query, dbms_sql.native );
dbms_sql.describe_columns( l_thecursor, l_colcnt, l_desctbl );
for i in 1 .. l_colcnt loop
dbms_sql.define_column( l_thecursor, i, l_columnvalue, 4000 );
end loop;
-- Now, execute the query and fetch the rows. iterate over
-- the columns and "pipe" each column out as a separate row
-- in the loop. Increment the row counter after each
-- dbms_sql row.
l_status := dbms_sql.execute(l_thecursor);
while ( dbms_sql.fetch_rows(l_thecursor) > 0 )
loop
for i in 1 .. l_colcnt
loop
dbms_sql.column_value( l_thecursor, i, l_columnvalue );
pipe row
(myscalartype( l_rnum, l_desctbl(i).col_name, l_columnvalue ));
end loop;
l_rnum := l_rnum+1;
end loop;
-- Clean up and return...
dbms_sql.close_cursor(l_thecursor);
return;
end cols_as_rows;
/
create or replace function
cols_as_rows8i( p_query in varchar2 ) return mytabletype
authid current_user
as
l_thecursor integer default dbms_sql.open_cursor;
l_columnvalue varchar2(4000);
l_status integer;
l_colcnt number default 0;
l_desctbl dbms_sql.desc_tab;
l_data mytabletype := mytabletype();
l_rnum number := 1;
begin
dbms_sql.parse( l_thecursor, p_query, dbms_sql.native );
dbms_sql.describe_columns( l_thecursor, l_colcnt, l_desctbl );
for i in 1 .. l_colcnt loop
dbms_sql.define_column( l_thecursor, i, l_columnvalue, 4000 );
end loop;
l_status := dbms_sql.execute(l_thecursor);
while ( dbms_sql.fetch_rows(l_thecursor) > 0 )
loop
for i in 1 .. l_colcnt
loop
dbms_sql.column_value( l_thecursor, i, l_columnvalue );
l_data.extend;
l_data(l_data.count) :=
myscalartype( l_rnum, l_desctbl(i).col_name, l_columnvalue );
end loop;
l_rnum := l_rnum+1;
end loop;
dbms_sql.close_cursor(l_thecursor);
return l_data;
end cols_as_rows8i;
/
以HR表為例,比對員工編號200和201的員工資料
column val format a20;
select a.cname,a.val,b.val from
table(cols_as_rows('select * from hr.employees where employee_id=200')) a,
table(cols_as_rows('select * from hr.employees where employee_id=201')) b
where a.cname=b.cname and (a.val is not null or b.val is not null)
order by a.cname;
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/29254281/viewspace-1609294/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 資料庫選型比對 Oracle vs sqlserver資料庫OracleSQLServer
- Oracle、NoSQL和NewSQL 資料庫技術對比OracleSQL資料庫
- Oracle和MySQL資料庫CTAS等操作對比OracleMySql資料庫
- 資料庫對比SQL SERVER 、 ORACLE、DB2資料庫SQLServerOracleDB2
- Oracle資料庫的版本變遷功能對比Oracle資料庫
- MySQL 資料對比MySql
- MySQL和Oracle對比學習之資料字典後設資料MySqlOracle
- Oracle、NoSQL和NewSQL 資料庫技術對比(一)OracleSQL資料庫
- 【SQL】Oracle資料庫變更後sql效能對比SQLOracle資料庫
- Oracle、NoSQL和NewSQL 資料庫技術對比(二)- 終結OracleSQL資料庫
- oracle資料庫兩表資料比較Oracle資料庫
- TSPython操作MySQL MongoDB Oracle三大資料庫深入對比oeePythonMySqlMongoDBOracle大資料資料庫
- 檔案系統儲存與oracle資料庫儲存對比Oracle資料庫
- HACMP & Oracle Clusterware 對比ACMOracle
- 漫談“資料拆分層次對比”
- Redux 非同步資料流方案對比Redux非同步
- MySQL 對比資料庫表結構MySql資料庫
- 關聯式資料庫與文件資料庫對比資料庫
- 直播強勢來襲:Oracle nologgiing;資料庫上雲;國產資料庫比對Oracle資料庫
- 《卸甲筆記》-PostgreSQL和Oracle的資料型別的對比系列四:大資料型別筆記SQLOracle資料型別大資料
- oracle shutdown 引數對比Oracle
- 關於ORACLE 和MYSQL INNODB 觸發髒資料寫的機制對比OracleMySql
- 資料庫事務與隔離級別示例(oracle與sql server對比)資料庫OracleSQLServer
- 小程式與Vue對比·資料繫結Vue
- 手寫一個業務資料比對庫
- 幾款分散式資料庫的對比分散式資料庫
- MySql和SQL Server資料型別 對比MySqlServer資料型別
- i美股:中外線上旅遊資料對比
- 8 種 NoSQL 資料庫系統對比SQL資料庫
- 8種NoSQL資料庫系統對比SQL資料庫
- Oracle資料庫遷移方案比較Oracle資料庫
- BI工具對比|Smartbi與億信ABI兩款BI資料看板軟體對比
- 對Oracle效能資料的獲得。Oracle
- 大資料教程系列之Kafka和activemq對比大資料KafkaMQ
- PostgreSQL 資料庫結構(DDL)比對工具 pgquarrelSQL資料庫
- 主備資料庫狀態手工比對(一)資料庫
- 主備資料庫狀態手工比對(二)資料庫
- 資料庫執行效率的對比測試資料庫