CreateParameter

パラメータオブジェクト作成


文法
Commandオブジェクト.CreateParameter([Name],[Type],[InOut],[MaxSize],[Value])


パラメータ
Name : パラメータ名
Type : データ型
MaxSize : パラメータ最大サイズ
Value : パラメータ値


機能説明
Parameterオブジェクトを作成
作成後Commandオブジェクトに組み入れて(Parameters.Appendメソッドで追加)使用


データ型
定数値説明
adBigInt 20 8バイトの符号付整数
adBinary 128 バイナリ型
adBoolean 11 ブール型
adBSTR 8 Nullで終了するUnicode文字列
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ビットエラーコード
adGUID 72 固有のグローバルID
adIDispatch 9 OLEオブジェクトIdispatchインターフェースのポインタ
adInteger 3 4バイトの符号付整数
adIUnknown 13 OLEオブジェクトのIUnknownインターフェースのポインタ
adLongVarBinary 205 長バイナリ型（パラメータオブジェクトのみ）
adLongVarChar 201 長文字列型（パラメータオブジェクトのみ）
adLongVarWChar 203 Nullで終了するUnicode文字列型（パラメータオブジェクトのみ）
adNumeric 131 数値型
adSingle 4 単精度浮動小数点型
adSmallInt 2 2バイトの符号付整数
adTinyInt 16 1バイトの符号付整数
adUnsignedBigInt 21 8バイトの符号無し整数
adUnsignedInt 19 4バイトの符号無し整数
adUnsignedSmallInt 18 2バイトの符号無し整数
adUnsignedTinyInt 17 1バイトの符号無し整数
adUserDefined 132 ユーザー定義の変数
adVarBinary 204 バイナリ型（パラメータオブジェクトのみ）
adVarChar 200 文字列型（パラメータオブジェクトのみ）
adVariant 12 バリアント型
adVarWChar 202 Nullで終了するUnicode文字列型（パラメータオブジェクトのみ）
adWchar 130 Nullで終了するUnicode文字列型1
パラメータ入出力
定数値説明
adParamInput 1 入力パラメータ（デフォルト）
adParamInputOutput 3 入出力パラメータ
adParamOutput 2 出力パラメータ
adParamReturnValue 4 戻り値
adParamUnknown 0 不明
使用例
<% Dim objConn, objCmd, objRS、objPara, i 'データベース接続 Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "test" 'コマンドオブジェクト作成 Set objCmd = Server.CreateObject("ADODB.Command") objCmd.ActiveConnection = objConn 'コマンドの種類にテーブル名を指定 objCmd.CommandType = 2 'パラメータクエリ指定 objCmd.CommandText = "QueryTest" Set objPara = objCmd.CrateParameter("ParamID", adInteger, adParamInput, , 1) 'パラメータ追加 objCmd.Parameters.Append objPara 'コマンド実行 Set objRS = objCmd.Execute Do until objRS.EOF Response.Write "<hr>" For i = 0 to objRS.Fields.Count - 1 Response.Write "<br>" & objRS(i) Next objRS.MoveNext Loop 'オブジェクト開放 objRS.Close objConn.Close Set objPara = Nothing Set objCmd = Nothing Set objRS = Nothing Set objConn = Nothing %>
Topへ