oracle存儲過程的創建
㈠ Oracle怎麼創建存儲過程
首先，我想跟你說一下使用存儲過程的目的。存儲過程，通俗點說，你可以理解為用「儲存」，也就是固化數據用的plsql程序段。大多數用於復雜邏輯的計算或重組數據進行保存。如果你想要查詢數據，可以用select完成的事為什麼要用存儲過程呢？
接下來，說說你寫的東西。這是語法問題，在plsql中，想要通過select語句獲取表或視圖中的某列或多列的值，需要在procere或function的body中的聲名位置定義變數。在select時，使用into來將查詢的列按順序逐一賦值到對應的變數。這是plsql中的select 。。 into 。。句型的語法規則。代碼我就不舉例了，樓上寫的沒有問題。但是他的代碼中需要注意的是，他返回的是一個結構，需要再寫過程來解析結構，從而獲取其中的列值。
希望對你有幫助。
㈡ Oracle如何創建存儲過程和如何調用存儲過程
【delphi+oracle報表解決方案(一)】delphi中調用oracle的存儲過程(分帶返回遊標，不返回值兩種)
關鍵字: delphi ,oracle存儲過程，游標,返回數據集,報表註：delphi 6+ oracle 8.1.6一.創建包與包體1.附：建表aaclass為下面作測試用create table aaclass(CID VARCHAR2(50), CNAME VARCHAR2(50), pnumber NUMBER(10,0) );INSERT INTO aaclass values('c1', 'cn1', 10 ) ;
INSERT INTO aaclass values('c2', 'cn2', 40 ) ;
INSERT INTO aaclass values('c1', 'cn3', 30 ) ;
commit;2.建包:CREATE OR REPLACE PACKAGE PKG_JCCTEST1
AS type rc_class is ref cursor;
--求p1,p2的和與差，返回的多個值通過游標返回
procere GetSubAndSum2(p1 number,p2 number ,
ResultCursor out rc_class);
--查詢滿足條件的數據集，返回數據集通過游標返回
procere GetClass2(a in number,ResultCursor out rc_class ) ; --往表中插一條記錄，不返回結果集時，本人用AdoQuery調用(adodataset好象要求必須返回結果集)
procere InsertClass( p_cid varchar2 ,p_cname varchar2 ,
p_pnumber number) ;
end PKG_JCCTEST1; 3.建包體CREATE OR REPLACE PACKAGE BODY PKG_JCCTEST1
ASprocere GetSubAndSum2(p1 number,p2 number ,
ResultCursor out rc_class)
IS
BEGIN
open ResultCursor for
select p1-p2 as "sum", p1+p2 as "sub" from al;
END ;
procere GetClass2(a in number,ResultCursor out rc_class )
is
begin open ResultCursor for
select aaclass.* from aaclass where pnumber >a;end ;procere InsertClass( p_cid varchar2 ,p_cname varchar2 ,
p_pnumber number)
is
begin
insert into aaclass values(p_cid,p_cname,p_pnumber) ;
-- commit;
end ; 二.在delphi中利用AdoDataSet調用上述第一個存儲過程
1.利用AdoConnection1連接資料庫(驅動為 oracle Provider for OLE DB)，
**並在連接字元串中加入這一節: PLSQLRSet=1; 如下所示：
Provider=OraOLEDB.Oracle.1;Password=KXD;Persist Security Info=True;User ID=KXD;Data Source=TEST3;PLSQLRSet=12.在窗體上加AdoDataSet1 指明連接為上述AdoConnection1,下面可以放一個按鈕，單擊按鈕就能調用第一步中創建的包過程，並返回數據集。代碼如下所示：
procere TForm1.Button1Click(Sender: TObject);
var
AResult , BResult : integer;
begin
ADODataSet1.Close ;
ADODataSet1.CommandType := cmdText ;
ADODataSet1.Parameters.Clear ; //***利用call方法調用oracle過程時，參數必須由?來傳， 即使你要傳的參數為常理
//輸出遊標的參數不需要指定!!!!!!，本來此函數帶三個參數，我們這里只需要傳兩個參數.
ADODataSet1.CommandText := '{call PKG_JCCTEST1.GetSubAndSum2(?,?)}' ; //***C 順序有關，createparam必須放在commandtext賦值語句之後. // 創建第一個參數，對應call中的第一個?,ftinteger為類型,10為長度，45為傳入的實參值
ADODataSet1.Parameters.CreateParameter('p1',ftinteger,pdinput,10,45);
//創建第二個參數，根據createparameter的順序 自動與call中的第二個參數對應
ADODataSet1.Parameters.CreateParameter('p2',ftinteger,pdinput,10,4); //下面調用ADODataSet1 的open方法，返回數據集(對應包過程的游標)
ADODataSet1.Open ; //根據存儲過程，數據集只有一條記錄，所以不需要用while do 來遍歷數據集，直接取數據了 //此處的欄位名根據包過程中的返回遊標 對應的欄位名來取
//定義的存儲過程返回遊標如： open ResultCursor for
// select p1-p2 as "sum", p1+p2 as "sub" from al;
//把對應的欄位值取出來即可
AResult := ADODataSet1.Fields.FieldByName('sub').Value ;
BResult := ADODataSet1.Fields.FieldByName('sum').Value ; //顯示結果
showmessage(inttostr(AResult)) ;
showmessage(inttostr(BResult)) ;end;
三.在delphi中利用AdoDataSet調用上述第二個存儲過程
還是利用上述的AdoDataSet1來調用第二個存儲過程，無需任何改動,加第二個按鈕，單擊時代碼如下：procere TForm1.Button2Click(Sender: TObject);
begin
ADODataSet1.Close ;
ADODataSet1.CommandType := cmdText ;
ADODataSet1.Parameters.Clear ; //***利用call方法調用oracle過程時，參數必須由?來傳， 即使你要傳的參數為常理
//輸出遊標的參數不需要指定!!!!!!，本來此函數帶兩個參數，我們這里只需要傳一個參數.
ADODataSet1.CommandText := '{call PKG_JCCTEST1.GetClass2(?)}' ; //***C 順序有關，createparam必須放在commandtext賦值語句之後. // 創建第一個參數，對應call中的第一個?,ftinteger為類型,10為長度，20為傳入的實參值
ADODataSet1.Parameters.CreateParameter('p1',ftinteger,pdinput,10,20);
//下面調用ADODataSet1 的open方法，返回數據集(對應包過程的游標)
ADODataSet1.Open ; while not ADODataSet1.Eof do
begin
showmessage('CID : '+string(ADODataSet1.FieldByName('CID').Value) +
'--CNAME :' + string(ADODataSet1.FieldByName('CNAME').Value) +
'--PNUMBER :' + string(ADODataSet1.FieldByName('PNUMBER').Value)
) ;
ADODataSet1.Next ;
end ;
end; 四 利用adoquery調用第三個過程，不返回數據集的procere TForm1.Button3Click(Sender: TObject);
begin
AdoQuery1.Close ;
AdoQuery1.Parameters.Clear ; AdoQuery1.SQL.Clear ; AdoQuery1.SQL.Add('{call PKG_JCCTEST1.GetSubAndSum2(?,?)}') ;
AdoQuery1.Parameters.CreateParameter('P1',ftstring,pdinput, 50,'c11') ;
AdoQuery1.Parameters.CreateParameter('P2',ftstring,pdinput, 50,'cn11') ;
AdoQuery1.Parameters.CreateParameter('P3',ftinteger,pdinput, 50,25) ; AdoQuery1.ExecSQL ;
end;
五 利用adoquery調用第一個過程，返回數據集的.
procere TForm1.Button4Click(Sender: TObject);
begin
AdoQuery1.Close ;
AdoQuery1.Parameters.Clear ; AdoQuery1.SQL.Clear ; AdoQuery1.SQL.Add('{call PKG_JCCTEST1.GetSubAndSum2(?,?)}') ;
AdoQuery1.Parameters.CreateParameter('P1',ftinteger,pdinput, 50,25) ;
AdoQuery1.Parameters.CreateParameter('P2',ftinteger,pdinput, 50,22) ; AdoQuery1.Open ; Showmessage(string( AdoQuery1.FieldByName('sub').Value)+'-'+
string( AdoQuery1.FieldByName('sum').Value));
end;六.關於三層體系的此類問題兩層的解決了，三層類似.
中間層用tadodataset 或tadoquery (+tdatasetprovider),中間層的adoconnection的連接字元串加上plsqlRset=1;
客戶端用clientdataset ,大同小異，舉例如下: begin
//調用相應的過程
ClientDataSet1.Close ;
ClientDataSet1.Params.Clear ; ClientDataSet1.CommandText := '{call PackageName.ProcereName(?,?)}' ;
ClientDataSet1.Params.CreateParam(ftInteger , 'ParamName1', ptInput) ;
ClientDataSet1.Open ;
end ;
本文來自CSDN博客，轉載請標明出處： http://blog.csdn.net/yzsind/archive/2005/01/20/261176.aspx
㈢ oracle中怎樣創建存儲過程 csdn
oracle中怎樣創建存儲過程 csdn
--創建存儲過程 IN_SHEETID 為輸入參數CREATE OR REPLACE PROCEDURE ST_RECEIPT(IN_SHEETID VARCHAR2) ISBEGIN --將 receipt0表中數據插入 receipt INSERT INTO RECEIPT SELECT * FROM RECEIPT0 WHERE SHEETID = IN_SHEETID; --更新receipt表中Flag值 UPDATE RECEIPT SET FLAG = 100 WHERE SHEETID = IN_SHEETID; -- INSERT INTO RECEIPTITEM SELECT * FROM RECEIPTITEM0 WHERE SHEETID = IN_SHEETID; --刪除ReceiptItem0表數據 DELETE FROM RECEIPTITEM0 WHERE SHEETID = IN_SHEETID; --刪除 receipt0表數據 DELETE FROM RECEIPT0 WHERE SHEETID = IN_SHEETID;END;--調用存儲過程BEGIN ST_RECEIPT('ys141128');END;--或者EXEC ST_RECEIPT('ys141128');
㈣ oracle sql怎麼創建存儲過程
import java.sql. * ;
public class ProcereNoArgs
{
public static void main(String args[]) throws Exception
{
// 載入Oracle驅動
DriverManager.registerDriver( new oracle.jdbc.driver.OracleDriver());
// 獲得Oracle資料庫連接
Connection conn = DriverManager.getConnection( " jdbc:oracle:thin:@MyDbComputerNameOrIP:1521:ORCL", sUsr, sPwd " );
// 創建存儲過程的對象
CallableStatement c = conn.divpareCall( " {call pro1(?)} " );
// 給Oracle存儲過程的參數設置值 ，將第一個參數的值設置成188
c.setInt( 1 , 188 );
// 執行Oracle存儲過程
c.execute();
conn.close();
}
}
㈤ oracle 創建存儲過程
--創建存儲過程 IN_SHEETID 為輸入參數CREATE OR REPLACE PROCEDURE ST_RECEIPT(IN_SHEETID VARCHAR2) ISBEGIN --將 receipt0表中數據插入 receipt INSERT INTO RECEIPT SELECT * FROM RECEIPT0 WHERE SHEETID = IN_SHEETID; --更新receipt表中Flag值 UPDATE RECEIPT SET FLAG = 100 WHERE SHEETID = IN_SHEETID; -- INSERT INTO RECEIPTITEM SELECT * FROM RECEIPTITEM0 WHERE SHEETID = IN_SHEETID; --刪除ReceiptItem0表數據 DELETE FROM RECEIPTITEM0 WHERE SHEETID = IN_SHEETID; --刪除 receipt0表數據 DELETE FROM RECEIPT0 WHERE SHEETID = IN_SHEETID;END;--調用存儲過程BEGIN ST_RECEIPT('ys141128');END;--或者EXEC ST_RECEIPT('ys141128');
㈥ oracle 創建存儲過程 急啊
要知道
創建存儲過程使用
pl/sql語言的
而且
end後面
要加
單引號
;
而且每個sql寫完後也要
加但引號標示
在begin上面declare一個變數
隨便命名
v_num
number
假設
student表裡面有一個變數
是數字類型的
叫
number
那麼
這個sql應該這樣寫
create
or
replace
procere
testproc
is
declare
v_number
number;
begin
select
number
into
v_number
from
student;
end;
㈦ 在Oracle中創建存儲過程
在command窗口先執行
SQL>setserveroutputon;
再執行
SQL>execaa();
結果：
hello
PL/SQL procere successfully completed
㈧ Oracle存儲過程編寫
Oracle存儲過程基本語法：
CREATE?OR?REPLACE?PROCEDURE?存儲過程名?
IS?
BEGIN?
NULL;?
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體的結束。
㈨ ORACLE如何創建存儲過程，詳細例子。
--創建存儲過程 IN_SHEETID 為輸入參數CREATE OR REPLACE <a class="-highlight" href="https://www..com/s?wd=PROCEDURE&tn=44039180_cpr&fenlei=-EUBtkP1n1n1RdPjTvP1bvrH6kP10L" target="_blank">PROCEDURE</a> ST_RECEIPT(IN_SHEETID VARCHAR2) ISBEGIN--將 receipt0表中數據插入 receiptINSERT INTO RECEIPTSELECT * FROM RECEIPT0 WHERE SHEETID = IN_SHEETID;--更新receipt表中Flag值UPDATE RECEIPT SET FLAG = 100 WHERE SHEETID = IN_SHEETID;--INSERT INTO RECEIPTITEMSELECT * FROM RECEIPTITEM0 WHERE SHEETID = IN_SHEETID;--刪除ReceiptItem0表數據DELETE FROM RECEIPTITEM0 WHERE SHEETID = IN_SHEETID;--刪除 receipt0表數據DELETE FROM RECEIPT0 WHERE SHEETID = IN_SHEETID;<a class="-highlight" href="https://www..com/s?wd=END&tn=44039180_cpr&fenlei=-EUBtkP1n1n1RdPjTvP1bvrH6kP10L" target="_blank">END</a>;--調用存儲過程BEGINST_RECEIPT('ys141128');<a class="-highlight" href="https://www..com/s?wd=END&tn=44039180_cpr&fenlei=-EUBtkP1n1n1RdPjTvP1bvrH6kP10L" target="_blank">END</a>;--或者EXEC ST_RECEIPT('ys141128');