Excel-VBA Macro Connectivity to XE

Question

I have an excel-macro which accesses data from Oracle9i database with the connection code;
Set oOraSession = CreateObject("OracleInProcServer.XOraSession")
Set oOraDatabase = oOraSession.OpenDatabase("iois", "bacc/password", 0&)
It runs smoothly with no problems. When I test the same application to my newly installed XE database, using the connection code;
Set oOraSession = CreateObject("OracleInProcServer.XOraSession")
Set oOraDatabase = oOraSession.OpenDatabase("XE.world", "bacc/password", 0&)
it didnt run and broadcasts an error msg.;
Runtime error '429'
ActiveX component can't create object
I know there's a way to solve this but how?
Arnel

Answer 1

Hi Arnel,
you might try the easy connect syntax, works fine for me.
Sub GetEmployees()
    ' Use OO4O
    Set objSession = CreateObject("OracleInProcServer.XOraSession")
    Set objDatabase = objSession.OpenDatabase("127.0.0.1:1521/XE", "hr/oracle1", 0)
    Sql = "select * from emp"
    Set oraDynaSet = objDatabase.DBCreateDynaset(Sql, 0)
    If oraDynaSet.RecordCount > 0 Then
        oraDynaSet.MoveFirst
        For x = 0 To oraDynaSet.Fields.Count - 1
            Cells(1, x + 1) = oraDynaSet.Fields(x).Name
            'Cells(1, x + 1).Format = Bold
        Next
        For y = 0 To oraDynaSet.RecordCount - 1
            For x = 0 To oraDynaSet.Fields.Count - 1
                Cells(y + 2, x + 1) = oraDynaSet.Fields(x).Value
            Next
            oraDynaSet.MoveNext
        Next
    End If
    Set objSession = Nothing
    Set objDatabase = Nothing
End SubRegards,
~Dietmar.