婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > Asp Oracle存儲過程返回結果集的代碼

Asp Oracle存儲過程返回結果集的代碼

熱門標簽:地圖標注宅基地 智能電銷機器人適用于哪些行業 徐州人工智能電銷機器人好用嗎 騰訊地圖標注商戶關閉 西寧公司外呼系統平臺 地圖標注服務哪家好 長沙防封電銷卡品牌 外呼系統還用卡么 武漢營銷電話機器人軟件
經過摸索和實踐,我把自己的解決方法,寫在下面:
說明:
我的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

標簽:鷹潭 通化 荊門 通遼 雅安 普洱 運城 巴彥淖爾

巨人網絡通訊聲明:本文標題《Asp Oracle存儲過程返回結果集的代碼》,本文關鍵詞  Asp,Oracle,存儲,過程,返回,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《Asp Oracle存儲過程返回結果集的代碼》相關的同類信息!
  • 本頁收集關于Asp Oracle存儲過程返回結果集的代碼的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 西充县| 大渡口区| 石柱| 吴川市| 逊克县| 荥经县| 丹巴县| 茂名市| 怀化市| 射阳县| 七台河市| 合肥市| 安仁县| 武隆县| 公主岭市| 和田县| 南岸区| 七台河市| 聂拉木县| 永川市| 报价| 乐亭县| 探索| 惠来县| 渝中区| 大宁县| 固安县| 广灵县| 石嘴山市| 兰州市| 宜州市| 天柱县| 东平县| 赫章县| 咸宁市| 绥阳县| 松原市| 星子县| 鹿邑县| 漳浦县| 鹤岗市|