使用IN OUT类型参数执行Oracle存储过程。-优快云博客

本文介绍如何在Oracle中创建使用INOUT参数的过程，并通过VB.NET调用该过程，实现参数的输入输出操作，展示了具体的过程创建语法及VB.NET调用代码。

使用IN OUT类型作为参数模式的Oracle Procedure。

========================================

create or replace procedure inout(num in out number)
as
begin
select (sal+nvl(comm,0))*12  into num from emp where empno=num;
end;

从Vb调用上述Oracle过程。

================================


'general declaration
Dim CON As New ADODB.Connection
Dim PR As New ADODB.Parameter
Dim PR1 As New ADODB.Parameter 
Private Sub Command1_Click()
CON.Open "Provider=MSDAORA.1;Password=DEBASIS;User ID=DEBASIS;Data Source=DAS;Persist Security Info=True"
Dim CMD As New ADODB.Command
CMD.ActiveConnection = CON
CMD.CommandType = adCmdStoredProc
CMD.CommandText = "inout"
Set PR = CMD.CreateParameter("num", adNumeric, adParamInputOutput, 4, Int(DC1.Text))
CMD.Parameters.Append PR
CMD.Execute
If Not IsNull(CMD.Parameters("num").Value) Then
Text1.Text = CMD.Parameters("num").Value
Else
Text1.Text = ""
MsgBox "Data Is Not Available"
End If
CMD.Cancel
CON.Close
End Sub

From: https://bytes.com/topic/visual-basic/insights/739081-executing-oracle-stored-procedures-out-type-parameter