Precision
数値型フィールドの最大桁数設定
文法
Parameterオブジェクト.Precision
機能説明
最大桁数を設定/取得
使用例
<![CDATA[
<%
Dim objConn, objCmd, objPrm, objRs, 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 < % 体重 %"
'パラメータ設定
weight = 18
Set objPrm = objCmd.CreateParameter(, adUnsignedInt, 1, 2, )
objPrm.Name = "体重"
objPrm.Attributes = adParamSigned
objPrm.Precision = 8
objPrm.Value = 123456789
'表示
Response.Write "数値最大桁数 : " & objPrm.Precision & <br>
Response.Write "設定した数値 : " & objPrm.Value & <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へ