Type

オブジェクトのデータ型設定


文法
Parameterオブジェクト.Type


機能説明
Parameterオブジェクトの属性を設定データ型を設定/取得


データ型
定数値説明
adArray 0x2000 データ型配列を示すフラグ値
adBigInt 20 8バイトの符号付整数
adBinary 128 バイナリ型
adBoolean 11 ブール型
adBSTR 8 Nullで終了するUnicode文字列
adChapter 136 4バイトチャプタ型
adChar 129 文字列型
adCurrency 6 通貨型
adDate 7 日付型
adDBDate 133 yyyymmdd形式の日付型
adDBTime 134 hhmmss形式の時刻型
adDBTimeStamp 135 yyyymmdd hhmmss形式の時刻型
adDecimal 14 バリアント10進型
adDouble 5 倍精度不動小数点型
adEmpty 0 型の指定なし
adError 10 32ビットエラーコード
adFileTime 64 1601/1/1からの時間
adGUID 72 固有のグローバルID
adIDispatch 9 OLEオブジェクトIdispatchインターフェースのポインタ
adInteger 3 4バイトの符号付整数
adIUnknown 13 OLEオブジェクトのIUnknownインターフェースのポインタ
adLongVarBinary 205 長バイナリ型（パラメータオブジェクトのみ）
adLongVarChar 201 長文字列型（パラメータオブジェクトのみ）
adLongVarWChar 203 Nullで終了するUnicode文字列型（パラメータオブジェクトのみ）
adNumeric 131 数値型
adPropVariant 138 PROPVARIANT
adSingle 4 単精度浮動小数点型
adSmallInt 2 2バイトの符号付整数
adTinyInt 16 1バイトの符号付整数
adUnsignedBigInt 21 8バイトの符号無し整数
adUnsignedInt 19 4バイトの符号無し整数
adUnsignedSmollInt 18 2バイトの符号無し整数
adUnsignedTinyInt 17 1バイトの符号無し整数
adUserDefined 132 ユーザー定義の変数
adVarBinary 204 バイナリ型（パラメータオブジェクトのみ）
adVarChar 200 文字列型（パラメータオブジェクトのみ）
adVariant 12 バリアント型
adVarNumeric 12 数値型
adVarWChar 202 Nullで終了するUnicode文字列型（パラメータオブジェクトのみ）
adWchar 130 Nullで終了するUnicode文字列型1

使用例
<% 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(, , 1, 2, ) objPrm.Name = "身長" objPrm.Type = adUnsignedInt objPrm.Attributes = adParamSigned objPrm.Precision = 8 objPrm.Value = 123456789 '表示 objPrm.Size = 5 Response.Write "データ型 : " & objPrm.Type & <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へ