1.在存储过程中使用游标返回结果集：
(1)包：
create or replace package PKG_ReturnSet
as
type MyCurType is ref cursor;
end;
(2)存储过程：
create or replace procedure SP_ReturnSet(p_Result out PKG_ReturnSet.MyCurType)
as
begin
open p_Result for 'select * from alarminfo';
end;
(3)程序：
static void Main (string[] args)
{
OracleConnection conn = new OracleConnection("……");
try
{
OracleCommand cmd = new OracleCommand();
cmd.Connection = conn;
cmd.CommandType = CommandType.StoredProcedure;
cmd.CommandText = "SP_ReturnSet";
OracleParameter p = new OracleParameter("p_Result", OracleType.Cursor);
p.Direction = ParameterDirection.Output;
cmd.Parameters.Add(p);
OracleDataAdapter da = new OracleDataAdapter(cmd);
DataSet ds = new DataSet();
da.Fill(ds);
for (int i = 0; i < ds.Tables[0].Rows.Count; i++)
{
Console.WriteLine(ds.Tables[0].Rows[i]["obj_id"].ToString());
}
}
catch (Exception x)
{
Console.WriteLine(x.Message);
}
finally
{
if (conn.State == ConnectionState.Open)
{
//conn.Close();
}
}
Console.Read();
}
2.游标参数：
declare
cursor Cur_1(p_StationID varchar2) is
select * from MyTable where ID= p_StationID;
begin
for v_Row in Cur_1('dmz1') loop
DBMS_OUTPUT.put_line(v_Row.name);
end loop;
end;
((1)在游标for循环中，游标的打开、获取、关闭都是隐含地进行，不需要你书写显式的代码来执行。(2)变量v_Row无须显式地声明。)
3.另一些PL/SQL简单概念：
(1)PL/SQL代码组织而成“块”，如果你创建存储过程或包，那么它是一个“命名块”，否则，称为“匿名块”。
PL/SQL块包含三个部分：(1)声明：定义及初始化变量及游标，(2)可执行命令：使用流程控制关键字来执行命令并将值赋于已声明的变量，(3)异常处理。如下：
declare
<declarations section>
begin
<executable commands>
exception
<exception handling>
end;
(2)流程控制(If)：
If……then
……;
Elsif……then
……;
Else
……;
End If;
(3)流程控制(循环)：
简单循环：循环直到遇到Exit或Exit When
For循环：循环执行指定次数
While循环：在符合条件下循环
--------------------------------------
Loop
……;
Exit When ……;
End Loop ;
--------------------------------------
For radius in 1..7 Loop
area:=pi*power(radius,2);
insert into areas values(radius,area)
End Loop ;
--------------------------------------
While radius<=7 Loop
……;
End Loop ;
(4)流程控制(Case)：
Case When …… Then
……;
When …… Then
……;
Else ……;
End Case;
