作家
登录

Asp Oracle存储过程返回结果集的代码

作者: 来源:www.28hudong.com 2013-03-30 08:25:35 阅读 我要评论

经过摸索和实践,我把自己的解决方法,写在下面: 说明: 我的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

  推荐阅读

  EasyASP v1.5发布(包含数据库操作类,原clsDbCtrl.asp)第1/2页

而Easp类中提供了大量实用的ASP通用过程及方法,可以简化大部分的ASP操作。目前只提供了VBScript版,JScript版将来可能会提供。EasyASP v1.5 (2008-10-22更新) 新增功能: 1、将数据库控制类(原clsDbCtrl.asp)封装>>>详细阅读


本文标题:Asp Oracle存储过程返回结果集的代码

地址:http://www.17bianji.com/kaifa2/ASP/32139.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)