‘オラクルの配列バインド変数を宣言 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 ヘ戻る >

ブラウザ画面の文字サイズを変更するショートカットキー
- [ CTRL ] + [ + ] : 文字を大きく
- [ CTRL ] + [ – ] : 文字を小さく
Shortcut Keys
- [ CTRL ] + [ + ] : Up the font size
- [ CTRL ] + [ – ] : Down the font size
|
OO4O(Oracle Objects for OLE)でVisual Basic 6 からOracleデータベースへアクセス