バインド配列に変換 (ID:108525)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 返事遅くなりました。 テーブルの項目が９個あるんですけど、こんな感じ↓でいいんでしょうか？ とりあえずデータが１万件と仮定しています。 'バインド配列変数の作成 Dim Item_code_Array As OraParamArray Dim Item_name_Array As OraParamArray Dim Youryou_Array As OraParamArray Dim Kana_name_Array As OraParamArray Dim Sekitukesuu_Array As OraParamArray Dim Irisuu_Array As OraParamArray Dim Size_w_Array As OraParamArray Dim Size_d_Array As OraParamArray Dim Size_h_Array As OraParamArray OraDatabase.Parameters.AddTable "Item_code_Array", ORAPARM_INPUT, ORATYPE_NUMBER, 10000, 14 OraDatabase.Parameters.AddTable "Item_name_Array", ORAPARM_INPUT, ORATYPE_VARCHR2, 10000, 40 OraDatabase.Parameters.AddTable "Youryou_Array", ORAPARM_INPUT, ORATYPE_VARCHAR2, 10000, 30 OraDatabase.Parameters.AddTable "kana_name_Array", ORAPARM_INPUT, ORATYPE_VARCHAR2, 10000, 40 OraDatabase.Parameters.AddTable "Sekitukesuu_Array", ORAPARM_INPUT, ORATYPE_NUMBER, 10000,9 OraDatabase.Parameters.AddTable "Irisuu_Array", ORAPARM_INPUT, ORATYPE_NUMBER, 10000, 4 OraDatabase.Parameters.AddTable "Size_w_Array", ORAPARM_INPUT, ORATYPE_NUMBER, 10000, 4 OraDatabase.Parameters.AddTable "Size_d_Array", ORAPARM_INPUT, ORATYPE_NUMBER, 10000, 4 OraDatabase.Parameters.AddTable "Size_h_Array", ORAPARM_INPUT, ORATYPE_NUMBER, 10000, 4 Set Item_code_Array = oraDb.Parameters("Item_code_Array") Set Item_name_Array = oraDb.Parameters("Item_name_Array") Set Youryou_Array = oraDb.Parameters("Youryou_Array") Set Kana_name_Array = oraDb.Parameters("Kana_name_Array") Set Sekitukesuu_Array = oraDb.Parameters("Sekitukesuu_Array") Set Irisuu_Array = oraDb.Parameters("Irisuu_Array") Set Size_w_Array = oraDb.Parameters("Size_w_Array") Set Size_d_Array = oraDb.Parameters("Size_d_Array") Set Size_h_Array = oraDb.Parameters("Size_h_Array") よろしくお願いします。