Posted by Angham Al-Banawien, Last modified by Diana Alkouni on 25 August 2020 08:42 AM


Public Function getRecordCount ( ) As Short


This function is used to get the initialized record count. 


No parameters.


Public Sub main()    

        Dim _symbolInfo As VTLGeneral.CSymbol=ClientCode.GetSymbolByID (6)

        If _symbolInfo is nothing then

                GUI.MsgDialog ("Symbol not found")

                Exit Sub

        End If


        Dim DB As New VTLGeneral.Database ()

        Dim RecordCount As Integer

        Dim m_Recordset As VTLGeneral.RecordSet

        Dim _historyData As object()

        Dim Record As Integer

        Dim m_Date As VTLGeneral.Field

        Dim m_Open As VTLGeneral.Field

        Dim m_High As VTLGeneral.Field

        Dim m_Low As VTLGeneral.Field

        Dim m_Close As VTLGeneral.Field

        Dim _recordCount As integer = 100

        Dim i As Integer

        m_Recordset = DB.CreateRecord

        m_Open = New VTLGeneral.Field

        m_High = New VTLGeneral.Field

        m_Low = New VTLGeneral.Field

        m_Close = New VTLGeneral.Field

        DB.RecordCount = _recordCount

        RecordCount = _recordCount


        'Initialize Recordsets

        m_Open.initialize (_recordCount, "Open")

        m_High.initialize (_recordCount, "High")

        m_Low.initialize (_recordCount, "Low")

        m_Close.initialize (_recordCount, "Close")

        GUI.MsgDialog (M_open.GetRecordCount ())


 End Sub


See Also

Back to Field Objects
Back to VTL Server Script Index

(0 vote(s))
Not helpful

Comments (0)
Post a new comment
Full Name:
CAPTCHA Verification 
Please enter the text you see in the image into the textbox below (we use this to prevent automated submissions).

Help Desk Software by Hybrid Solutions