世俱杯 2025

    Oracle数据库允许创建包，可以统一设置存储进程、函数、变量、用户自定义类型。dotConnect for Oracle通过实现类型化OraclePackage组件来处理Oracle包。这些组件可以实现像处理一个普通的.NET对象一样来处理包。

    这个导航的使用是建立在知道连接到服务器，以及都建数据库对象的基础上实现的。首先需要需要在Oracle数据库中封装包，如下所示：

CREATE OR REPLACE PACKAGE Pack AS
  PROCEDURE get_all_depts (cur OUT SYS_REFCURSOR);
  PROCEDURE insert_dept (pDeptno INTEGER, pDname VARCHAR, pLoc VARCHAR);
  FUNCTION dept_count RETURN INTEGER;
END PACK;
/

CREATE OR REPLACE PACKAGE BODY Pack
IS 

  PROCEDURE get_all_depts (cur OUT SYS_REFCURSOR) AS
  BEGIN
    OPEN cur FOR SELECT * FROM dept;
  END;

  PROCEDURE insert_dept (pDeptno INTEGER, pDname VARCHAR, pLoc VARCHAR) AS
  BEGIN
    INSERT INTO dept(deptno, dname, loc) VALUES (pDeptno, pDname, pLoc);
  END;

  FUNCTION dept_count RETURN INTEGER
  AS
    cnt INTEGER;
  BEGIN
    SELECT COUNT(*) INTO cnt FROM dept;
    RETURN cnt;
  END;

END PACK;
/

创建类型化OraclePackages

    通过类型化的Oracle包向导可以类型化OraclePackage，这个向导可以从VS的主菜单单或是工具箱中启动。在工具箱中启动的话，选择对话窗口中选择新的类型选项，然后单击确定：

    开启了导航之后，就可以按照下面的步骤来操作：

1、在你创建了包的服务器上设置连接属性，单击下一步。

2、选择是否在数据库中显示所有的包，或者是显示用户指定的包。所以会提供单选按钮和用户的列表框。

3、设置生成类的名称，将会放置在命名空间，命名规则也将会放置在这里。

4、选择添加oraclepackage到设计器复选框，将生成的OraclePackage实例放置到窗体上。

    这个导航将会生成用于封装Oracle包的类，如果你已经选择了最后的复选框，就会将生成的OraclePackage实例放置到窗体上。包类需要一个开放的连接，在运行向导的时候，如果您已创建一个新的连接，OracleConnection实例oracleConnection1也将会放置在窗体上。

使用类型化的OraclePackages

    封装包进程在pack1上也是可行的，就像通常的对象方法一样。在下面的示例中，就展示了这个过程：

1、获得DEPT表中的行数。

2、DEPT表中插入一个新的记录。

3、在表中检索所有记录。

[C#]

// Open the connection. Until the connection is opened, 
// any invocation of package methods will throw an exception.
pack1.Connection.Open();

// 1. Check the number of rows in the dept table via the dept_count function:
int count = (int)pack1.DeptCount();

// 2. Insert a record via the insert_dept procedure:
pack1.InsertDept(100, "Research", "San-Jose");

// 3. Get all records using the get_all_depts procedure, and fill a DataTable with them:
OracleCursor cur;

// The procedure returns an OracleCursor object, which can be used to retrieve a data reader.
pack1.GetAllDepts(out cur);
OracleDataReader r = cur.GetDataReader();

// With the data reader, we can populate the data table.
OracleDataTable dt = new OracleDataTable();
dt.Load(r);

' Open the connection. Until the connection is opened, 
' any invocation of package methods will throw an exception.
Pack1.Connection.Open()

' 1. Check the number of rows in the dept table via the dept_count function:
Dim count As Integer = Pack1.DeptCount()

' 2. Insert a record via the insert_dept procedure:
Pack1.InsertDept(100, "Research", "San-Jose")

' 3. Get all records using the get_all_depts procedure, and fill a DataTable with them:
Dim cur As OracleCursor

' The procedure returns an OracleCursor object, which can be used to retrieve a data reader.
Pack1.GetAllDepts(cur)
Dim r As OracleDataReader = cur.GetDataReader()

' With the data reader, we can populate the data table.
Dim dt = New OracleDataTable()
dt.Load(r)