Delete

コレクションの要素削除


文法
Parametersコレクション.Delete Index


パラメータ
Index : 削除インデックス


機能説明
Parametersコレクション要素削除


使用例
<% Dim objConn, objCmd, objPrm, objRs, age, weight, i 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 objCmd.Parameters.Delete "年齢" '表示 Response.Write "要素数 : " & objCmd.Parameters.Count & <br> 'パラメータをCommandオブジェクトに追加し、クエリを実行 Set objRs = objCmd.Execute '実行結果を表示 If Not objRs.EOF Then %> <table border=1> <tr> <% For i = 0 to objRs.Fields.Count - 1 %> <th><%=objRsFields(i).Name%></th> <%Next%> </tr> <tr> <% Do Until objRs.EOF For i = 0 to objRs.Fields.Count - 1%> <td><%=objRs.Fields(i).Value%></td> <%Next%> </tr> <% objRs.MoveNext Loop Else Response.Write "データがありません" End If Set objRs = Nothing Set objPrm = Nothing Set objCmd = Nothing objConn.Close Set objConn %>
Topへ