Attributes

Parameterオブジェクト属性設定


文法
Parameterオブジェクト.Attributes


機能説明
Parameterオブジェクトの属性を設定


使用例
<% 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.Attributes = adParamSigned 'パラメータ属性表示 Select Case objPrm.Attributes Case adParamSigned strAttr = "符号付き" Case adParamNullable strAttr = "Null" Case adParamLong strAttr = "長バイナリ型" Case Else strAttr = "属性の設定が不正です" End Select Response.Write "属性 : " & strAttr & <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へ