配列型バインド変数の実行

    ‘オラクルの配列バインド変数を宣言
    Dim oraParamArrayIn1    As OraParamArray
    Dim oraParamArrayIn2    As OraParamArray

    ‘SQL文を編集する
    strSql = "INSERT INTO emp (empno , ename ) " & _
             "VALUES (:h1 , :h2)"

    ‘配列バインド変数を定義をする
    With OraDatabase.Parameters
        ‘配列は100個で4桁の数値型を宣言
        .AddTable "h1", ORAPARM_INPUT, ORATYPE_NUMBER, 100, 4
        ‘配列は100個で10桁のVarchar2型を宣言
        .AddTable "h2", ORAPARM_INPUT, ORATYPE_VARCHAR2, 100, 10
    End With

    ‘配列バインド変数オブジェクトを作成する
    Set oraParamArrayIn1 = OraDatabase.Parameters("h1")
    Set oraParamArrayIn2 = OraDatabase.Parameters("h2")

    ‘配列バインド変数オブジェクトに値をセットする。 注)配列の添え字はゼロから
    For lngRecCnt = 0 To 99
        oraParamArrayIn1.put_Value Str設定値1(lngRecCnt + 1), lngRecCnt
        oraParamArrayIn2.put_Value Str設定値2(lngRecCnt + 1), lngRecCnt
    Next lngRecCnt





    ‘配列バインド変数オブジェクトを元にSQL文をサーバーで実行する
    Lngcnt = oraDatabase.ExecuteSQL (strSql)
    ‘実行結果として処理したレコード(行)件数が戻される

    ‘配列バインド変数を開放する
    With OraDatabase.Parameters
        .Remove "h1"
        .Remove "h2"
    End With

    ‘※この配列バインド変数を使う時は注意が必要です

 

 

OO4Oコーディング標準(VB)

初期登録日: 2003年11月12日

最終更新日: 2008年01月26日

< Home ヘ戻る >


キーボード

ブラウザ画面の文字サイズを変更するショートカットキー

  1. [ CTRL ] + [ + ]  :  文字を大きく
  2. [ CTRL ] + [ ]  :  文字を小さく

Shortcut Keys

  1. [ CTRL ] + [ + ]  :  Up the font size
  2. [ CTRL ] + [ ]  :  Down the font size