PRB: Client-Side ADO Union Query Using Oracle OLE DB Provider Returns Incorrect Number of Columns (272618)

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new Visual Basic Standard EXE project. Form1 is created by default.
2. Set a Reference to Microsoft ActiveX Objects 2.5.
3. Paste the following code into the Form1 code window:

   Private Sub Form_Load()
   Dim cn As New ADODB.Connection
   Dim rs As New ADODB.Recordset
   On Error Resume Next
   
   cn.CursorLocation = adUseClient
   
   'ODBC
   'cn.Open cn.Open "Provider=MSDASQL;Driver={Microsoft ODBC for Oracle};Server=YourOracleAlias;Uid=demo;pwd=demo"
   
   'OLEDB
   cn.Open "Provider=MSDAORA;Data Source=YourOracleAlias;User ID=demo;Password=demo"
   
   cn.Execute "Drop table oratest"
   cn.Execute "CREATE TABLE ORATEST(Col1 VARCHAR2(10) NULL, Col2 VARCHAR2(10) NULL)"
   cn.Execute "CREATE TABLE DUAL(Col1 VARCHAR2(10) NULL)"
   rs.Open "select col1, col2 from oratest where col1 in (Select 1 from dual union select 2 from dual)", _ 
   cn, adOpenStatic, adLockBatchOptimistic
   
   MsgBox rs.Fields.Count
   
   End Sub
   					

4. Make the necessary connection string changes, and then run the project.Results: The message box displays a "1."
   
   
5. Stop the project, and uncomment the connect line following "'ODBC," and comment the line following "'OLEDB."Results: The message box displays a "2," which is correct.