VB 调用 Oracle 函数返回数据集的例子

在VB(Visual Basic)中调用Oracle函数并获取返回的数据集是常见的数据库操作。这个例子展示了如何使用VB来调用Oracle存储过程，该过程返回一个游标类型（REF CURSOR），进而填充ADODB.Recordset对象。 让我们看下Oracle端的PL/SQL代码： ```sql CREATE OR REPLACE PACKAGE "PKG_TEST" AS TYPE myrcType IS REF CURSOR; FUNCTION get(strbarcode VARCHAR) RETURN myrcType; END pkg_test; CREATE OR REPLACE PACKAGE BODY "PKG_TEST" AS FUNCTION get(strbarcode IN VARCHAR) RETURN myrcType IS rc myrcType; BEGIN OPEN rc FOR strbarcode; RETURN rc; END get; END pkg_test; ``` 在这个包中，定义了一个名为`PKG_TEST`的包，它包含一个名为`get`的函数，接收一个VARCHAR类型的参数`strbarcode`，并返回一个名为`myrcType`的REF CURSOR。函数内部，打开一个游标`rc`，其查询语句为`strbarcode`的值，然后返回这个游标。 接下来是VB代码： ```vb Private Sub Command1_Click() On Error GoTo cursorErr: Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim cmd As New ADODB.Command ' 创建连接字符串 cnn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=tiger;Persist SecurityInfo=True;User ID=scott;Data Source=oraAny;Extended Properties=PLSQLRSet=1" ' 打开数据库连接 cnn.Open ' 创建命令对象 With cmd ' 设置连接 .ActiveConnection = cnn ' 设置命令类型为文本（用于执行存储过程） .CommandType = adCmdText ' 设置命令文本，调用存储过程并传递参数 .CommandText = "{CALL scott.pkg_test.get(?)}" ' 添加输入参数，并设置其值为一个查询语句 .Parameters.Append .CreateParameter("strBarCode", adVarChar, adParamInput, 100, "SELECT * FROM TAB") End With ' 设置Recordset属性 rst.CursorType = adOpenStatic rst.LockType = adLockReadOnly ' 将命令对象设为Recordset的数据源 Set rst.Source = cmd ' 打开Recordset rst.Open ' 显示记录集中的记录数 MsgBox rst.RecordCount ' 清理资源 Set rst = Nothing Set cmd = Nothing Exit Sub cursorErr: Set cmd = Nothing Set rst1 = Nothing MsgBox Err.Description End Sub ``` 这段VB代码创建了三个对象：一个ADODB.Connection对象`cnn`，一个ADODB.Recordset对象`rst`，以及一个ADODB.Command对象`cmd`。连接字符串设置了Oracle提供者、数据库凭据、数据源以及PLSQLRSet属性，使得可以处理返回的REF CURSOR。命令对象的`CommandText`设为调用存储过程的SQL，使用问号作为占位符代表参数。然后，添加一个参数并设置其值。Recordset的CursorType设置为静态，LockType设置为只读。通过将命令对象设置为Recordset的数据源并打开Recordset，我们可以访问Oracle函数返回的数据集。关闭Recordset和连接，并捕获可能的错误。 这个例子展示了如何在VB环境中通过ADO(ActiveX Data Objects)组件调用Oracle PL/SQL函数，处理返回的REF CURSOR类型结果集，这对于进行复杂数据库交互和数据处理非常有用。