當前位置:首頁 » 編程語言 » plsqlinout
擴展閱讀
webinf下怎麼引入js 2023-08-31 21:54:13
堡壘機怎麼打開web 2023-08-31 21:54:11

plsqlinout

發布時間: 2022-01-23 21:34:28

㈠ 如何開發ORACLE存儲過程

簡單地講,Oracle存儲過程就是存儲在Oracle資料庫中的一個程序。 一. 概述 Oracle存儲過程開發的要點是: · 使用Notepad文本編輯器,用Oracle PL/sql編程語言寫一個存儲過程; ·在Oracle資料庫中創建一個存儲過程; ·在Oracle資料庫中使用SQL*Plus工具運行存儲過程; ·在Oracle資料庫中修改存儲過程; · 通過編譯錯誤調試存儲過程; · 刪除存儲過程; 二.環境配置 包括以下內容: · 一個文本編輯器Notepad; · Oracle SQL*Plus工具,提交Oracle SQL和PL/SQL 語句到Oracle database。 · Oracle 10g express資料庫,它是免費使用的版本; 需要的技巧: · SQL基礎知識,包括插入、修改、刪除等 · 使用Oracle's SQL*Plus工具的基本技巧; · 使用Oracle's PL/SQL 編程語言的基本技巧; 三.寫一個存儲過程 存儲過程使用Oracle's PL/SQL 程序語言編寫,讓我們寫一個什麼工作都不做的存儲過程,我們可以編譯和運行它而不用擔心會對資料庫產生任何損害。 在Notepad, 寫下: CREATE OR REPLACE PROCEDURE skeleton IS BEGIN NULL; END; 把文件存為skeleton.sql. 讓我們一行行遍歷這個存儲過程: 1 CREATE OR REPLACE PROCEDURE skeleton 2 IS 3 BEGIN 4 NULL; 5 END; 行1: CREATE OR REPLACE PROCEDURE 是一個SQL語句通知Oracle資料庫去創建一個叫做skeleton存儲過程, 如果存在就覆蓋它; 行2: IS關鍵詞表明後面將跟隨一個PL/SQL體。 行3: BEGIN關鍵詞表明PL/SQL體的開始。 行4: NULL PL/SQL語句表明什麼事都不做,這句不能刪去,因為PL/SQL體中至少需要有一句; 行5: END關鍵詞表明PL/SQL體的結束 四.創建一個存儲過程 SQL語句CREATE OR REPLACE PROCEDURE在Oracle資料庫中創建、編譯和保存一個存儲過程。 從Window打開SQL*Plus並且從SQL*Plus登錄到你的資料庫;打開skeleton.sql文件. 在SQL>命令提示符下輸入以下命令: SQL>@skeleton SQL>/ SQL*Plus裝載skeleton.sql文件的內容到SQL*Plus緩沖區並且執行SQL*Plus語句;SQL*Plus 會通知你存儲過程已經被成功地創建。 現在你的存儲過程被創建,編譯和保存在你的Oracle資料庫,我們可以運行它。 五.運行一個存儲過程 從SQL*Plus 命令行提示符運行你的存儲過程使用EXECUTE命令,如下: SQL> EXECUTE skeleton; SQL*Plus 輸出一下信息確信存儲過程成功執行: PL/SQL procere successfully completed. 你也可以在一個無名PL/SQL塊內運行你的存儲過程,在SQL*Plus命令提示符下,它看起來像: SQL> BEGIN 2 SKELETON; 3 END; 4 / 現在我們已經運行了我們的存儲過程,我們如何修改它呢? 六.修改一個存儲過程 讓我們寫一個輸出字元串「Hello World!」的存儲過程,用Notepad打開你的skeleton.sql 文件,. 用DBMS_OUTPUT.PUT_LINE 過程調用去替換NULL語句,如下所示: CREATE OR REPLACE PROCEDURE skeleton IS BEGIN DBMS_OUTPUT.PUT_LINE('Hello World!'); END; 保存到文件skeleton.sql. 從SQL*Plus命令行, 打開文件skeleton.sql . SQL> @skeleton SQL> 1 CREATE OR REPLACE PROCEDURE skeleton 2 IS 3 BEGIN 4 DBMS_OUTPUT.PUT_LINE('Hello World!'); 5* END; SQL> / SQL*Plus 通知你存儲過程成功創建並輸出提示信息:Procere created. SQL> 用EXECUTE 命令運行你的存儲過程: SQL> EXECUTE skeleton; SQL*Plus顯示存儲過程運行成功:PL/SQL procere successfully completed. 我們想要的輸出字元串 "Hello World!"沒有出來,在顯示一個DBMS_OUTPUT.PUT_LINE 結果前需要運行一個SET命令,在SQL*Plus 命令行提示符,鍵入: SQL> SET SERVEROUTPUT ON 再次執行你的存儲過程: SQL> EXECUTE skeleton; 現在結果輸出了:Hello World! PL/SQL procere successfully completed. 七.調試一個存儲過程 當調試一個存儲過程時,遵循一樣的步驟,修改SQL文件,創建存儲過程,執行存儲過程,根據編譯器反饋的出錯信息進行修改,這一步是非常繁瑣的,需要依靠經驗。 在實際的商用存儲過程的開發調試過程中,由於涉及很多表、類型、游標、循環、條件等復雜的邏輯,和PL/SQL語句的靈活運用,編譯時會產生很多錯誤提示信息,程序員在根據這些錯誤信息定位,進行修正,再編譯最後得到正確的結構; 八.放棄一個存儲過程 如果在資料庫中你不在需要一個存儲過程你可以刪除它,SQL語句 DROP PROCEDURE 完成從資料庫中刪除一個存儲過程,DROP PROCEDURE 在SQL中被歸類為數據定義語言(DDL) 類操作,其他的例子有CREATE, ALTER, RENAME 和TRUNCATE。. 在SQL*Plus 命令提示符下,使用DROP PROCEDURE SQL 語句刪除你的叫做skeleton的存儲過程: SQL> DROP PROCEDURE skeleton; SQL*Plus assures us the procere has been removed: Procere dropped. 總結 本文詳細討論了如何使用Oracle工具開發Oracle商用存儲過程的步驟。最後在存儲過程的使用中可能是程序直接調用,也可能被觸發器調用。

㈡ plsql問題3

--設:日期(date) 收入(income) 支出(payout) 余額(balance)

1.使用窗口函數和sum() 來做累計: sum()over():
select a.date , a.income,a.payout
,sum(a.income-a.payout)over(partition by a.date , a.income) balance
from mytable a
order by 1;

2.

insert into mytable values ('2000/3/5',60,10);
commit;

select a.date , a.income,a.payout
,sum(a.income-a.payout)over(partition by a.date , a.income) balance
from mytable a
order by 1;

3.
2000/3/3 0 0 5
2000/3/4 0 0 5
insert into mytable values ('2000/3/3',0,0);
commit;

insert into mytable values ('2000/3/4',0,0);
commit;

select a.date , a.income,a.payout
,sum(a.income-a.payout)over(partition by a.date , a.income) balance
from mytable a
order by 1;

㈢ pl/sql where 後面的欄位名是變數 怎麼寫

可以。。但最好是輸入參數(in)或者輸入輸出參數(inout)因為,如果是在過程中聲明的變數你還需要對他賦值,所以乾脆從外部輸入或者在變數名之前加&符號,這樣在語句執行到此處時就會提示你手動輸入一個值。

select * from table where v_abc = 'abc';這句有錯誤
應該寫成:
v_abc:='abc'; --先賦值
select * from table where column_name = v_abc;

column_name 是表中已經存在的列名
當然,v_abc的類型要與column_name的類型相同,你可以通過「v_abc table.column_name%type」這種聲明方式保證他們類型的一致性。

祝你成功 ^^ )

㈣ pl/sql,有兩個循環,內循環跟外循環,現在要外循環一次再內循環一次,總共這樣五次,如何弄高手幫幫忙

你的問題描述不清楚,不知道是不是這個意思
1 declare
2 i int :=1;
3 m int :=0;
4 begin
5 <<outer>>
6 while i<=5 loop
7 i :=i+1;
8 dbms_output.put_line('out');
9 m:=0;
10 <<inner>>
11 loop
12 m:=m+1;
13 dbms_output.put_line('in');
14 exit when m=1;
15 end loop inner;
16 end loop outer;
17* end;
SYS@orcl>> /
out
in
out
in
out
in
out
in
out
in

㈤ PL/SQL的執行操作

過程:執行特定操作

函數:用於返回特定數據 語法:create [orreplace] procere procere_name(argument1 [model]datatype1,argment2 [mode2],...)
is [as]
pl/sql block;
1.建立過程:不帶任何參數
create or replaceprocecre out_time
is
begin
dbms_output.put_line(systimestamp);
end;
2.調用過程
set serveroutput on
exec out_time
set serveroutput on
call out_time();
3.建立過程:帶有IN參數
CREATE OR REPLACE PROCEDURE add_employee(eno NUMBER,NAME VARCHAR2,sal NUMBER,job VARCHAR2 DEFAULT 'clerk',dno NUMBER) ISe_integrity EXCEPTION;PRAGMA EXCEPTION_INIT(e_integrity, -2291);BEGININSERT intoimp(empno,ename,sal,job,deptno)VALUES(eno,NAME,sal,job,dno);EXCEPTIONWHEN p_val_on_index THENraise_application_error(-20000, '雇員號不能重復');WHEN e_integrity THENraise_application_error(-20001, '部門不存在');END add_employee;
4.建立過程:帶有OUT參數
create or replaceprocere qry_employee
(eno number,name outvarchar2,salary out number)
is
begin
selectename,sal into name,salary from emp where empno=eno;
exception
whenno_date_found then
raise_application_error(-20000,'該雇員不存在');
end;
當在應用程序中調用該過程時,必須要定義變數接受輸出參數的數據
sql>var name varchar2(10)
var salary number
exec qry_employee(7788,:name,:salary)
print name salary
5.建立過程:帶有INOUT參數(輸入輸出參數)
create or replaceprocere compute
(num1 in outnumber,num2 in out number)
is
v1number;
v2number;
begin
v1:num1/num2;
v2:mod(num1,num2);
num1:=v1;
num2:=v2;
end;
sql>var n1 number
var n2 number
exec :n1:=100
exec :n2:=30
exec ecmpute(:n1,:n2)
print n1 n2
6.為參數傳遞變數和數據
位置傳遞,名稱傳遞,組合傳遞三種
1.位置傳遞:在調用子程序時按照參數定義的順序為參數指定相應的變數或數值
exec add_dept(40,'sales','new york');
exec add_dept(10);
2.名稱傳遞:在調用子程序時指定參數名,並使用關聯符號=>為其提供相應的數值或變數
execadd_dept(dname=>'sales',dno=>50);
exec add_dept(dno=>30);
3.組合傳遞:同時使用位置傳遞和名稱傳遞
exec add_dept(50,loc=>'new york');
execadd_dept(60,dname=>'sales',loc=>'newyork');
7.查看過程原代碼
oracle會將過程名,源代碼以及其執行代碼存放到數據字典中.執行時直接按照其執行代碼執行
可查詢數據字典(user_source)
select textfrom user_source where name='add_dept';
刪除過程
dropprocere add_dept; 用於返回特定函數
語法:create [orreplace] function function_name
(argument1 [mode1] datatype1,
argument2 [mode2] datatype2,
.....)
returndatatype --函數頭部必須要帶有RETURN子句,至少要包含一條RETURN語句
is|as pl/sql block;
1.建立函數:不帶任何參數
create or replacefunction get_user
return varchar2
is
v_uservarchar2(100);
begin
selectusername into v_user from user_users;
returnv_user;
end;
2.使用變數接受函數返回值
sql>var v1 varchar2(100)
exec :v1:=get_user
print v1
在SQL語句中直接調用函數
selectget_user from d l;
使用DBMS_OUTPUT調用函數
setserveroutput on
execdbms_output.put_line('當前資料庫用戶:'||ger_user)
3.建立函數:帶有IN參數
create orreplace function get_sal(name in varchar2)
returnnumber
as
v_sal emp.sal%type;
begin
select sal into v_sal from emp where upper(ename)=upper(name);
return v_sal;
exception
when no_data_found then
raise_application_error(-20000,'該雇員不存在');
end;
4.建立函數:帶有out參數
create or replacefunction get_info(name varchar2,title out varchar2)
return varchar2
as
deptnamedept.dname%type;
begin
selecta.job,b.dname into title,deptname from emp a,dept b anda.deptno=b.deptno
anpper(a.ename)=upper(name);
returndeptname
exception
whenno_data_found then
raise_application_error(-20000,'該雇員不存在');
end;
sql>var job varchar2(20)
var dname varchar2(20)
exec :dname:=get_info('scott',:job)
print danme job
5.建立函數:帶有INOUT參數
create or replacefunction result(num1 number,num2 in out number)
return number
as
v_resultnumber(6);
v_remaindernumber;
begin
v_result:=num1/num2;
v_remainder:=mod(num1,num2);
num2:=v_remainder;
returnv_result;
exception
whenzero_divide then
raise_application_error(-20000,'不能除0');
end;
sql>var result1 number
var result2 number
exec :result2:=30
exec :result1:=result(100,:result2)
print result result2
6.函數調用限制
SQL語句中只能調用存儲函數(伺服器端),而不能調用客戶端的函數
SQL只能調用帶有輸入參數,不能帶有輸出,輸入輸出函數
SQL不能使用PL/SQL的特有數據類型(boolean,table,record等)
SQL語句中調用的函數不能包含INSERT,UPDATE和DELETE語句
7.查看函數源代碼
oracle會將函數名及其源代碼信息存放到數據字典中user_source
set pagesize 40
select text fromuser_source where name='result';
8.刪除函數
drop functionresult; 1.列出當前用戶的子程序
數據字典視圖USER_OBJECTS用於顯示當前用戶所包含的所有對象.(表,視圖,索引,過程,函數,包)
sql>col object_name format a20
select object_name,created,status from user_objects whereobject_type in ('procere','function')
2.列出子程序源代碼
select text fromuser_source where name='raise_salsry';
3.列出子程序編譯錯誤
使用SHOWERRORS命令確定錯誤原因和位置
show errorsprocere raise_salary
使用數據字典視圖USER_ERRORS確定錯誤原因和位置
col text formata50
selectline||'/'||position as line/col,text error from user_errors wherename='raise_salary';
4.列出對象依賴關系
使用數據字典視圖USER_DEPENDENCIES確定直接依賴關系
select name,typefrom user_dependencies where referenced_name='emp';
使用工具視圖DEPTREE和IDEPTREE確定直接依賴和間接依賴關系
先運行SQL腳本UTLDTREE.SQL來建立這兩個視圖和過程DEPTREE_FILL,然後調用DEPTREE_FILL填充這兩個視圖
sql>@%oracle_home% dbmsadminutldtree
exec deptree_fill('TABLE','scott','emp')
執行後會將直接或間接依賴於SCOTT.EMP表的所有對象填充到視圖DEPTREE和IDEPTREE中.
select nested_level,name,type from deptree;
select * from ideptree
5.重新編譯子程序
當修改了被引用對象的結構時,就會將相關依賴對象轉變為無效(INVALID)狀態。
alter table emp addremark varchar2(10);
selectobject_name,object_type from user_objects wherestatus='invalid';
為了避免子程序的運行錯誤,應該重新編譯這些存儲對象
alter procereadd_employee compile;
alter view dept10compile;
alter functionget_info compile; 包用於邏輯組合相關的PL/SQL類型,項和子程序,由包規范和包體組成
1.建立包規范:包規范是包與應用程序之間的介面,用於定義包的公用組件,包括常量,變數,游標,過程,函數等
create [or replace]package package_name
is|as
p lic type and item declarations
s program specificationsend package_name;
create or replacepackage emp_package is
g_deptnonumber(3):=30;
procereadd_employee(eno number,name varchar2,salary number,dno numberdefault g_deptno);
procerefire_employee(eno number);
functionget_sal(eno number) return number;
end emp_package;
2.建立包體:用於實現包規范所定義的過程和函數
create [or replace]package body package_name
is|as
private type and item declarations
s program bodies
endpackage_name;
create or repalce package body emp_package is
functionvalidate_deptno(v_deptno number)
return boolean
is
v_temp int;
begin
select 1 into v_temp from dept where deptno=v_deptno;
return tr;
exception
when no_date_found then
return false;
end;
procere add_employee(eno number,name varchar2,salary number,dnonumber default g_deptno)
is
begin
if validate_deptno(dno) then
insert into emp(empno,ename,sal,deptno)vals(eno,name,salsry,dno);
else
raise_application_error(-20010,'不存在該部門');
end if;
exception
when p_val_on_index then
raise_application_error(-20012,'該雇員已存在');
end;
procere fire_employee(eno number) is
begin
delete from emp where empno=eno;
if sql%notfound then
raise_application_error(-20012,'該雇員不存在');
end if;
end;
functionget_sal(eno number) return number
is
v_sal emp.sal%type;
begin
select sal into v_sal from emp where empno=eno;
return v_sal;
exception
whenno_data_found then
raise_application_error(-20012,'該雇員不存在');
end;
end emp_package;
3.調用包組件
3.1在同一個包內調用包組件
create or replacepackage body emp_package is
procere add_employee(eno number,name va har2,salary number,dnonumber default g_deptno)
is
begin
ifvalidate_deptno(dno) then
insert into emp(empno,ename,sal,deptno)vals(eno,name,salary,dno);
else
raise_application_error(-20010,'該部門不存在')
end if;
exception
when p_val_on_index then
raise_application_error(-20011,'該雇員已存在')
end;
.........
3.2調用包公用變數
execemp_package.g_deptno:=20
3.3調用包公用過程
execemp_package.add_employee(1111,'mary',2000)
3.4調用包公用函數
var salarynumber
exec:salary:=emp_package.get_sal(7788)
print salary
3.5以其他用戶身份調用包公用組件
connsystem/manager
execscott.emp_package.add_employee(1115,'scott',1200)
execscott.emp_package.fire_employee(1115)
3.6調用遠程資料庫包的公用組件
execemp_package.add_employee@orasrv(1116,'scott',1200)
4.查看源代碼:存放在數據字典USER_SCOURCE中
select text fromuser_source where name='emp-package' and type='package';
5.刪除包
drop packageemp_package;
6.使用包重載
重載(overload)是指多個具有相同名稱的子程序
1.建立包規范
同名的過程和函數必須具有不同的輸入參數,同名函數返回值的數據類型必須完全相同
create or replacepackage overload is
functionget_sal(eno number) return number;
functionget_sal(name varchar2) return number;
procerefile_employee(eno number);
procerefile_employee(name varchar2);
end;
2.建立包體
必須要給不同的重載過程和重載函數提供不同的實現代碼
create or replacepackage body overload is
function get_sal(eno number) return number
is
v_sal emp.sal%type;
begin
select sal into v_sal from emp where empno=eno;
return v_sal;
exception
when no_data_found then
raise_application_error(-20020,'該雇員不存在');
end;
function get_sal(name varchar2) return number
is
v_sal emp.sal%type;
begin
select sal into v_sal from emp where upper(ename)=upper(name);
return v_sal;
exception
when no_data_found then
raise_application_error(-20020,'該雇員不存在');
end;
procere fire_employee(eno number) is
begin
delete from emp where empno=no;
if sql%notfound then
raise_application_error(-20020,'該雇員不存在');
end if;
end;
procerefire_employee(name varchar2) is
begin
delete from emp where upper(ename)=upper(name);
if sql%notfound then
raise_application_error(-20020,'該雇員不存在');
end if;
end;
end;
3.調用重載過程和重載函數
var sal1 number
var sal2 number
exec:sal1:=overload.get_sal('scott')
exec:sal2:=overload.get_sal(7685)
execoverload.fire_employee(7369)
execoverload.fire_employee('scott')
7.使用包構造過程
類似於高級語言中的構造函數和構造方法
1.建立包規范
包的構造過程用於初始化包的全局變數.
create or replacepackage emp_package is
minsalnumber(6,2);
maxsalnumber(6,2);
procereadd_employee(eno number,name varchar2,salary number,dnonumber);
procereupd_sal(eno number,salary number);
procereupd_sal(name varchar2,salary number);
end;
2.建立包體
包的構造過程沒有任何名稱,它是實現了包的其他過程後,以BEGIN開始,END結束的部分
create or replacepackage body emp_package is
procereadd_employee(eno number,name varchar2,salary number,dno number)
is
begin
if salarybetween minsal and maxsal then
insert into emp (empno,ename,sal,deptno)vals(eno,name,salary,dno);
else
raise_application_error(-20001,'工資不在范圍內');
end if;
exception
when p_val_on_index then
raise_application_error(-20002,'該雇員已經存在');
end;
procereupd_sal(eno number,salary number) is
begin
if salary between minsal and maxsal then
update emp set sal=salary where empno =eno;
if sql%notfound then
raise_application_error(-20003,'不存在雇員號');
end if;
else
raise_application_errpr(-20001,'工資不在范圍內');
end if;
end;
procere upd_sal(name varchar2,salary number) is
begin
if salary between minsal and maxsal then
update emp set sal=salary where upper(ename)=upper(name);
if sql%notfound then
raise_application_error(-20004,'不存在該雇員名');
end if;
else
raise_application_error(-20001,'工資不在范圍內');
end if;
end;
begin
selectmi(sal),max(sal) into minsal,maxsal from emp ;
end;
調用包公用組件:構造過程只調用一次
execemp_package.add_employee(1111,'mary',3000,20)
execemp_package.upd_sal('mary',2000)
8.使用純度級別
在SQL中引用包的公用函數,該公用函數不能包含DML語句(insert,update,delete),也不能讀寫遠程包的變數
為了對包的公用函數加以限制,在定義包規范時,可以使用純度級別(purity level)限制公用函數
語法:pragmarestrict_references (function_name,wnds[,wnps][,rnds][,rnps]);
wnds:用於限制函數不能修改資料庫數據(禁止DML)
wnps:用於限制函數不能修改包變數(不能給包變數賦值)
rnds:用於限制函數不能讀取資料庫數據(禁止SELECT操作)
rnps:用於限制函數不能讀取包變數(不能將包變數賦值給其他變數)
1.建立包規范
create or replacepackage purity is
minsalnumber(6,2);
maxsalnumber(6,2);
functionmax_sal return number;
functionmin_sal return number;
pragmarestrict_references(max_sal,wnps);--不能修改
pragmarestrict_references(min_sal,wnps);
end;
2.建立包體
create or replacepackage body purity is
function max_sal return number
is
begin
return maxsal;
end;
functionmin_sal return number
is
begin
return minsal;
end;
begin
select min(sal),max(sal) into minsal,maxsal from emp;
end;
3.調用包的公用函數
var minsal number
var maxsal number
exec :minsal:=purity.minsal()
exec :maxsal:=purity.maxsal()
print minsal maxsal PL/SQL處理異常不同於其他程序語言的錯誤管理方法,PL/SQL的異常處理機制與ADA很相似,有一個處理錯誤的全包含方法。
PL/SQL處理異常不同於其他程序語言的錯誤管理方法,PL/SQL的異常處理機制與ADA很相似,有一個處理錯誤的全包含方法。當發生錯誤時,程序無條件轉到異常處理部分,這就要求代碼要非常干凈並把錯誤處理部分和程序的其它部分分開。oracle允許聲明其他異常條件類型以擴展錯誤/異常處理。這種擴展使PL/SQL的異常處理非常靈活。
當一個運行時錯誤發生時,稱為一個異常被拋出。PL/SQL程序編譯時的錯誤不是能被處理得異常,只有在運行時的異常能被處理。在PL/SQL程序設計中異常的拋出和處理是非常重要的內容。

㈥ postgresql資料庫 命令導入表不成功

開始覺得這個導入是個比較簡單的事情,經過測試你的這個,發現還不簡單。

經過嘗試,發現在導入時,需要在cvs文件中加入導入欄位的定義,即第一行需要有欄位名,然後在命令中要指定選項header為true.另外,為了保證成功,還加入format指定為csv,文件格式指定為utf8。

我的導入命令:

aa_log(id,callid,calledid)
from'e: 01.csv'
with(formatcsv,headertrue,quote'"',DELIMITER',',encoding'UTF8');

導入文件內容:

id,callid,calledid
1,2,3
4,5,6

導入結果如下圖,

㈦ PL/SQL基礎的過程

存儲過程是一個PL/SQL程序塊,接受零個或多個參數作為輸入(INPUT)或輸出(OUTPUT)、或既作輸入又作輸出(INOUT),與函數不同,存儲過程沒有返回值,存儲過程不能由SQL語句直接使用,只能通過EXECUTE命令或PL/SQL程序塊內部調用,定義存儲過程的語法如下:
PROCEDURE name [(parameter[,parameter,...])] IS
[local declarations]
BEGIN
execute statements
[EXCEPTION
exception handlers ]
END [name]

㈧ 如何在Oracle/2000中調用Windows API函數

1.初始化外部函數
就是說明包含外部函數的動態鏈接庫的位置,並從中分離出外部函數的原型,並將外部函數中主語言的數據類型和PL/SQL數據類型做一一對應的匹配。這是在包體(PackageBody)中進行的。具體分以下幾步:

(1)用OQA_FFI.LOAD_LIBRARY得到包含外部函數的動態鏈接庫的庫柄,此時需提供動態鏈接庫的名字和位置。

(2)用ORA_FFI.REGISTER_FUNCTION得到外部函數的函數柄,這時需提供動態鏈接庫的庫柄和外部函數名。

(3)用ORA_FFI.REGISTER_PARAMETER來注冊外部函數的參數類型,對每一個參數都要提供它的外部函數柄和相應的PL/SQL數據類型。參數注冊的順序必須與它們出現在外部函數原型中的順序一致。

(4)用ORA_FFI.REGISTER_RETURN來注冊外部函數的返回值類型,這時需要提供它的外部函數柄和相應的PL/SQL數據類型。

2.將外部函數和一個PL/SQL子程序相關聯
一個和外部函數建立關聯的PL/SQL子程序,實際上指明了外部函數的內存地址,每次調用這個子程序,實際上是調用與它相對應的外部函數。具體步驟為:

(1)用ORA_FFI.FIND_FUNCTION或ORA_FFI.REGISTER_FUNCTION得到一個函數柄。

(2)在PL/SQL包體的聲明部分,定義一個PL/SQL子程序,它的第一個參數是類型為ORA_FFI.FUNCHANDLETYPE,接下來是依次對應外部函數參數的PL/SQL數據類型的參數。

(3)在這個PL/SQL子程序中加入一個PRAGMA介面。PRAGMA聲明就是通過將控制轉到一個內存地址,來激活這個外部函數。

3.生成一個模仿外部函數的原型的PL/SQL子程序。
這個子程序就是用戶可見的外部函數的PL/SQL介面,用戶按照它的參數類型和返回值類型來使用外部函數,具體步驟為:

(1)在包體的聲明部分,定義一個PL/SQL子程序,它的參數和返回值是和外部函數對應的PL/SQL類型。這就是模仿外部函數原型的一個子程序。

(2)在這個子程序中調用與上步生成的與外部函數相關聯的PL/SQL子程序。

(3)在PL/SQL包的說明(PackageSpefication)部分,輸入這個PL/SQL子程序的原型。

下面是一個完整的為WindowsAPI函數winexec建立PL/SQL介面的例子:

PACKAGEWinExecIS
FUNCTIONWinExec(ExecfileINVARCHAR2,
commandINPLS_INTEGER)
RETURNPLS_INTEGER;
END;/*在包說明部分,是模仿外部
函數原型的PL/SQL函數原型說明*/
PACKAGEBODYWinExecIS
lh_USERora_ffi.libHandleType;/*定義庫柄類型變數*/
fh_WinExecora_ffi.funcHandleType;/*定義函數柄類型變數*/

FUNCTIONi_WinExec(funcHandleINora_ffi.funcHandleType,
ExecfileINOUTVARCHAR2,
commandINPLS_INTEGER)
RETURNPLS_INTEGER;

PRAGMAINTERFACE(C,i_WinExec,11265);
/*步驟2將一個PL/SQL子程序與外部函數相關聯*/

FUNCTIONWinExec(ExecfileINVARCHAR2,
commandINPLS_INTEGER)
RETURNPLS_INTEGER
IS
execfile_lVARCHAR2(512):=Execfile;
rcPLS_INTEGER;
BEGIN
rc:=i_WinExec(fh_WinExec,
execfile_l,
command);

RETURN(rc);
END;
/*步驟3中PL/SQL模仿函數的定義,
它實際上就是調用步驟2中與外部函數建立關聯的那個函數*/
BEGIN
BEGIN
lh_USER:=ora_ffi.find_library('Kernel32.dll');
EXCEPTIONWHENora_ffi.FFI_ERRORTHEN
lh_USER:=ora_ffi.load_library(NULL,'kernel32.dll');
END;/*得到動態鏈接庫的庫柄*/

fh_WinExec:=ora_ffi.register_function
(lh_USER,'WinExec',ora_ffi.PASCAL_STD);
/*得到外部函數的函數柄*/
ora_ffi.register_parameter(fh_WinExec,
ORA_FFI.C_CHAR_PTR);/*參數注冊,原類型為LPCSTR*/
ora_ffi.register_parameter(fh_WinExec,
ORA_FFI.C_INT);/*參數注冊,原類型為UINT*/

ora_ffi.register_return(fh_WinExec,
ORA_FFI.C_INT);/*返回值注冊,原類型為BOOL*/

ENDWinExec;

可以將多個外部函數的PL/SQL介面放在一個包內。要在Developer/2000的FormDesigner中使用這些外部函數,只要把包含這一程序包的程序庫(.PLL)附加進來,使用包名.函數名就可激活這個外部函數。

例如:WinExec.WinExec('c:\windows\notepad.exe',0)

具體WindowsAPI函數數據類型和PL/SQL數據類型的轉換可參照Developer/2000中ProcereBuilder幫助文件中對ORA_FFI軟體包的詳細介紹。

㈨ 在PL/SQL 中請教一個SQL語句怎麼寫

使用游標打開的方式。
create
or
replace
procere
BOB_TABLEVAR_TEST(
Z_TABLE_NAME
IN
VARCHAR2,
Z_RESULTCOUNT
IN
OUT
NUMBER)
is
TYPE
RefCurTyp
IS
REF
CURSOR;
crtest
RefCurTyp;
begin
open
crtest
for
'select
count(*)
as
total
from
'||Z_TABLE_NAME
;
fetch
crtest
into
Z_RESULTCOUNT;
end
BOB_TABLEVAR_TEST;
請採納答案,支持我一下。

㈩ orcale..in out inout用法

in 表示p_parameter是輸入參數,就是運行過程前,要你輸入
out 表示輸出參數 就是運行過程後,顯示出來的結果,PLSQL中會用黃色標出
in out 就是輸入輸出參數,就是運行過程前,要你輸入,運行過程後,顯示出來的最終的這個參數的值