2011年12月6日火曜日
ストアド パラメータの属性取得
<%@ LANGUAGE = VBScript %>
<html>
<head><title>Stored Proc Example</title>
</head>
<body>
<%
'call DbOpen()
'##### コネクションオブジェクトの生成 #####
Set MyRDB = Server.CreateObject("ADODB.Connection")
'##### レコードセットオブジェクトの生成 #####
Set MyREC = Server.CreateObject("ADODB.Recordset")
Set MyCMD = Server.CreateObject("ADODB.Command")
MyRDB.ConnectionString = "Provider=SQLOLEDB; Data Source='ｘｘｘｘｘｘ'; Initial Catalog=meiseidb;User ID=sa;Pwd=ｘｘｘｘｘｘｘｘ;"
MyRDB.Open
set MyCMD.ActiveConnection = MyRDB
' Specify the name of the stored procedure you wish to call
MyCMD.CommandText = "QI_e_apply_check"
MyCMD.CommandType = 4
' Query the server for what the parameters are
MyCMD.Parameters.Refresh
%>
<table border="1">
<tr>
<td><b>PARAMETER NAME</b></td>
<td><b>DATA-TYPE</b></td>
<td><b>DIRECTION</b></td>
<td><b>DATA-SIZE</b></td>
</tr>
<% For Each param In MyCMD.Parameters %>
<tr>
<td><%= param.name %></td>
<td><%= param.type %></td>
<td><%= param.direction %></td>
<td><%= param.size %></td>
</tr>
<%
Next
'call b_DbClose
MyRDB.close
set MyRDB = Nothing
set MyREC=Nothing
Set MyCMD=nothing
%>
</table>
</body>
</html>
登録:
コメントの投稿 (Atom)
0 件のコメント:
コメントを投稿