How to retrieve the recordset from PROCEDURE????Who can give me an ASP sample??? [message #36298] |
Wed, 14 November 2001 14:49 |
liyou
Messages: 2 Registered: November 2001
|
Junior Member |
|
|
<HTML>
<HEAD>
<TITLE>Oracle ADO Test</TITLE>
</HEAD>
<BODY>
Test of ADO and Oracle Stored Procedures using Ref Cursors
<%
Dim objConn
Dim connString
Dim cmdStoredProc
Dim param1
Dim testDeptNo
testDeptNo = 10
' testDeptNo = 20
' testDeptNo = 30
set objConn = server.createobject("adodb.connection")
' System DSN connection
' Replace the values below with your own
connString = "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=liyou;Password=Security;Data Source=firstdb"
objConn.Open connString
Set cmdStoredProc = Server.CreateObject ("ADODB.Command")
Set cmdStoredProc.ActiveConnection = objConn
cmdStoredProc.CommandText = "Department.Get_Emps"
cmdStoredProc.CommandType = adCmdStoredProc
Set param1 = cmdStoredProc.CreateParameter ("Dept_ID", adInteger, adParamInput)
cmdStoredProc.Parameters.Append param1
param1.Value = testDeptNo
Set param1 = cmdStoredProc.CreateParameter ("recordset", adVariant, adParamOutput)
cmdStoredProc.Parameters.Append param1
cmdStoredProc.Execute
Set rs = cmdStoredProc(1)
Response.Write ("Employees in Department # " & testDeptNo & "" & vbCrLf)
Response.Write ("
" & vbCrLf)
Response.Write ("
" & vbCrLf)
Response.Write ("
" & vbCrLf)
Response.Write (" - Emp # - " & vbCrLf)
Response.Write (" - Name - " & vbCrLf)
Response.Write ("
" & vbCrLf)
While (Not rs.EOF)
Response.Write ("
" & vbCrLf)
Response.Write (" - " & rs (0) & " - " & vbCrLf)
Response.Write (" - " & rs (1) & " - " & vbCrLf)
Response.Write ("
" & vbCrLf)
rs.MoveNext
Wend
Response.Write ("
" & vbCrLf)
rs.Close
Set rs = nothing
Set param1 = nothing
Set cmdStoredProc = nothing
objConn.Close
Set objConn = nothing
%>
</BODY>
</HTML>
----------------------------------------------------------------------
|
|
|
|
|