繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > Asp Oracle存储过程返回结果集的代码
- ASP
- 收集整理的ASP的常用内置函数
- 高手推荐的比较有用的ASP函数集合
- ASP中JavaScript处理复杂表单的生成与验证
- asp下tag的实现,简单介绍与部分代码
- 在ASP中用组件检测当前网卡地址的代码
- asp中COM组件中如何连接数据库的代码
- 用ASP创建MDaemon用户的代码
- ASP使用FSO读取模板的代码
- ASP开发中可能遇到的错误信息中文说明大全（整理收集）
- 添加超级用户的.asp代码[蓝屏的原创,凯文改进,Ms未公布的漏洞]
- 全面优化ASP应用程序的性能的方法
- 实现ASP程序执行时间统计类的代码
- ASP中利用execute实现动态包含文件的方法
- asp中向文本框输出数据原样式的函数
- ADODB.Stream组件Charset属性值集合
- 关于ASP代码的加密的几个方法
- 支持权重的无组件ASP广告显示代码
- ASP下实现自动采集程序及入库的代码
- asp读取远程文件并保存到本地代码
- 为什么ASP中执行动态SQL总报错误信息？提示语句语法错误
ASP 中的 Asp Oracle存储过程返回结果集的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 68 ::
收藏到网摘: n/a
对于 Oracle 这个庞然大物，Asp使用起来，确实是捉襟见肘的 。 尤其是要返回结果集(Recordset)的情况，更是让很多人犯难。 经过摸索和实践，我把自己的解决方法，写在下面：
说明：
我的Oracle客户端的版本是 oracle 9i， 安装client端的时候，不能用默认安装，一定要自定义， 然后选择所有 OLEDB 相关的内容，都装上，否则到下面的 Provider 的时候，会找不到。
复制代码 代码如下:
<%@Language="VBSCRIPT" CodePage="936" LCID="2052"%>
<%Option Explicit%>
<!-- #include file="../adovbs.inc" -->
<%
Dim cnOra
Function Connect2OracleServer
Dim conStr
conStr = "Provider=MSDAORA.Oracle;Data Source=xx;User Id=?;Password=?"
Set cnOra = Server.CreateObject("ADODB.Connection")
cnOra.CursorLocation = adUseClient '=3
On Error Resume Next
cnOra.Open conStr
Connect2OracleServer = (Err.Number = 0)
End Function
Sub DisconnectFromOracleServer
If Not cnOra is Nothing Then
If cnOra.State = 1 Then
cnOra.Close
End If
Set cnOra = Nothing
End If
End Sub
Sub Echo(str)
Response.Write(str)
End Sub
Sub OutputResult
Dim cmdOra
Dim rs
Set cmdOra = Server.CreateObject("ADODB.Command")
With cmdOra
.CommandType = adCmdText '=1
.CommandText = "{call PKG_TEST.GetItem(?,?)}"
.Parameters.Append cmdOra.CreateParameter("p1", adNumeric, adParamInput, 10, 1)
.Parameters.Append cmdOra.CreateParameter("p2", adVarChar, adParamInput, 10, "xx")
.ActiveConnection = cnOra
Set rs = cmdOra.Execute
If Not rs.Eof Then
While Not rs.Eof
Echo rs(0)
Echo "--"
Echo rs(1)
Echo "<br>"
rs.MoveNext
Wend
rs.Close
End If
Set rs = Nothing
Set cmdOra = Nothing
End With
DisconnectFromOracleServer
End Sub
If Connect2OracleServer Then
OutputResult
Else
Response.Write(Err.Description)
End If
%>
下面是 Oracle 的 sql 脚本
--------------------------------------SQL Script----------------------------------
--建包-----------------------------------
复制代码 代码如下:
Create Or Replace Package PKG_TEST
IS
TYPE rfcTest IS REF CURSOR ;
PROCEDURE GETITEM
( p1 IN NUMBER,
p2 IN VARCHAR2,
p3 OUT rfcTest
);
END; -- Package Specification PKG_TEST
---------------------------------------------------
--建包体-----------------------------------
Create Or Replace Package Body PKG_TEST
IS
PROCEDURE GETITEM
( p1 IN NUMBER,
p2 IN VARCHAR2,
p3 OUT rfcTest
)
IS
BEGIN
OPEN p3 FOR
SELECT * FROM tablename WHERE id = p1 AND name=p2 AND rownum < 10 ;
EXCEPTION
WHEN OTHERS THEN
NULL ;
END;
END; -- Package Body PKG_TEST
评论 (0) All
