使用OLE DB和ADO调用返回记录集的Oracle存储过程

核心提示： 4．3 调用存储过程的格式调用返回记录集存储过程之前，应将Command对象的 CommandType 属性指定SQL类型以优化查询性能，使用OLE DB和ADO调用返回记录集的Oracle存储过程(5)，即CommandType 属性值设为AdCmdText，使用 Command对象的C

4．3 调用存储过程的格式

调用返回记录集存储过程之前，应将Command对象的 CommandType 属性指定SQL类型以优化查询性能，即CommandType 属性值设为AdCmdText。

使用 Command对象的CommandText 属性定义调用存储过程的命令。当使用Command对象执行Oracle返回记录集存储过程时，须以odbc转义符调用格式来调用存储过程,例如：{call credit_account(？,？)}。在这种格式中，传入和传出参数都用问号“？”来表示。

4．4返回记录集

可使用Command对象的 Execute 方法调用Oracle返回记录集的存储过程，并在适当的时候将结果记录集返回给 Recordset对象。该对象可以存储一个或多个结果记录集。当存储多个记录集时，可以用Recordset对象的NextRecordSet属性获得下一个记录集。

下面给出在ASP中调用返回存储过程或函数的示例程序：

<%@ Language=VBScript %>
<!--#include file="adovbs.inc"-->
<%
'Connection 对象代表了打开的、与数据源的连接。
set Con=server.CreateObject("ADODB.Connection")
set Rst1 =server.CreateObject("ADODB.Recordset")
set Rst2=server.CreateObject("ADODB.Recordset")
set Cmd =server.CreateObject("ADODB.Command")
set Prm1 =server.CreateObject("ADODB.Parameter")
set Prm2 =server.CreateObject("ADODB.Parameter")
Con.Provider = "OraOLEDB.Oracle" '设置OLE DB提供者
'设置数据库连接字符串，test是数据库网络服务名
Con.ConnectionString = "Data Source=TEST;" & _
"User ID=scott;Password=tiger;PLSQLRSet=1"
'调用返回记录集的存储过程，PLSQLRSet指定为1
Con.Open
'创建Command对象到目标数据源的连接
Cmd.ActiveConnection = Con
cmd.CommandType=adcmdtext
'虽然Employees.GetEmpRecords()有四个参数，
'但只有需要设定两个参数
'因为REF CURSOR参数由OLE DB连接提供者自动设定。
Set Prm1 = Cmd.CreateParameter("Prm1", adSmallInt, adParamInput, , 30) '创建一个输入参数，对应于indeptno
Cmd.Parameters.Append Prm1 '将参数添加到参数集合中
Set Prm2 = Cmd.CreateParameter("Prm2", adSmallInt, adParamOutput) '创建一个输出参数，对应于p_errorcode
Cmd.Parameters.Append Prm2
'调用返回记录集的存储过程必须使用odbc的转义符调用格式。
Cmd.CommandText = "{CALL Employees.GetEmpRecords(?, ?)}"
'GetEmpRecords存储过程返回两个记录集，获得第一个记录集
Set Rst1 = Cmd.Execute %>
<TABLE border = 1>
<%
Do while (Not rst1.eof) %>
<tr>
<% For Index=0 to (rst1.fields.count-1) %>
<TD VAlign=top><% = rst1(Index)%></TD>
<% Next %>
</tr>
<% rst1.MoveNext
Loop '显示第一个记录集
%>
</TABLE>
<%'获得GetEmpRecords存储过程返回的第二个记录集
Set Rst2 = Rst1.NextRecordset
'在此可加入显示第二个记录集的代码
Prm1.Value = 7369 '该参数对应于存储函数的inempno
Prm2.Value = 0 '该参数对应于存储函数的p_errorcode
'调用返回记录集的存储函数
Cmd.CommandText = "{CALL Employees.GetDept(?, ?)}"
'获得GetDept存储函数返回的记录集
Set Rst2 = Cmd.Execute
Rst1.Close
Rst2.Close
set rst1=nothing
set rst2=nothing
con.close
set con=nothing
%>
<P> </P>
</BODY>
</HTML>

5 小结

在应用程序中，使用OLE DB和ADO访问返回记录集的存储过程，OLE DB服务者可以高效地将数据库端的多行记录集返回给ADO应用程序。在ADO应用程序中，使用Command对象可以传递输入或输出参数给存储过程，并调用存储过程以获得多行记录集。