create table stuInfo
(
stuID int primary key
stuName varchar
)
create or replace procedure proc
is
begin
insert into stuInfo values(
end;
create or replace procedure proc
(
v_ID int
v_Name varchar
)
is
begin
insert into stuInfo values(v_ID
commit;
end;
create or replace procedure proc
(
v_ID int
v_Name out varchar
)
is
varName stuInfo
begin
select stuName into varName from stuInfo where stuID=v_ID;
v_Name:=varName;
end;
=====================返回全部記錄=======================================
create or replace package PKG_STUINFO is
type stuInfoCursorType is ref cursor;
procedure getStuInfo (stuInfoCursor out stuInfoCursorType);
end;
create or replace package body PKG_STUINFO is
procedure getStuInfo (stuInfoCursor out stuInfoCursorType)
is
var_cursor stuInfoCursorType;
begin
open var_cursor for select * from stuInfo;
stuInfoCursor:=var_cursor;
end;
end;
=====================根據編號返回記錄==============================
create or replace package PKG_STUINFO is
type stuInfoCursorType is ref cursor;
procedure getStuInfo (v_ID int
end;
create or replace package body PKG_STUINFO is
procedure getStuInfo (v_ID int
is
var_cursor stuInfoCursorType;
begin
if v_ID=
open var_cursor for select * from stuInfo;
else
open var_cursor for select * from stuInfo where stuID=v_ID;
end if;
stuInfoCursor:=var_cursor;
end;
end;
=========================根據姓名返回記錄===========================
create or replace package PKG_STUINFO is
type stuInfoCursorType is ref cursor;
procedure getStuInfo (v_Name varchar
end;
create or replace package body PKG_STUINFO is
procedure getStuInfo (v_Name varchar
is
var_cursor stuInfoCursorType;
begin
if v_Name =
open var_cursor for select * from stuInfo;
else
open var_cursor for select * from stuInfo where stuName like
end if;
stuInfoCursor:=var_cursor;
end;
end;
From:http://tw.wingwit.com/Article/program/Oracle/201311/18557.html