![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_11.png?8acaa2e)
現在VB6(SP6)でORACLEのデータベースに接続後、プロシージャを実行してOUTのパラメータを取得したいと思ってプログラムを作っております。
ORACLEへの接続はいろいろ調べてできたのですが、プロシージャの実行(呼び出し)のしかたがわからず困っております。
PL/SQL(プロシージャ名"TEST_DATA")
out1 = TEST(OUTパラメータ1)
out2 = これはテストです。(OUTパラメータ2)
VB6(SP6)
Dim OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim OraDynaset As OraDynaset
Dim P1 AS String
Dim P2AS String
'接続処理
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("TEST", "TEST/TEST DB_DEFAULT)
OraSession.BeginTrans
'ここでPL/SQLを実行して、パラーメタを取得したいです。
'取得したパラメータをセット
P1 = パラメータ1(TEST)
P2 = パラメータ1(これはテストです。)
OraSession.CommitTrans
'結果表示
Call MsgBox(P1 & "結果" & P2)
ご教授のほどをお願いいたします。
No.1ベストアンサー
- 回答日時:
'ORACLEで利用する定数
Public Const ORAPARM_INPUT = 1
Public Const ORAPARM_OUTPUT = 2
Public Const ORAPARM_BOTH = 3
Public Const ORATYPE_VARCHAR2 = 1
Public Const ORATYPE_NUMBER = 2
Dim OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim OraDynaset As OraDynaset
Dim P1 AS String
Dim P2 AS String
'接続処理
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("TEST", "TEST/TEST DB_DEFAULT)
'パラメータの設定
OraDatabase.Parameters.Add "out1", "", ORAPARM_OUTPUT
OraDatabase.Parameters("out1").serverType = ORATYPE_VARCHAR2
OraDatabase.Parameters.Add "out2", "", ORAPARM_OUTPUT
OraDatabase.Parameters("out2").serverType = ORATYPE_VARCHAR2
'プロシージャ実行
OraDatabase.ExecuteSQL("begin TEST_DATA(:out1, :out2); end;")
'ここでPL/SQLを実行して、パラーメタを取得したいです。
'取得したパラメータをセット
P1 = OraDatabase.Parameters("out1").Value
P2 = OraDatabase.Parameters("out2").Value
'結果表示
Call MsgBox(P1 & "結果" & P2)
こんな感じかな・・・
動作確認はしておりませんので・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PHP アコーディオンPHPが上手くいかない 3 2022/07/15 16:29
- Visual Basic(VBA) Excle VBA Findメソッドについて 3 2022/07/15 13:56
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- CGI htmlからパラメータで、cgiに渡したい。 1 2023/02/06 16:15
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Excel(エクセル) Excel-VBAの「しばらくお待ちください」のダイアログが自動的に閉じない 2 2023/05/24 15:31
- Visual Basic(VBA) シフト表のコマで「ブロック」されている前の時間の「出」を同一列の「休」と入れ替えたいがふぇきません。 2 2023/08/02 18:49
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Excel(エクセル) excel vba 参照渡しと値渡し 2 2022/04/27 10:45
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBでストアドの戻りパラメータを受け取る方法
Visual Basic(VBA)
-
Flexgridで選択行の列の値を取得したい
Visual Basic(VBA)
-
vb6のVSFlexGridで選択行、列の値を取得し構造体に入れたい
Visual Basic(VBA)
-
-
4
frxファイルの役目
Visual Basic(VBA)
-
5
SPREAD(GrapeCity)のセルにフォーカスを設定するにはどうしたらいいのでしょうか?
Visual Basic(VBA)
-
6
配列を関数に渡す方法
Visual Basic(VBA)
-
7
ソースから参照しているOCXの一覧を確認する方法
Visual Basic(VBA)
-
8
VB6とVB.NETでNullの扱いが違う?
Visual Basic(VBA)
-
9
VB6のオラクルのバインド変数
Visual Basic(VBA)
-
10
VB6 開発環境のエディタに行番号を表示
Visual Basic(VBA)
-
11
PL/SQLをWindowsのBATファイルで実行するには
Oracle
-
12
VB6でユーザー定義型がNothingかどうか調べるには?
Visual Basic(VBA)
-
13
ウォッチ式の文字数制限について
Visual Basic(VBA)
-
14
VB6 配列を初期化したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
[VB.net] ボタン(Flat)のEnable...
-
VBAコードについて教えてくださ...
-
[vb.net] 起動したFrom2を閉じ...
-
重複確認
-
ExcelVBA修正のお願い
-
マクロの記録を使用したマクロ...
-
{ CONTROL Forms.Label.1}が...
-
エクセルのVBAコードについて教...
-
VBの色を変えるにはどうしたら...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA 別ブックから条件に合うも...
-
配列のペースト出力結果の書式...
-
VBA 別ブックからコピペしたい...
-
A列B列どちらにもあるのを抽...
-
Excelに保存されているユーザー...
-
VBAコンボボックスで選択した値...
-
Excel(M365) Vlookup/セル反転(...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB6でのPL/SQLの実行について
-
[PL/SQL]REFCURSORが戻り値のプ...
-
Buttonの処理について
-
実行される順番について
-
ASPの実行タイミングを設定したい
-
sessionタイムはいつから
-
C# try-catch でcatchに飛ばす方法
-
FileCopy時のエラー
-
エクセルVBA 宣言Dimの場所
-
Response.Redirectで引数2つの...
-
画面のリフレッシュを意図的に...
-
ASP内で他のASPファイルを読み...
-
ソケット通信で同時受信の制限?
-
fopenでエラーとなる
-
エラー 'ASP 0115' について
-
エラー 'ASP 0115'
-
SqlDataSource SelectCommand ...
-
EXECLマクロでshapeがグルーフ...
-
IIS7.5の設定の仕方
-
vbscriptの変数宣言
おすすめ情報