現在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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
VBでストアドの戻りパラメータを受け取る方法
Visual Basic(VBA)
-
frxファイルの役目
Visual Basic(VBA)
-
VB6のオラクルのバインド変数
Visual Basic(VBA)
-
-
4
Flexgridで選択行の列の値を取得したい
Visual Basic(VBA)
-
5
vb6のVSFlexGridで選択行、列の値を取得し構造体に入れたい
Visual Basic(VBA)
-
6
ウォッチ式の文字数制限について
Visual Basic(VBA)
-
7
SPREAD(GrapeCity)のセルにフォーカスを設定するにはどうしたらいいのでしょうか?
Visual Basic(VBA)
-
8
VB6とVB.NETでNullの扱いが違う?
Visual Basic(VBA)
-
9
配列を関数に渡す方法
Visual Basic(VBA)
-
10
VB6のプロジェクトロードエラーについて
Visual Basic(VBA)
-
11
VB6 開発環境のエディタに行番号を表示
Visual Basic(VBA)
-
12
定数配列の書き方
Visual Basic(VBA)
-
13
VB6でユーザー定義型がNothingかどうか調べるには?
Visual Basic(VBA)
-
14
特定行の色を変えたい(FlexGrid)
Visual Basic(VBA)
-
15
VBの「As String * 128」とは?
Visual Basic(VBA)
-
16
VB6 配列を初期化したい
Visual Basic(VBA)
-
17
VB6で、非表示モジュール(?)の表示方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VB6でのPL/SQLの実行について
-
[PL/SQL]REFCURSORが戻り値のプ...
-
FileCopy時のエラー
-
C# try-catch でcatchに飛ばす方法
-
VB6でRDOに接続できない
-
CreateObject("Excel.Applicati...
-
Response.Redirectで引数2つの...
-
Tableを動的に増やしたい。
-
オラクル接続をopenしようとす...
-
EXECLマクロでshapeがグルーフ...
-
VBSからのサーバサイドのEXEの実行
-
TCPサーバ bind関数のエラーに...
-
CAsyncSocket::Create()がエラ
-
VBSからPDFファイルを開きたい...
-
エラー内容について
-
GridViewからテンプレートフィ...
-
ASP.NETで使用しているJavascri...
-
AutoPostBackにしているが、う...
-
Outlookで添付ファイルの有無を...
-
ASPからASPを呼び出す方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
[PL/SQL]REFCURSORが戻り値のプ...
-
実行される順番について
-
VB6でのPL/SQLの実行について
-
VBScrpitで取得した値(trueまた...
-
SSIでASPを実行したいのですが...
-
C# try-catch でcatchに飛ばす方法
-
エクセルVBA 宣言Dimの場所
-
FileCopy時のエラー
-
EXECLマクロでshapeがグルーフ...
-
Response.Redirectで引数2つの...
-
ソケット通信で同時受信の制限?
-
aspの記述がコメント表示されて...
-
ASP内で他のASPファイルを読み...
-
winsock通信時エラーの回避
-
GridViewからテンプレートフィ...
-
CreateObject("Excel.Applicati...
-
VBSからPDFファイルを開きたい...
-
エラー内容について
-
vbscriptの変数宣言
-
Outlookで添付ファイルの有無を...
おすすめ情報