DEX2 Fail Example

Option Compare Database

Public WithEvents rtConn As EikonDesktopDataAPI

Private m_dex2mgr As Dex2Lib.Dex2Mgr
Private m_dex2mgrADC As Dex2Lib.IDex2Mgr
Private m_cookie As Long
Private WithEvents m_rdata As Dex2Lib.RData


Private Sub Command0_Click()
    Call ConnectToEikon
    Call CloseDex2
End Sub

Sub ConnectToEikon()
    If Not rtConn Is Nothing Then Set rtConn = Nothing
    Set rtConn = New EikonDesktopDataAPI

    If rtConn Is Nothing Then
        MsgBox "Failed to create Eikon connection"
        Exit Sub
    End If

    rtConn.Initialize

    If rtConn.Status = 1 Then Call rtConn_OnStatusChanged(1)
    Exit Sub
End Sub

Private Sub m_rdata_OnUpdate(ByVal DataStatus As Dex2Lib.DEX2_DataStatus, ByVal Error As Variant)
    Dim strDataStatus As String
    Dim result As Variant
    Dim c, r As Integer

    On Error GoTo errHandler

    If DataStatus = DE_DS_FULL Or DataStatus = DE_DS_PARTIAL Then
        result = m_rdata.data

        ' c for columns, r for rows.'
        For r = 0 To UBound(result, 1)
            For c = 0 To UBound(result, 2)
                If VarType(result(r, c)) = vbError Then
                    Debug.Print "#N/A"
                Else
                    Debug.Print result(r, c)
                End If
            Next c
        Next r
    End If

    ' Call Acknowledge to tell Dex2 that we have got the data'
    m_rdata.Acknowledge
    Exit Sub

errHandler:
    Debug.Print Err.Number & ":" & Err.Description
End Sub

Private Sub rtConn_OnStatusChanged(ByVal EStatus As EikonDesktopDataAPILib.EEikonStatus)
    If EStatus = Connected Or EStatus = LocalMode Then
        Set m_dex2mgr = rtConn.CreateDex2Mgr
        Set m_dex2mgrADC = m_dex2mgr
        m_cookie = m_dex2mgrADC.Initialize(DE_MC_ADC_POWERLINK)
        Set m_rdata = m_dex2mgrADC.CreateRData(m_cookie)
        m_rdata.InstrumentIDList = "TRI.N"
        m_rdata.FieldList = "TR.RIC"
        m_rdata.Subscribe (False)
    End If
End Sub

Sub CloseDex2()
    If Not m_cookie = 0 Then
        m_dex2mgrADC.Finalize (m_cookie)
        m_cookie = 0
        Set m_dex2mgrADC = Nothing
        Set m_rdata = Nothing
    End If
End Sub