Name

Parameterオブジェクト名設定


文法
Parameterオブジェクト.Name


機能説明
Prameterオブジェクト名を設定


使用例
<% Dim objConn, objCmd, objPrm, objRs, age, 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 < % 年齢 %" 'パラメータ設定 age = 18 Set objPrm = objCmd.CreateParameter(, adUnsignedInt, 1, 2, age) objPrm.Name = "年齢" objPrm.Attributes = adParamSigned '表示 Response.Write "パラメータ名 : " & objPrm.Name & <br> 'パラメータをCommandオブジェクトに追加し、クエリを実行 objCmd.Parameters.Append objPrm 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へ