DOBON.NETプログラミング道掲示板

■34042 / 親階層)  oo4oのAddTableをADOに移行したい
□投稿者/ Yoshi 一般人(1回)-(2018/11/26(Mon) 16:40:20)
  • アイコン環境/言語:[VBA] 
    分類:[ASP.NET] 


    業務で使用しているExcelでOfficeの64bitに対応するため、oo4oからADOへの変更作業を行っています。
    Excelを利用しておりVBAで書かれています。

    Oracleのバージョンは11gです。

    AddTableを使いストアドプロシージャで配列として受け渡しをしているようなのですが
    ADOで渡すための方法がわからず、ご教示いただきたいと思っております。

    以下にoo4oで書かれたロジックを記載いたします。
    【VBA(oo4o)】
    OraDB.Parameters.AddTable "inAnimal", ORAPARM_INPUT, ORATYPE_VARCHAR2, Arraysize, 255
    Set inAnimal = OraDB.Parameters("inAnimal")

    'カウンタループ 'l'はカウンタ
    inAnimal(l) = AnimalSet(l)
    'Loop
    ExecuteSQL ("BEGIN PROCEDURE(:inAnimal)End;)

    【PROCEDURE】
    TYPE Array IS TABLE OF VARCHAR2(2000) INDEX BY BINARY_INTEGER;
    PROCEDURE (inAnimal IN Array)
    IS...

    少し考えて作ったADOのソースは以下になります。(うまく配列が渡せないため落ちます。)

    Set param = cmd.CreateParameter("inAnimal", adVarChar Or adArray, adParamInput, 255, AnimalSet)

    cmd.Parameters.Append param
    cmd.CommandText = "BEGIN PROCEDURE(:inAnimal); END;"
    cmd.Execute 


    間違っている箇所や方法をご存知の方いらっしゃいましたらよろしくお願いいたします。

マルチポストを報告
違反を報告
削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
親記事 →Re[1]: oo4oのAddTableをADOに移行したい /魔界の仮面弁士
 
上記関連ツリー

Nomalアイコン oo4oのAddTableをADOに移行したい / Yoshi (18/11/26(Mon) 16:40) #34042 ←Now
Nomalアイコン Re[1]: oo4oのAddTableをADOに移行したい / 魔界の仮面弁士 (18/11/26(Mon) 19:13) #34043
  ├Nomalアイコン Re[2]: oo4oのAddTableをADOに移行したい / 魔界の仮面弁士 (18/11/27(Tue) 11:19) #34045
  └Nomalアイコン Re[2]: oo4oのAddTableをADOに移行したい / Yoshi (18/11/27(Tue) 16:17) #34046
    └Nomalアイコン Re[3]: oo4oのAddTableをADOに移行したい / 魔界の仮面弁士 (18/11/27(Tue) 16:52) #34047
      └Nomalアイコン Re[4]: oo4oのAddTableをADOに移行したい / Yoshi (18/11/30(Fri) 17:12) #34055 解決み!

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Mode/  Pass/


- Child Tree -