PRB: Cannot Use Boolean Parameter with Oracle (306530)

MORE INFORMATION

Steps to Reproduce Behavior

Create the Stored Procedures

1. Use the PL/SQL data type of BOOLEAN to create the first stored procedure as follows:

   CREATE OR REPLACE PROCEDURE TESTPARAM 	(            		              
   	RET_Result OUT BOOLEAN		              
   	)               
   AS               
   BEGIN               
   	RET_Result := True;               
   END; 
   					

2. Use a varchar data type to create the second stored procedure as follows:

   CREATE OR REPLACE PROCEDURE TESTPARAM1 	(            		              
   	RET_Result OUT VARCHAR		              
   	)               
   AS               
   BEGIN               
   	RET_Result := 'True';               
   END; 
   					

Create the Visual Basic Application

1. Create a new Standard EXE project in Visual Basic. Form1 is created by default.
2. From the Projects menu, click References, and then select the Microsoft ActiveX Data Objects 2.x check box.
3. Add two command buttons to Form1.
4. Open the code window that is associated with Form1, and paste the following code in the code window:

   Private Sub Command1_Click()
      Dim Cn As ADODB.Connection
      Dim Cmd As ADODB.Command
      Dim strConnect As String
   
      'Change the connection string to match your Oracle server name
      'and logon credentials.
      strConnect = "Provider=MSDAORA;Data Source=ORACLE816;User ID=User;Password=Password"
      Set Cn = New ADODB.Connection
      Cn.Open strConnect
      Set Cmd = New ADODB.Command
      With Cmd
         .ActiveConnection = Cn
         .CommandText = "TestParam"
         .CommandType = adCmdStoredProc
         .Parameters.Append .CreateParameter("RET_Result", adBoolean, adParamOutput, 1, 0)
         .Execute
         Debug.Print .Parameters.Item(0)
      End With
   End Sub
   
   Private Sub Command2_Click()
      Dim Cn As ADODB.Connection
      Dim Cmd As ADODB.Command
      Dim strConnect As String
      
      'Change the connection string to match your Oracle server name
      'and logon credentials.
      strConnect = "Provider=MSDAORA;Data Source=ORACLE816;User ID=User;Password=Password"
      Set Cn = New ADODB.Connection
      Cn.Open strConnect
      Set Cmd = New ADODB.Command
      With Cmd
         .ActiveConnection = Cn
         .CommandText = "TestParam1"
         .CommandType = adCmdStoredProc
         .Parameters.Append .CreateParameter("RET_Result", adVarChar, adParamOutput, 1, 0)
         .Execute
         Debug.Print .Parameters.Item(0)
      End With
   End Sub
   					

5. Ensure that you change the arguments of the above connection strings so that they point to your Oracle database.
6. Run the code, and click Command1. You receive the above-mentioned error message.
7. Run the application a second time, and then click Command2. This returns the value of True to the Immediate window.