Item
コレクションの要素取得
文法
Parametersコレクション.Item(Key)
パラメータ
Key : 要素名/インデックス
機能説明
Parametersコレクション要素設定/取得
使用例
<![CDATA[
<%
Dim objConn, objCmd, objPrm, objRs, age, weight
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "sample"
Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.ActiveConnection = objConn
'パラメータクエリ作成
objCmd.CommandText = "select * from test where age < % 年齢 % and weight < % 体重 %"
'パラメータ設定
age = 18
weight = 70
Set objPrm = objCmd.CreateParameter("年齢", adUnsignedInt, 1, 2, age)
objPrm.Name = "年齢"
objCmd.Parameters.Append objPrm
Set objPrm = Nothing
Set objPrm = objCmd.CreateParameter("体重", adUnsignedInt, 1, 2, weight)
objPrm.Name = "体重"
objCmd.Parameters.Append objPrm
'表示
Set objPrm = objCmd.Parameters.Item("年齢")
Response.Write "取得したパラメータ : " & objPrm.Name & " : " objPrm.Value & <br>
Set objPrm = Nothing
Set objCmd = Nothing
objConn.Close
Set objConn
%>
]]>
Topへ