Remote Data Collection

This feature is a result of a small project in consolidating Csv files stored in multiple remote URLs. The goal is to generate a report for a multi-national investment company with companies around the globe. The management want to have a real-time reporting system so they can monitor the performance of different business units. The Csv format are fixed and generated from the accountant's Excel as soon as the data are available. These reports are as close to real time as possible as the data must be validated by the account before publication. After the accountants approve the data, They execute an Excel macro to generated the Csv file and uploads to the server.

dbRemoteURL defines the data source locations and these data sources are read and consolidated to produce table(s) and corresponding chart(s) via the regular chart and grid features.

<!--T_Remote.aspx-->

<script language="vb" runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
   Dim MyServer as string=Request.ServerVariables("SERVER_NAME")
   Dim Rmd3 As New Tornado.Z()
   With Rmd3
'...two sample data source
      .dbRemoteURL = "http://" & MyServer & "/tornado/DB/sales1.data|http://" & MyServer & "/tornado/DB/sales2.data"
      .ASPdbRemoteDataCollection("sales")
   End With
'... Requery and Plot a Stacked Chart
   Dim Rmd4 As New Tornado.Z()
   With Rmd4
      .dbQP = "U=97| S=finance| M=GC| Ps=-1| Pv=ODBC| Q=[[RemoteTable]]| TH=Title=Tornado Demo - Remote Data Collection"
      .dbDSN = "Driver={Microsoft Text Driver (*.txt; *.csv)}; DBQ=" & Server.MapPath("/tornado/scratch")
      .dbChartData = "_yValues={0},{1},{2},{3},{4},{5}|Blockout=0"
      .dbChartParams = "ID=2| Type=stackBar| Archieve=/tornado/Jars/| Width=600| Height=400| titleFont=Arial,14,1| TitleString='Products Stacked Bar Report'|legendVertical=True|legendOn=yes|_Name=US Shoe,US Music,US Sport,Asia Shoe,Asia Music,Asia Sport|dwellUseXValue=False|dwellYString=Sales:#| dataset0Labels=12Months| xAxisLabelFont=Arial,14,1| iconWidth=0.05|iconHeight=0.02| iconGap=0.005| legendllX=.8| legendllY=.20|3D=True|outlineColor=black"
      .dbGridTemplate = "<center><table border=0><tr valign=top><td align=center>[[Grid]]</td></tr><tr><td align=center><br>[[Chart]]</td></tr></table></Center></center>"
      .ASPdbNet()
   End With
End Sub
</script>