by Muhammad Zahid Saleem (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 3rd June 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Oracle & VB
API Declarations
procedure Test(inPARM in varchar2,outPARM out varchar2);
Test is the name of oracle procedure, it has two parameters, one is IN type parameter (inPARM) and one is OUT type parameter (outPARM).
VBcoders
Public Function call_Test( )
Dim Cmd As New ADODB.Command
Dim inPARM As New ADODB.Parameter
Dim outPARM As New ADODB.Parameter
inPARM.Direction = adParamInput
inPARM.Type = adBSTR
inPARM.Value = “Value of in type parameter”
outPARM.Direction = adParamOutput
outPARM.Type = adBSTR
outPARM.Size = 100
Cmd.ActiveConnection = lCon ‘***ADO Active Connection
Cmd.CommandText = "Test"
Cmd.Parameters.Append inPARM
Cmd.Parameters.Append outPARM
Cmd.Execute
End Function