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
Back to Field Objects Back to VTL Server Script Index
|