coolx.net 문학중년

Programming

No.

445

Name.

swindler

Subject.

Oracle Stored Procedure 호출 (커서타입)

Main Cate.

ASP

Sub Cate.

Date.

2008-04-27 15:18

Hit.

4078 (203.248....)

File.

sp_cursor.png

Function testhome( loginId, loginPassword, db_helper )

Const CONNECT = "Provider=MSDAORA.1;Data Source=;User ID=;Password="

Dim cn, rs, cmd, param
Dim SQL

set cn = Server.CreateObject( "ADODB.Connection" )
cn.Open CONNECT

SQL = "{call PG_USER.SP_LOGIN_CHECK(?,?,{resultset 0, P_REFCURSOR}, ?)}"
set cmd = server.CreateObject ("ADODB.Command")
with cmd
set .ActiveConnection = cn
.CommandText = SQL
.CommandType = 1 'adCmdText
'Pass in 0 to retrieve all of the records
set param = .CreateParameter("V_USER_ID", adVariant , 1 , , "user") '<<131=adNumeric, 1=adParamInput
.Parameters.Append param
set param = .CreateParameter("V_PASSWD" , adVariant , 1 , , "1111") '<<131=adNumeric, 1=adParamInput
.Parameters.Append param
set param = .CreateParameter("V_RETURN" , adNumeric , 2 , , mLoginResultNum) '<<131=adNumeric, 1=adParamInput
.Parameters.Append param
end with

set rs = server.CreateObject ( "ADODB.Recordset" )
set rs = cmd.execute

response.write cmd.Parameters("V_RETURN")

%>
<TABLE WIDTH="80%" ALIGN=center BORDER=1 CELLSPACING=3 CELLPADDING=3>
<%
Response.Write ("<TR bgcolor=Gray>")
For i = 0 To rs.Fields.Count - 1
Response.Write ("<TD>" & rs.Fields(i).Name & "</TD>")
Next
Response.Write ("</TR>")
Do until rs.EOF
response.write ("<TR>")
for i = 0 to rs.Fields.Count - 1
If IsNull(rs(i).value) then
Response.Write ("<TD> NULL </TD>")
else
Response.Write ("<TD>" & rs(i).value & "</TD>")
end if
next
rs.MoveNext
response.write ("</TR>")
loop
%>
</TABLE>
<%
Set cmd = Nothing
Set param = Nothing
rs.close
Set rs = Nothing
cn.close
Set cn = Nothing
End Function

[바로가기 링크] : http://coolx.net/cboard/develop/445


[Modify] [Delete]		[Reply] [List]