Return the total number of records of a given table
*/ Instantiate end set the database location.
oBiz = createobject("bizinfo.application")
oBiz.cDatabasePath = "C:\WinBIZ Data"
oBiz.nCompany = 1000
oBiz.nYear = 2017
*/ Define a script that opens a table and that returns the number of records of the table.
EOL = chr(10) + chr(13)
oBiz.cScript = cScript + [ oSession.TableOpen("Adresses") ] + EOL
oBiz.cScript = cScript + [ return reccount() ]
*/ Execute the script. The returned value is the number of records.
? oBiz.ScriptExecute()