PRB: "The Call to the 'GetXaSwitch' Function Failed" Error Message with the Oracle 9.x Client Installed (816633)

MORE INFORMATION

Steps to Reproduce the Behavior

1. Install Oracle 9i Application Server on a computer running the Windows Server 2003-based system.
2. Enable Oracle XA Transaction Support for COM+.
   
   For additional information, click the following article number to view the article in the Microsoft Knowledge Base:

   193893 INFO: Using Oracle with Microsoft Transaction Server and COM+

3. Create a new ActiveX DLL project in Microsoft Visual Basic 6.0. By default, Class1 is created.
4. On the Project menu, click Project1 Properties. Change the project name to MyOracleComponent.
5. On the Project menu, click References. Add a reference to Microsoft ActiveX Data Object 2.0, and then to Library COM+ Services Type Library.
6. Add the following code to Class1:

   Option Explicit
   
   Public Sub TestSub()
   Dim objContext As ObjectContext
   Set objContext = GetObjectContext()
   
   Dim cnn As New ADODB.Connection
   Dim rec As New ADODB.Recordset
   
   cnn.Open "Provider=MSDAORA;Data Source=ORCL;", "scott", "tiger"
   Set rec = cnn.Execute("select * from TableName")
   
   objContext.SetComplete
   End Sub

7. On the File menu, click Make MyOracleComponent.dll.
8. Click Start, point to Settings, and then click Control Panel.
9. Double-click Administrative Tools, and then double-click Component Services.
10. Expand Component Services until you reach COM+ Applications.
11. Right-click COM+ Applications, and then click New Application.
12. Create a new library application, and then install the MyOracleComponent.dll in COM+.
13. In COM+, right-click Component, and then click Properties. Click the Transactions tab, and then click Required.
14. Click OK to save the settings.
15. To create a client application, create a new Standard EXE project in Visual Basic 6.0.
16. Add the following code to the Form1_Load event:

    Option Explicit
    
    Private Sub Form_Load()
       Dim obj1 As Object
       ' Create the COM+ Object
       Set obj1 = CreateObject("MyServerName.Class1")
       obj1.TestSub
       Set obj1 = Nothing
    End Sub

17. Click Start. You receive the error message that is described in the "Symptoms" section.