Jump to content
Software FX Community

Re: VB Collections in ASP

User (Legacy)

Recommended Posts

The QuerySelector object is a Java class that queries values from a 

database. We are using a com to java bridge to pass the java vectors to our

asp code as vb collections. We can plot the vb collections by looping

through each collection as shown



for each value in myKW


StringTime = j+1




ChartFX1.CloseData COD_VALUES

ChartFX1.CloseData COD_XVALUES

We cannot however seem to add the collections to the CfxArray object and


them to the getExternalData method. Some data is getting through as an


empty chart is produced and copying the data to excel shows that some of the


in the collections is passed to the chart. It just isn't being displayed


Tarik Khan

"Juan Cegarra" <JuanC@softwarefx.com> wrote in message


> >> Is it possible to use a VB Collection in ASP to pass data to

> ChartFX2000?


> Yes. The CfxData.Array supports VBScript arrays and objects that support

> the IEnumVariant COM interface (We have tested VB collections under VB

> and they work fine).


> Is there a way for you to send us the QuerySelector object so that we

> can test why your code is not working ?


> Regards,


> Juan Cegarra

> Software FX, Inc.

> http://support.softwarefx.com



> -----Original Message-----

> From: Tarik Khan [ mailto:tkhan@hydro.mb.ca]

> Posted At: Thursday, July 13, 2000 12:13 PM

> Posted To: Server

> Conversation: VB Collections in ASP

> Subject: VB Collections in ASP



> Is it possible to use a VB Collection in ASP to pass data to

> ChartFX2000?

> This seems similar to passing arrays to ChartFX but I cannot get the

> chart

> to generate my data. Here is the code I use to generate the chart.


> <%

> Set ChartFX1=Server.CreateObject("ChartFX.WebServer.4")

> Set Data=Server.CreateObject("QuerySelector")

> Set CfxArray = CreateObject("CfxData.Array")

> Server.ScriptTimeout=360

> Connect = Data.connectDB()

> Response.Write(connect)

> Query = Data.getEnergyCon(start,tend,CustID)

> Response.Write(Query)

> ChartFX1.RgbBk=RGB(255,255,255)

> ChartFX1.Rgb2DBK=RGB(178,176,176)

> ChartFX1.ChartType=LINES

> ChartFX1.Chart3D=false

> ChartFX1.AllowDrag=false

> ChartFX1.AllowEdit=false

> ChartFX1.SerLegBox=true

> ChartFX1.ToolBar=true

> ChartFX1.SerLegBoxObj.Docked=TGFP_BOTTOM

> ChartFX1.MarkerShape=0

> Set myKW = Data.theKW ' this is a VB Collection Object

> Set myKVAR = Data.theKVAR 'this is a second VB Collection Object

> CfxArray.AddArray myKW

> CfxArray.AddArray myKVAR

> ChartFX1.serleg(0)="KW"

> ChartFX1.serleg(1)="KVAR"

> ChartFX1.DataType(0)=CDT_VALUE

> ChartFX1.DataType(1)=CDT_VALUE

> ChartFX1.GetExternalData CfxArray

> %>


> <%=ChartFX1.GetHtmlTag("95%","90%")

> %>


> Tarik Khan

> Manitoba Hydro


Link to comment
Share on other sites


This topic is now archived and is closed to further replies.

  • Create New...