Syntax

Public Function getRecordCount ( ) As Short

Description

This function is used to get the initialized record count.

Parameters

No parameters.

Sample

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

• getName
• initialize
• setName

Back to Field Objects
Back to VTL Server Script Index